Discussion :

[bdadvi94]

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 :

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

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

[casefayere]

Bonsoir,

à tout hasard

Code :

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

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

ne suffirait pas (pas testé)

[Theze]

Bonsoir,

Je verrai plutôt ceci :

Code :

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

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é !

[bdadvi94]

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

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 ?

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 !

[Theze]

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 :

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

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é.