J'ai esseyé une nouvelle méthode. ci dessous :
Code :
- Private Sub cmdListEXCEL_Click()
- Dim Appli As New Application
- 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
- End Sub
|
la listbox peut contenir soit du texte soit des nombres.
Mais j'obtients l'erreur : erreur d'exécution 9. L'indice n'appartient pas à la sélection.
Pourquoi ? ai je mal créer mon fichier ?
merci