Discussion :

[fabrice518]

Bonjour a tous,

je voudrais qu'un utilisateur exporte des données vers un fichier .xls, mais en saisissant lui meme le nom du fichier par une inputbox:

J'ai récupéreé 2 bout de code qui me premettent de créer un fichier et exporter dans un fichier.
j'arrive a faire fonctionner les 2 codes séparement , mais je n'arrive pas a creer un fichier et exporter dans celui ci voila mon code :

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
 
Let chemin = CurrentProject.Path & "\"
 
nom_xls = InputBox("Veuillez donner un nom au fichier :", "Titre")
 
'Rechercher si le fichier existe?
NumFich = FreeFile
If Dir(chemin & nom_xls & ".xls") = "" Then
    'Le fichier n' existe pas, alors...le créer!
    Open chemin & nom_xls & ".xls" For Output As #NumFich
 
    'Création du fichier .xls et ouverture de la feuille
    Set appexcel = CreateObject("Excel.Application")
    Set wbexcel = appexcel.Workbooks.Open(chemin & nom_xls & ".xls")
    appexcel.Sheets("Feuil1").Select

Merci pour votre aide !!

[cafeine]

Hello,

1- je te recommande de regarder mon tutoriel sur les exports Excel. (lien dans ma signature)
2- tu mélanges l'ouverture en écriture d'un fichier et l'automation Excel qui sont deux méthodes incompatibles.

[fabrice518]

Merci cafeine pour ton tuto

voila le princiapal de mon code

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
 
Dim xlApp As Excel.Application
Dim xlSheet As Excel.Worksheet
Dim xlBook As Excel.Workbook
 
Let chemin = CurrentProject.Path & "\"
 
nom_xls = InputBox("Veuillez donner un nom au fichier :", "Titre")
 
'Rechercher si le fichier existe?
If Dir(chemin & nom_xls & ".xls") = "" Then
 
    'Création du fichier .xls et ouverture de la feuille
    Set xlApp = CreateObject("Excel.Application")
    Set xlBook = xlApp.Workbooks.Add
 
    'Ajouter une feuille de calcul
    Set xlSheet = xlBook.Worksheets.Add
    xlSheet.Name = "Interlocuteurs"
 
 'On remplit le tableau .xls a partir de la 2eme ligne
    Let ligne = 2
 
    'Tant que le nbre de ligne-2 est diff. de counter, on remplit
    While Not counter = (ligne - 2)
        xlSheet.Cells(ligne, 1) = rst.Fields(1).Value
         .....
 
       'Permet d'éviter un message d'erreur quand il n'y a plus d'enregistrement
        If Not counter = (ligne - 1) Then
            'On passe a l'enregistrement suivant du formulaire
            DoCmd.GoToRecord , interlocuteur_sf_clone, acNext
        End If
 
        'On incremente ligne pour passer a la ligne suivante dans le tableau
        Let ligne = ligne + 1
    Wend
 
    'Enregistre le fichier .xls avec le chemin et le nom_xls puis quitte
    xlBook.SaveAs chemin & nom_xls & ".xls"
    xlApp.Quit
 
    'Vide la mémoire
    Set xlSheet = Nothing
    Set xlBook = Nothing
    Set xlApp = Nothing
'message comme quoi le fichier a bien ete créé...
MsgBox vbCrLf & _
            "Votre fichier '" & nom_xls & ".xls" & "' a bien été créé" & vbCrLf & _
             vbCrLf & _
             "dans " & chemin & vbCrLf, vbInformation, "Information"
 
Else: MsgBox "Un fichier porte déjà ce nom, veuillez recommencer"
End If