liens hypertexte automatiques

[yfollain]

Bonjour,

Sur un sujet qui a déjà été traité :
https://www.excel-downloads.com/threads/lien-hypertexte-automatique-sous-condition.129461/

J'ai la même problématique et j'ai testé la solution de BOISGONTIER qui marche très bien pour moi aussi.

Cependant, est il possible de faire la recherche des fichiers dans des sous répertoires également, en les précisant dans le module ou autre?...

Est il également possible de créer le lien si le titre du document excel n'est pas exactement le même que celui spécifié dans le fichier? Dans mon cas, cela m'arrangerait bien car j'ai des fichiers dont parite du nom est un code qui est forcément identique, le reste des dénominations pouvant par contre avoir de légères différences...

Merci par avance du temps que vous passerez à m'aider!

 

[tototiti2008]

Re : liens hypertexte automatiques

Bonjour yfollain,

un fil qui pourrait t'intéresser :

https://www.excel-downloads.com/threads/recherche-fichiers-sur-disque.142158/

 

[yfollain]

Re : liens hypertexte automatiques

Merci beaucoup tototiti2008!

Cependant, je ne suis pas assez calé pour adapter cela à mon fichier et en plus, cela me fait penser à un autre détail...

Aussi, je joins mon fichier avec commentaires, en espérant que ce sera plus clair...

Merci!

 

[yfollain]

Re : liens hypertexte automatiques

Je ne sais pas si mon problème a une solution mais vu que je n'ai pas de réponse, je doute fortement... ;-))

 

[tototiti2008]

Re : liens hypertexte automatiques

Bonjour,

si, ton problème a une solution... en adaptant le fichier que je t'ai proposé.

cela me fait penser à un autre détail

à quoi ? je n'ai pas bien compris

 

[yfollain]

Re : liens hypertexte automatiques

Le problème c'est que je ne pense pas être assez calé en VBA pour adapter mon fichier... j'ai essayé mais sans succès...

L'autre détail, comme précisé dans mon fichier excel, est le fait que je cherche à trouver les .xls et les .doc.

 

[tototiti2008]

Re : liens hypertexte automatiques

Re,

Mais il vaut mieux ne pas le faire en fonction. La recherche dans les sous-dossiers inclus, ça peut être long, donc il vaudrait mieux un bouton pour lancer la macro

 

[yfollain]

Re : liens hypertexte automatiques

Bonjour,

Le problème est que je ne sais pas du tout comment faire...

 

[tototiti2008]

Re : liens hypertexte automatiques

Bonjour,

un essai

je suis parti du principe que dès que l'on trouve un fichier qui correspond, on arrête la recherche

 

[yfollain]

Re : liens hypertexte automatiques

Merci beaucoup tototiti2008! C'est épatant!!!

Je joins à nouveau le fichier, car il reste une dernière petite chose pour que cela soit parfait.
J'ai modifié légèrement le module, afin de prévoir l'ajout de nouvelles lignes, mais du coup il me sort le lien du dernier document trouvé sur toutes les lignes jusqu'à la fin du cadre défini. J'ai du me planter qq part. C surement simple mais pas assez pour moi...
;-))

Merci encore!

 

[tototiti2008]

Re : liens hypertexte automatiques

Re,

le mieux est de se limiter aux lignes remplies

Sub ChercheTout()
Dim Chemin As String, i As Long, Ligne As Long, Lignetot as long
Lignetot = range("A65536").end(xlup).row
    Range("G5:H" & lignetot).ClearContents
    Chemin = ThisWorkbook.Path & "\"
    LanceListe Chemin
    For Ligne = 5 To lignetot
        For i = 1 To UBound(ListeDoss)
             If ChercheDoss(ListeDoss(i), Ligne) Then Exit For
        Next i
    Next Ligne
End Sub

 

[yfollain]

Re : liens hypertexte automatiques

Mille fois merci pour cette réponse et rapidité!!!
Ca marche du tonnerre et j'ai hâte de l'adapter à mon fichier...
;-)

 

[yfollain]

Re : liens hypertexte automatiques

Bonjour,

Je suis en train d'adapter l'exemple sur mon fichier réel et j'ai un petit problème.

A titre d'exemple, lorsque le système se réfère au document I-02-15, il me trouve le VIII-02-15...

Comment modifier le code afin que cela n'arrive plus?

Merci!

 

[tototiti2008]

Re : liens hypertexte automatiques

Bonjour yfollain,

est-ce que tous les documents ont des noms qui commencent par la référence (sans rien avant) ?

 

[yfollain]

Re : liens hypertexte automatiques

Oui c'est exact, ils sont tous du type :

XXX-XXX-XXX-Nom de fichier.xls ou .doc (la première partie étant en chiffres romains)