Bonjour,

J'ai écrit ce code dans un formulaire :

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
Private Sub Commande56_Click()
 
Dim Chemin As String, disque As String
 
disque = InputBox("lettre du disque", "Disque d'enregistrement")
Chemin = InputBox("nom du dossier dans C:", "Dossier d'enregistrement")
 
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "monfichier", disque & ":\" & Chemin & "\monfichier.xls", True
 
Dim xlApp1 As Object
Set xlApp1 = GetObject(, "Excel.Application")
xlApp1.workbooks.Open disque & ":\" & Chemin & "\monfichier.xls"
 
End Sub
 
Private Sub Commande57_Click()
 
Dim Chemin As String, disque As String, année As String
 
année = InputBox("Quelle est l'année de travail ?")
disque = InputBox("lettre du disque", "Disque d'enregistrement")
Chemin = InputBox("Chemin du dossier dans lequel sont enregistrés les fichiers .xls", "Dossier d'import des données dans Access")
 
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "feuille A", disque & ":\" & Chemin & "\ric" & année & "_A.xls", True
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "feuille B", disque & ":\" & Chemin & "\lb" & année & "_B.xls", True
 
End Sub
Donc à chaque clic sur le bouton de commande je précise Chemin et disque qui sont les mêmes.
Est-il possible par un seul bouton de commande dans le formulaire de définir une fois pour toute par un Inputbox les variables Chemin et disque ?

J'espère que moi être claire....

D'avance merci !

Mumu64