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.
Cet article est régulièrement mis à jour par des experts sous la direction de Jean-François Pillou, fondateur de CommentCaMarche et directeur délégué au développement numérique du groupe Figaro.
Cette petite routine permet d'appeler excel à partir de VB6 ou d'une autre application Office.
