Bonjour,

Actuellement, lorsque j'effectue un export via une requète vers Excel le nom de mon fichier est figé

Code : Sélectionner tout - Visualiser dans une fenêtre à part
strXLFile = "d:\bases extincteurs\Access 2007\essaiexport.xls"
Maintenant je voudrais pouvoir le nommer comme je veux via un petit formulaire.

Je bloque sur deux points :

J'ai posé la condition AcDialog, comment dois je faire pour redémarrer mon code
Et L'utilisation du champ NomExcel de mon formulaire fichier excel pour ma variable NameExcel et strXfile.
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
 
Dim strXLFile As String, NameExcel As String
 
'Ouvre le formulaire de saisie du nom du fichier en windowmode attente de saisie
                                    DoCmd.OpenForm ("fichier excel"), WindowMode:=acDialog
                                    NameExcel = [fichier excel]!NomExcel
                                        'Si aucune nom de fichier, je sors message d'alerte
                                            If Nz(Me.NomExcel, "") = "" Then
 
                                            DoCmd.OpenForm ("message nom fichier obligatoire")
                                            Exit Sub     ' Sortie de la routine
                                            'Sinon, en fonction de la case cochée, j'ouvre un formulaire
                                            Else
                                            End If
'Ouvre l'application Excel
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True
 
' Nom complet du fichier excel
                               strXLFile = "d:\bases extincteurs\Access 2007\" & NameExcel ".xls"
Merci d'avance de votre aide

Marcopololo