VBA:VB6 - Se servir d'excel à partir d'une autre application
Cette petite routine permet d'appeler excel à partir de VB6 ou d'une autre application Office.
A coller dans un module général (Module1 par exemple)
En VBA >> Insertion >> Module, et dans cette fenêtre coller...
En VB6 >> Projet >> Ajouter un module, et dans cette fenêtre coller...
Dim EX As New Application Public Book As Workbook Public Feuille As Worksheet
'Ne pas oublier d'ajouter la référence..
'Microsoft Excel X,X object librairy
Sub AjouterExcel() Set EX = CreateObject("Excel.application") EX.Visible = True Set Book = EX.Workbooks.Add 'Toutes les fonctions Application sont disponibles avec BooK Set Feuille = Book.Sheets(1) 'Exemple: Feuille.Name = "Cette Feuille" With Feuille .[A1] = "Ceci est la cellule A1" .[A2] = "Ceci est la cellule A2" .Columns("A:A").ColumnWidth = 23.14 End With 'Toutes les fonctions excel sont disponibles avec Feuille. End Sub
Les débutants ayant quelques difficultés pour appliquer cette astuce, pourront trouverez un classeur exemple sur ce lien.
Ce document intitulé « VBA:VB6 - Se servir d'excel à partir d'une autre application » issu de Comment Ça Marche (www.commentcamarche.net) est mis à disposition sous les termes de la licence Creative Commons. Vous pouvez copier, modifier des copies de cette page, dans les conditions fixées par la licence, tant que cette note apparaît clairement.