Discussion :

[mumu64]

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

[LedZeppII]

Bonjour,

il faut déclarer tes variables au niveau du module de code (Section Déclations) au lieu de les déclarer dans les procédures.
Dans l'éditeur VB sélectioner (Général) dans la liste déroulante de gauche puis (Déclarations) dans celle de droite.

Code vb :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Option Compare Database
Option Explicit

Dim Chemin As String, disque As String
____________________________________________________________

Private Sub Commande56_Click()
' . . .
End Sub
____________________________________________________________

Private Sub Commande57_Click()
' . . .
End Sub

A+

[mumu64]

Salut LedZeppII,

Je te remercie pour cette astuce !
Mais je pense que j'ai mal formulé ma question.
Je voudrais savoir si je peux mettre qu'un seul Input box pour mes deux "private Sub" ?

Merci !

[LedZeppII]

Bonjour,

tu peux créer une Sub appelée par tes deux Sub de boutons

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
Option Compare Database
Option Explicit
 
Dim Chemin As String, disque As String
' ---------------------------------------------------------------------
Sub DemanderDisqueEtChemin(strOper As String)
disque = InputBox("lettre du disque", "Disque " & strOper, disque)
If disque <> "" Then
   Chemin = InputBox("nom du dossier dans " & disque & ":", "Dossier " & strOper, Chemin)
End If
End Sub
' ---------------------------------------------------------------------
Private Sub Commande56_Click()
Call DemanderDisqueEtChemin("exportation")
' . . .
End Sub
' ---------------------------------------------------------------------
Private Sub Commande57_Click()
Dim année As String
année = InputBox("Quelle est l'année de travail ?")
Call DemanderDisqueEtChemin("importation")
' . . .
End Sub

J'utilise l'argument Default de InputBox pour proposer les valeurs déjà saisies.

A+

[mumu64]

re,

Je m'attendais à un autre résultat mais c'est génial de pouvoir le faire comme ça.
C'est mieux que ce que je voulais faire !!

MERCI beaucoup pour cette solution !

@ +

Mumu64.