Création de fichier excel pour une base de donnée

Commenter

Contenu du snippet

voici en résumer le code

il reçoi en paramètre un path et un tableau des nom de collonne

on vérifie si le fichier existe et si oui, on l'efface

ensuite un crée un fichier, une feuille, on écrit les collone et on referme le tous en sauvant le nouveau fichier vide

Source / Exemple : 


'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

A voir également

S'inscrire maintenant

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.

Du même auteur (cs_dragon)