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 CommentCaMarche (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.