Discussion :

[Patoche07]

Bonjour,

J'aurai besoin de votre aide, en effet j'aimerai ouvrir un fichier à partir de son chemin écrit dans une cellule excel
J'aimerai que l'utilisateur écrive le chemin du fichier dans la cellule A2 par exemple et que lorsque je lance la recuperation du fichier, il se serve de la case A2 pour aller le chercher.


Pourriez-vous m'indiquer la façon de procéder
Merci Beaucoup

Patoche07

---

Fichiers joints dans les discussions

---

[goldstar]

Bonjour,

un truc du genre

Code :

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

1
2
3
4
5
6
7
8
Dim leFichier As String
 
Set sh = CreateObject("WScript.Shell")
Set fs = CreateObject("Scripting.FileSystemObject")
leFichier = Sheets("Feuil1").Range("F3")
Set fich = fs.getfile(leFichier)
leFichier = fich.shortpath
sh.Run leFichier

Cordialement,

[Menhir]

Tu ajoutes une première fois en A un lien hypertexte vers un de tes fichiers (juste pour créer le lien).
Clic droit > Lien hypertexte

Ensuite, tu vas dans l'éditeur VBA et dans la feuille contenant ta cellule A2, tu place le code :

Code :

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

1
2
3
4
Private Sub Worksheet_Change(ByVal Target as Range)
    if Target.Address <> "$A$2" Then Exit Sub
    Range("A2").Hyperlinks(1).Address = Range("A2").Value & "\MonFichier.pdf"
End Sub

Change MonFichier.pdf par le nom du fichier que tu veux atteindre

A partir de là, chaque fois que quelqu'un changera le contenu de A2, le lien hypertexte se recréera en fonction.
Donc, en cliquant sur le texte de cette cellule, tu ouvriras ton fichier.