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

mir.kan Messages postés 181 Statut Membre -
mir.kan Messages postés 181 Statut Membre - 22 déc. 2016 à 13:10

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

Afficher la suite

3 réponses

Réponse 1 / 3
yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention Ambassadeur 1 588

Qu'entends-tu précisément par "accéder à l'emplacement"? Tu veux afficher quelque-chose?
0
1. 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
2. yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention 1 588
  
  bonjour, tu voudrais que le fichier soit automatiquement ouvert quand le bouton parcourir est cliqué?
  
  0
3. mir.kan Messages postés 181 Statut Membre
  
  E
  
  0
4. 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
5. yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention 1 588
  
  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 23437 Date d'inscription Statut Contributeur Dernière intervention Ambassadeur 1 588
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
1. 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
2. yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention 1 588
  
  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
3. 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

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

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

yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention 1 588

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

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

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

3 réponses

Discussions similaires

Newsletters