Discussion :

[JULIEN_92]

Bonjour,

Je déveoppe une base de données sous Access 2007. Je suis sous VISTA PRO.

je cherche via un bouton sur un formulaire, à ouvrir un répertoire dans lequel sont stockés différents fichiers.

j'ai programmé le code suivant, mais cela ne fonctionne pas avec une variable StrDossier, mais uniquement avec un chemin du type "C:\truc\"

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
28
Sub Essai
 
Dim RetVal As Long
Dim strDossier As String
Dim Marque, Numéro_machine, Modèle_machine As String
 
Dim fso As Scripting.FileSystemObject
Dim fld As Scripting.Folder
Dim fle As Scripting.File
 
Marque = Forms![Frm Machines].[Constructeur].Value
Modèle_machine = Forms![Frm Machines].[Modèle de machine].Value
Numéro_machine = Forms![Frm Machines].[Numéro de la machine].Value
strDossier = Application.CurrentProject.Path & "\Machines\"
 
Set fso = New Scripting.FileSystemObject
 
On Error GoTo Fichiers_TraitementErr
 
'Teste l'existance du répertoire machine
If fso.FolderExists(strDossier) = True Then ' teste si le répertoire de stockage des données machines existe
   RetVal = Shell("C:\WINDOWS\explorer.exe /root /select, strdossier", 1)
End If
 
 
Fichiers_TraitementErr:
MsgBox "Erreur : #" & Err.Number & " : " & Err.Description, vbCritical, "Access Référence"
Exit Sub

Pouvez-vous m'indiquer comment modifier le code afin de pointer sur mon répertoire défini par la variable "strdossier", ou de m'indiquer un autre code permettant d'arriver un même résultat.

Vous remerciant par avance,

Julien

[EddiGordo]

Bonjour,

Peut être plus simplement :

Code :

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

1
2
 
     retval = Shell ("C:\WINDOWS\explorer.exe "& strdossier)

[JULIEN_92]

Merci beaucoup, cela fonctionne ! C'est dingue de rester bloquer sur une petite ligne de code comme cela ! Je croyais avoir essayé toutes les syntaxes.

Julien

[mout1234]

Si c'est résolu.... merci de cliquer sur