expliquer variable une fois pour tout le code

Version imprimable

Bonjour,

J'ai écrit ce code dans un formulaire :

Code:

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

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:

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+

01/08/2008, 09h20
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 !

Bonjour,

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

Code:

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+

01/08/2008, 12h08
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.