[AC-2010] Création de fichier excel via Access

**Akiro76** · 28/05/2014, 15h23

Bonjour,

Voila je développe une application pour mon entreprise et j'ai besoin de généré des fichiers excel avec des données, boutons, dans un dossier bien spécial avec le nom de la personne dans l'intitulé du fichier.

J'ai cherché partout et je n'ai pas trouvé mon bonheur.

Mes questions : Comment on créé une fichier excel sous Access en VBA un truc tout simple ?
La différence entre classeur et fichier .xls ?

Je suis perdu bcp de tuto sur comment ouvrir un fichier excel mais aucun sur la création ?

Cordialement,

Akiro

PS : Merci de m'avoir lu.

**Robert1957** · 28/05/2014, 17h56

Bonjour Akiro76,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
'Déclaration des variables
Dim xl As Excel.Application
Dim wbk As Excel.Workbook
'Création du fichier
    Set xl = New Excel.Application
    xl.Visible = True
    With xl
        Set wbk = .Workbooks.Add
            'Ici on nomme la première feuille et supprime les autres
            Worksheets("Feuil1").Activate
            Worksheets("Feuil2").Delete
            Worksheets("Feuil3").Delete
            wbk.Sheets("Feuil1").Name = "La feuille Akiro76"
'Ici ce que tu veux faire avec ce fichier
      End With
'Ensuite tu l'enregistre
      xl.ActiveWorkbook.SaveAs "C\LeRépertoire\LeNomDuFichier.xlsx"
 
    Set xl = Nothing
    Set wbk = Nothing