Discussion :

[FRIGAUX]

Quelqu'un peut il me donner l'expression pour : à partir d'un bouton de mon
formulaire acceder (comme on le fait avec explorer) au répertoire du même nom qu'un contrôle de mon formulaire ex :

mon formulaire est ouvert sur la fiche 2912 , en cliquant sur un bouton je veux qu'il me lance explorer et qu'il m'ouvre le répertoire 2912

Merci de me répondre

FRIGAUX Rémi

[pgz]

Bonjour.

La fonction OuvrirUnFichier que tu trouveras en FAQ ici, te permet d'ouvrir une fenêtre d'explorateur.
De plus cette fonction permet de définir le répertoire d'ouverture.

Bon courage,

PGZ

[FRIGAUX]

.....de m'avoir mis sur la piste , ja vais chercher

Rémi

[alassanediakite]

Salut
Je te propose la solution donnée par Maxennce Hubich (la proposition n'engage que moi).
Tu copie ce code dans la partie déclaration du module du formulaire

Code :

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

1
2
3
4
 
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

A l'événement qui doit ouvrir ton répertoire tu met ce code

Code :

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

ShellExecute Me.hwnd, vbNullString, Me.[le nom du champs conténant le chemin de ton répertoire], "", vbNullString, 1

La proposition de pqz à ma connaissance cherche un fichier et non un répertoire!
Bonne continuation

[Mahefasoa]

Salut Rémi,

Pour être encore plus simple, la fonction shell te permets d'exécuter n'importe quoi. Voici sa syntaxe:

Code :

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

Shell(chemin,[styleFenêtre])

Il faut savoir que pour ouvrir n'importe quel dossier, Windows utilise le programme nommé EXPLORER.EXE, donc l'association EXEPLORER.EXE et le chemin et nom du dossier à ouvrir permet d'ouvrir ce dernier.
Si par exemple, je veux ouvrir le dossier principal de mon disque C, j'écrirais

Code :

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

explorer.exe c:\

Si on résume:

Code :

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

exeplorer.exe chemin\nom de dossier

Bien sûr, ceci est masqué par Windows à chaque fois tu double clique sur un dossier.
Pour simplifier alors, à l'événement sur clic de ton bouton tu peux ajouter le code suivant:

Code :

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

1
2
3
4
 
Private Sub Commande1_Click()
   Shell "explorer.exe le_chemin_de_ton_dossier\le_nom_de_ton_dossier", vbMaximizedFocus
End Sub

Simulons: si le nom du dossier serait contenu dans le champ Fiche de ton formulaire, et ce dossier se trouverait dans le disque D: par exemple, alors ton code est:

Code :

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

1
2
3
4
 
Private Sub Commande1_Click()
   Shell "explorer.exe D:\" & Me.Fiche, vbMaximizedFocus
End Sub

Et c'est tout!
Toutefois, le problème qui pourrait se poser est le fait qu'il est [quelques fois] requis de mentionner le chemin où se trouver l'application EXPLORER.EXE. Par défaut il se trouve dans le dossier C:\WINDOWS. Il se peut que ton système d'exploitation ne se trouve pas dans ce dossier là mais dans un autre dossier comme D:\WINXP (par exemple). Il devient nécessaire d'ajouter le chemin du dossier WINDOWS. Il y a une fonction qui nous permet de le savoir en utilisant les API.
Dans la ligne déclaration du module de classe (car si c'est un module globale, change Private en Public), ajoute le code suivant

Code :

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

1
2
3
4
 
'Emprunté de <a href="http://access.developpez.com/faq/?page=CheminsRep#windows_dir" target="_blank">http://access.developpez.com/faq/?pa...ep#windows_dir</a>
Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" _
    (ByVal lpBuffer As String, ByVal nSize As Long) As Long

Cette fonction (GetWindowsDirtectory) permet de savoir le chemin où WINDOWS est installé dans l'ordinateur.
Ajoute ensuite en dessous le code suivant:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
'Emprunté de <a href="http://access.developpez.com/faq/?page=CheminsRep#windows_dir" target="_blank">http://access.developpez.com/faq/?pa...ep#windows_dir</a>
Private Function GetWindowsDir() As String
 
   Dim buffer As String * 256
   Dim Length As Long
   Length = GetWindowsDirectory(buffer, Len(buffer))
   GetWindowsDir = Left(buffer, Length)
 
End Function

Cette fonction est utilisée pour extraire le chemin du dossier WINDOWS, le résultat de cette fonction est donc ce chemin même!
Et à notre code de début, ajoute cette fonction et le code devient:

Code :

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

1
2
3
4
 
Private Sub Commande1_Click()
   Shell GetWindowsDir & "\explorer.exe le_chemin_de_ton_dossier\le_nom_de_ton_dossier", vbMaximizedFocus
End Sub

Avec notre simulation plus haut, ce code devient

Code :

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

1
2
3
4
 
Private Sub Commande1_Click()
   Shell GetWindowsDir & "\explorer.exe D:\" & Me.Fiche, vbMaximizedFocus
End Sub

Il reste un souci quand même: est ce que les dossiers à ouvrir se trouvent dans un même dossier, c'est à dire, leur chemin est-il unique? Dans ce cas, il n'y a pas de problème. Mais sinon, il te faut aussi prévoir d'effectuer une recherche récursive du dossier à ouvrir et une fois trouvé, l'ouvrir en intégrant dans le code son chemin.
Mais ceci est une autre histoire.

Bon courage et @+

[DelphiManiac]

Et je rajouterais, pour que l'explorateur s'ouvre sous forme d'explorateur, c'est à dire avec l'arborescence à gauche, il faut utiliser :

Code :

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

1
2
3
 
explorer <nom du chemin>,/e
explorer c:\,/e

[FRIGAUX]

comment j'exprime dans votre programme la variable N° de dossier qui est apparent dans un contrôle de ce formulaire : est ce que l'expression :
Forms![nom Formulaire]![nom contrôle] est correcte pour exprimer le n° de dossier ?

[Mahefasoa]

Salut,

comment j'exprime dans votre programme la variable N° de dossier qui est apparent dans un contrôle de ce formulaire : est ce que l'expression :
Forms![nom Formulaire]![nom contrôle] est correcte pour exprimer le n° de dossier ?

Oui c'est correcte mais en code, mieux vaut utiliser Me.NomContrôle
Un point à mettre au claire:
Me représente le formulaire en cours
Alors pour désigner le contrôle contenant le numéro de dossier, tu écriras

Code :

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

1
2
 
Me.Nom_Contrôle_Contenant_le_Numéro_du_dossier

Donc pour le code (avec l'amélioration de Delphimaniac), le dernier code est:

Code :

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

1
2
3
4
Private Sub Commande1_Click()
   Shell GetWindowsDir & "\explorer.exe D:\" & Me.Nom_Contrôle_Contenant_le_Numéro_du_dossier & ",/e", vbMaximizedFocus
End Sub

Bon courage et @+