VBA problème avec le joker "*"

Bonsoir à tous !

J'ai une macro pour générer un lien hypertexte renvoyant à un fichier de nom variable et de format variable.
Mais tous ces fichiers ont pour point commun de commencer par une référence de même type (2 lettres puis 10 chiffres)


Voilà l'extrait :

Code:

---

ActiveCell.Hyperlinks.Add anchor:=Range("G" & i), Address:="C:\Dossier\" & reference & "*.*"

---

L'exécution de la macro se passe correctement, mais lorsque je clique les liens générés, les fichiers sont introuvables : leur adresse est quelquechose du style "C:\Dossier\[référence]*.* "

VBA a compris le joker comme étant un caractère faisant partie du nom du fichier.
Comment remédier ce problème svp ?

Merci beaucoup

Bonsoir,

à tout hasard

Code:

---

........& reference & *

---

ne suffirait pas (pas testé)

Bonsoir,

Je verrai plutôt ceci :

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub Test()   Dim Fichier As String   Fichier = Dir("C:\Dossier\" & reference & "*.*")   ActiveCell.Hyperlinks.Add anchor:=Range("G1"), Address:="C:\Dossier\" & Fichier   End Sub

---

Recherche du fichier sur le disque puis passage du nom de ce dernier au chemin du lien. Retournera que le premier fichier trouvé !

Super merci beaucoup !
Ca marche impeccablement bien, tu m'as délivré d'un bel arrachage de cheveux :D

Je n'ai pas super bien compris ce que faisait la fonction "Dir", mais de ce que j'en crois, si x = Dir("un nom de fichier"), alors x contient "un nom de fichier" en String ? :weird:

Dans ton exemple, la variable Fichier contient déja le chemin C:\Dossier, alors pourquoi doit-on le réécrire après Adress:= ?


Merci encore !

Bonsoir,

La fonction Dir() ne retourne que le nom du fichier mais pour qu'elle sache où le trouver, il faut lui passer le chemin complet.
Si tu fais :

Code:

---

1 2	MsgBox Dir("C:\Dossier\" & reference & "*.*")

---

tu pourras t'en rendre compte par toi-même.
Les astérisques comme ils sont placés (avant et après le point) demandent à la fonction Dir() de retourner tous les fichiers commençant par "reference" et ayant n'importe quelle extension ! Si tu ne boucle pas, elle retourne le premier trouvé.