Soyez le premier à donner votre avis sur cette source.
Snippet vu 10 686 fois - Téléchargée 40 fois
'On refait les fichiers Excel Public Function CreationExcel(Path As String, tableau() As String) As Boolean Dim rst As Recordset, rstExcel As Recordset Dim app As Excel.Application Dim feuille As Excel.Worksheet Dim i As Integer On Error GoTo fin Set app = New Excel.Application 'si on veut voir le fichier en création 'app.Visible = True 's'il existe, on l'efface If Not Dir(Path) = "" Then Kill Path End If 'création du fichier app.Workbooks.Add 'on va chercher la feuille Set feuille = app.Workbooks.Item(1).Sheets.Item(1) 'ajoute les entêtes à la feuille 1 For i = 1 To UBound(tableau) - LBound(tableau) + 1 feuille.Cells(1, i) = tableau(i) Next i 'sauvegarde app.Workbooks.Item(1).SaveAs Path 'ferme app.Workbooks.Close 'on quitte Excel app.Quit Set app = Nothing 'Réussite CreationExcel = True Exit Function fin: 'Échec CreationExcel = False End Function
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.