Accéder directement à l'emplacement d'un fichier

mir.kan Messages postés 181 Statut Membre -  
mir.kan Messages postés 181 Statut Membre -
Bonjour,

Est qu'il est possible d'acceder directement à l'emplacement d'un fichier sur mon formulaire quand je clique sur le bouton parcourir.
Par exemple une fois choisie l'emplacement de mon fichier sur cette capture
,j'aimerais en cliquant sur le bouton parcourir d'accéder directement à l'emplacement de mon fichier

merci d'avance
A voir également:

3 réponses

Réponse 1 / 3
yg_be Messages postés 24281 Statut Contributeur Ambassadeur 1 584
 
Qu'entends-tu précisément par "accéder à l'emplacement"? Tu veux afficher quelque-chose?
0
mir.kan Messages postés 181 Statut Membre
 
Bonjour yg_be , j'aimerais qu'en cliquant sur le bouton parcourir qu'on accède directement à mon fichier résumé du projet de la semaine comme de la capture
0
yg_be Messages postés 24281 Statut Contributeur 1 584
 
bonjour, tu voudrais que le fichier soit automatiquement ouvert quand le bouton parcourir est cliqué?
0
mir.kan Messages postés 181 Statut Membre
 
E
0
mir.kan Messages postés 181 Statut Membre
 
en temps normal, il m'ouvre automatiquement la boite des dialogues si mon champ emplacement est vide et quand mon champ n'est pas vide j'aimerais qu'il accède directement à l'emplacement de mon fichier

Private Sub ParcourirEmplacementPlan_Bouton_Click()
On Error Resume Next
With Application.FileDialog(msoFileDialogOpen)
.AllowMultiSelect = False
.Show
Me.EmplacementPlan_Champ = .SelectedItems(1)
End With
End Sub
ce code c'est dans le cas où l'emplacement est vide
0
yg_be Messages postés 24281 Statut Contributeur 1 584
 
Tu veux que la boîte de dialogue présente l'emplacement du fichier?
Tu peux utiliser : 
With Application.FileDialog(msoFileDialogOpen) 
.AllowMultiSelect = False 
.InitialFileName = ...
.Show
0
Réponse 2 / 3
yg_be Messages postés 24281 Statut Contributeur Ambassadeur 1 584
 
Tu n'as toujours pas expliqué précisément pourquoi tu voulais ouvrir cet emplacement? C'est pour permettre à l'utilisateur de choisir un autre fichier au même endroit?
Et ceci? 
option explicit
Private Sub ParcourirEmplacementPlan_Bouton_Click()
dim chemin as string, fichier as string
On Error Resume Next
fichier=Me.EmplacementPlan_Champ
With Application.FileDialog(msoFileDialogOpen)
      If (fichier <> "") Then
           chemin=left(fichier, InStrRev(fichier, "/")-1)
           .InitialFileName = chemin
      end if
      .AllowMultiSelect = False
      .Show
       Me.EmplacementPlan_Champ = .SelectedItems(1)
End With
End Sub
Cela nous permettrait de mieux t'aider si tu étais plus explicite.
0
mir.kan Messages postés 181 Statut Membre
 
Bonjour, ca ne marche toujours pas. Peut être que j'ai mal expliqué .

Je donne un exemple. Si mon fichier se trouve dans /document/km/le nom de mon fichier, j'aimerais me placer sur l'emplacement où est stocké mon fichier si toute fois je clique sur le bouton parcourir. Donc le bouton parcourir va aller dans /document/km/le nom de mon fichier et s'arrête juste au nom de mon fichier.
0
yg_be Messages postés 24281 Statut Contributeur 1 584
 
Qu'est-ce qui ne marche pas? Comment se comporte le code que je t'ai passé?
Tu n'expliques pas ce que tu veux.
Explique peut-être à quoi cela sert, que va faire l’utilisateur ensuite, une fois que l'ordinateur aura affiché le fichier dans son dossier.
Le bouton parcourir sert à quoi? A permettre à l'utilisateur de naviguer dans les dossiers pour choisir un fichier, ou cela sert à autre chose?
0
mir.kan Messages postés 181 Statut Membre
 
Ce bouton me permet non seulement de choisir mon fichier mais aussi si le fichier a été déjà choisi de retrouver son emplacement.

votre code ne retrouve pas l'emplacement de mon fichier
0
Réponse 3 / 3
eljojo_e Messages postés 1255 Statut Membre 155
 
Bonjour,
Essaye ça plutot : 

Sub ouvdoss(Adresse As String)
Shell "C:\WINDOWS\EXPLORER.EXE " & Adresse, vbNormalFocus
End Sub
0
eljojo_e Messages postés 1255 Statut Membre 155
 
Petit oubli, tu appel la fonction comme ceci : 

Call ouvdoss("C:\Documents and Settings\perso\Bureau\")

ou alors 
Call ouvdoss(Me.EmplacementPlan_Champ)
0
mir.kan Messages postés 181 Statut Membre
 
slu eljojo,

Où pourrais je ajouter ton code dans le mien : 

Private Sub ParcourirEmplacementPlan_Bouton_Click()
On Error Resume Next
With Application.FileDialog(msoFileDialogOpen)
If (Me.EmplacementPlan_Champ <> "") Then

.AllowMultiSelect = False
        .Show
        .InitialFileName = Me.EmplacementPlan_Champ

Else

.AllowMultiSelect = False
        .Show
        Me.EmplacementPlan_Champ = .SelectedItems(1)
End If

End With

End Sub
0
yg_be Messages postés 24281 Statut Contributeur 1 584
  
Private Sub ParcourirEmplacementPlan_Bouton_Click()
On Error Resume Next
With Application.FileDialog(msoFileDialogOpen)
If (Me.EmplacementPlan_Champ <> "") Then
    Call ouvdoss(Me.EmplacementPlan_Champ)
Else
   .AllowMultiSelect = False
        .Show
        Me.EmplacementPlan_Champ = .SelectedItems(1)
End If
End With
End Sub
Sub ouvdoss(Adresse As String)
Shell "C:\WINDOWS\EXPLORER.EXE " & Adresse, vbNormalFocus
End Sub
0
mir.kan Messages postés 181 Statut Membre
 
Merci pour tt. Ca ne fonctionne toujours pas mais je vais essayer de m'y mettre
0