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

Fermé

mir.kan Messages postés 178 Date d'inscription mardi 6 septembre 2016 Statut Membre Dernière intervention 26 avril 2018 - 20 déc. 2016 à 17:08
mir.kan Messages postés 178 Date d'inscription mardi 6 septembre 2016 Statut Membre Dernière intervention 26 avril 2018 - 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

A voir également:

Accéder directement à l'emplacement d'un fichier
Fichier rar - Guide
Fichier host - Guide
Fichier iso - Guide
Comment réduire la taille d'un fichier - Guide
Comment ouvrir un fichier epub ? - Guide

3 réponses

Réponse 1 / 3

yg_be Messages postés 22781 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 13 mai 2024 1 481
20 déc. 2016 à 19:38

Qu'entends-tu précisément par "accéder à l'emplacement"? Tu veux afficher quelque-chose?

mir.kan Messages postés 178 Date d'inscription mardi 6 septembre 2016 Statut Membre Dernière intervention 26 avril 2018
21 déc. 2016 à 08:58

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

yg_be Messages postés 22781 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 13 mai 2024 1 481
21 déc. 2016 à 09:02

bonjour, tu voudrais que le fichier soit automatiquement ouvert quand le bouton parcourir est cliqué?

mir.kan Messages postés 178 Date d'inscription mardi 6 septembre 2016 Statut Membre Dernière intervention 26 avril 2018
21 déc. 2016 à 09:12

mir.kan Messages postés 178 Date d'inscription mardi 6 septembre 2016 Statut Membre Dernière intervention 26 avril 2018
21 déc. 2016 à 09:16

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

yg_be Messages postés 22781 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 13 mai 2024 1 481
21 déc. 2016 à 09:24

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

Réponse 2 / 3

yg_be Messages postés 22781 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 13 mai 2024 1 481
Modifié par yg_be le 21/12/2016 à 19:12

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.

mir.kan Messages postés 178 Date d'inscription mardi 6 septembre 2016 Statut Membre Dernière intervention 26 avril 2018
22 déc. 2016 à 09:41

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.

yg_be Messages postés 22781 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 13 mai 2024 1 481
22 déc. 2016 à 10:20

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?

mir.kan Messages postés 178 Date d'inscription mardi 6 septembre 2016 Statut Membre Dernière intervention 26 avril 2018
22 déc. 2016 à 11:33

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

Réponse 3 / 3

eljojo_e Messages postés 1155 Date d'inscription lundi 10 mai 2010 Statut Membre Dernière intervention 14 octobre 2022 153
22 déc. 2016 à 09:55

Bonjour,
Essaye ça plutot :

Sub ouvdoss(Adresse As String)
Shell "C:\WINDOWS\EXPLORER.EXE " & Adresse, vbNormalFocus
End Sub

eljojo_e Messages postés 1155 Date d'inscription lundi 10 mai 2010 Statut Membre Dernière intervention 14 octobre 2022 153
22 déc. 2016 à 10:04

Petit oubli, tu appel la fonction comme ceci :

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

ou alors

Call ouvdoss(Me.EmplacementPlan_Champ)

mir.kan Messages postés 178 Date d'inscription mardi 6 septembre 2016 Statut Membre Dernière intervention 26 avril 2018
22 déc. 2016 à 11:40

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 22781 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 13 mai 2024 1 481
22 déc. 2016 à 12:22

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 178 Date d'inscription mardi 6 septembre 2016 Statut Membre Dernière intervention 26 avril 2018
22 déc. 2016 à 13:10

Merci pour tt. Ca ne fonctionne toujours pas mais je vais essayer de m'y mettre

Discussions similaires

comment donner les droits sur fichier partage

Chemin Logo du site de la Cité de l'espace

Question PIX

Discussions similaires

Newsletters