localiser un fichier sur le disque dur

[bomagicmusic]

Bonjour,

J'ai crée un user form qui permet d'ajouter des documents.Voir fichier ci-joint. je voudrais que les utilisateurs spécifient l'emplacement de leur document sur le réseau pour creer un lien automatique mais je ne sais pas s'il existe un control "type explorateur" ou un code VBA. je vous remercie.

 

[myDearFriend!]

Re : localiser un fichier sur le disque dur

Bonjour bomagicmusic,

Je pense que le méthode GetOpenFileName est ce que tu cherches :

[COLOR=NAVY]Sub[/COLOR] Traitement()
[COLOR=NAVY]Dim[/COLOR] Chemin [COLOR=NAVY]As Variant[/COLOR]
      Chemin = Application.GetOpenFilename("Fichiers Excel (*.xls), *.xls")
      [COLOR=NAVY]If[/COLOR] Chemin = [COLOR=NAVY]False Then Exit Sub[/COLOR]
      MsgBox "Chemin à considérer : " & Chemin 
[COLOR=NAVY]End Sub[/COLOR]

Cordialement,

 

[bomagicmusic]

Re : localiser un fichier sur le disque dur

Merci de ta réponse, ce que je ne comprends pas c'est l'endroit où je dois mettre le code parce que dans mon user form je peux rajouter un bouton mais le code commence par Private Sub CommandButton_Click(). Pourrais-tu m'aider? Merci

 

[JCGL]

Re : localiser un fichier sur le disque dur

Bonjour à tous,
Bonjour Didier 🙂,

Bomagicmusic : pas certain que cela réponde à ta question (pas d'USF...)

A++
A+ à tous

 

[bomagicmusic]

Re : localiser un fichier sur le disque dur

Bonjour et merci de ton aide. La solution que tu proposes ressemble à ce que je cherche. Je voudrais que l'utilisateur indique l'emplacement de son fichier pour cela il clique sur un bouton d'un user form mais je souhaite également récupérer ce chemin sur une cellule...

 

[JCGL]

Re : localiser un fichier sur le disque dur

Bonjour à tous,

Toujours sans USF... mais collage du chemin en A1

Option Explicit

Sub Traitement()
Dim Chemin As Variant
      Chemin = Application.GetOpenFilename("Fichiers Excel (*.xls), *.xls")
      If Chemin = False Then Exit Sub
      MsgBox "Chemin à considérer : " & Chemin
Range("A1") = Chemin
End Sub

A+ à tous

 

[bomagicmusic]

Re : localiser un fichier sur le disque dur

J'ai réussi à reproduire ton exemple, ça marche mais les infos de la cellule A1 vont être écrasées c'est pour cela que je souhaitais passer par un user form pour créer une ligne par nouveau document. ça évite le risque de fausse manips par les utilisateurs.Une idée?

 

[tototiti2008]

Re : localiser un fichier sur le disque dur

Bonjour à tous,

pas sûr que ça réponde parfaitement à la question...

 

[JCGL]

Re : localiser un fichier sur le disque dur

Bonjour à tous,

Un essai avec archivage en A...

Option Explicit

Sub Traitement()
Dim Chemin As Variant
      Chemin = Application.GetOpenFilename("Fichiers Excel (*.xls), *.xls")
      If Chemin = False Then Exit Sub
      MsgBox "Chemin à considérer : " & Chemin
Range("A" & Range("A65536").End(xlUp).Row + 1) = Chemin
End Sub

A+ à tous

 

[bomagicmusic]

Re : localiser un fichier sur le disque dur

ça ça me plait!!! j'avais essayé mais il me manquait le "&"

Range("A" & Range("A65536").End(xlUp).Row + 1) = Chemin

Je vais me passer du userform pour l'instant

merci

 

[JCGL]

Re : localiser un fichier sur le disque dur

Bonjour à tous,

Merci de ton retour.

Je précise que le code est une adaptation du code de mDF 😉 et qu'il s'ouvre dans le répertoire où est situé le fichier mais qu'il est possible de naviguer

Au plaisir de te lire

A+ à tous