Bonjour,
Actuellement, lorsque j'effectue un export via une requète vers Excel le nom de mon fichier est figé
Maintenant je voudrais pouvoir le nommer comme je veux via un petit formulaire.
Code : Sélectionner tout - Visualiser dans une fenêtre à part strXLFile = "d:\bases extincteurs\Access 2007\essaiexport.xls"
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.
Merci d'avance de votre aide
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"
Marcopololo
Partager