'Ce code fait appel à la bibliothèque Microsoft EXCEL (Microsoft Excel Library).
Il ne faut pas oublier de la référencer dans le projet.
Il nécessite un bouton (cmdListExcel)
une ListBox (List1)
Source / Exemple :
Option Explicit
Private Sub Form_Load()
List1.AddItem "Adam"
List1.AddItem "Bernard"
List1.AddItem "Charles"
List1.AddItem "Christophe"
List1.AddItem "Edouard"
List1.AddItem "Emilie"
List1.AddItem "Fabrice"
List1.AddItem "Juliette"
End Sub
Private Sub cmdListEXCEL_Click()
Dim Appli As New Application
Dim Ligne As String
Dim LigneExcel As Integer
Dim compt As Integer
'Rendre visible EXCEL
Appli.Visible = True
'Créer un nouveau classeur EXCEL initialisé à la ligne 1
Appli.Workbooks.Add.Activate
LigneExcel = 1
'Inscrire le contenu d'une listbox dans la feuille 1 d'un classeur EXCEL
For compt = 0 To List1.ListCount - 1
' Affecter les données de la listbox dans les cellules de la feuille
With ActiveWorkbook.Worksheets("Feuil1")
.Cells(LigneExcel, 1) = List1.List(compt)
LigneExcel = LigneExcel + 1
End With
Next compt
MsgBox "Importation terminée.", vbInformation + vbOKOnly, "Fichier Texte -> Classeur EXCEL"
Unload Me
End Sub
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.