Lien hypertexte avec variable en VBA Résolu

Question

Bonjour,

J'ai besoin de votre aide pour créer un lien hypertexte par macro dans Excel. 

A priori c'est très facile, sauf que je ne connais que le début du nom du fichier (par exemple, VARIABLE 10).

Le fichier peut en réalité s'appeler effectivement VARIABLE 10.xls, mais il peut aussi s'appeler VARIABLE 10 *.xls (avec un espace après le 10), ou encore VARIABLE 10_*.xls, ou pour finir VARIABLE 10-.xls.

J'ai bien essayé avec un like 10*, mais s'il existe un fichier VARIABLE 101, le lien est totalement faussé.

Il faut donc que je cherche le fichier qui s'appelle VARIABLE 10.xls
Si je ne le trouve pas, je dois chercher celui qui contient VARIABLE 10 *.xls (avec un espace après le 10).
Si je ne le trouve pas, je dois chercher celui qui contient VARIABLE 10_*.xls. 
Et si je le trouve toujours pas, je dois chercher celui qui contient VARIABLE 10-.xls

Et pour compliquer le tout, si je ne trouve rien dans mon dossier ANCIEN, je dois rechercher dans mon dossier NOUVEAU...

Je suis conscient qu'il faudrait commencer par harmoniser le nom des fichiers, malheureusement c'est un autre service qui s'en occupe, je ne peux pas y toucher.

Quelqu'un aurait-il une solution pour moi ?

Merci beaucoup !

jordane45 · Answer

Bonjour,

Vu que tu n'as, visiblement, que quelques combinaisons possibles (avec ou sans espace, un underscore, un tiret .....) quelques IF suffiraient à traiter ton besoin non ?

A la limite, tu commences par lister ( via un 10* ) tous les fichiers...
Puis tu boucles sur cette liste pour voir si l'un d'eux correspondront à une des combinaison recherchées.
Si oui.. tu as trouvé ton fichier ....
Si non.. tu fais la même chose dans ton autre répertoire.

1Globule · Answer

Merci pour ta réponse.

C'est une idée que j'ai exploitée en partie mais elle me semble un peu compliquée malgré tout... ou alors je ne sais pas très bien comment structurer le code (fort possible aussi).

Serait-il possible, c'est une autre idée, de donner à ma variable plusieurs noms ?
C'est-à-dire la définir en tant que VARIABLE 10 ou VARIABLE 10[] ou VARIABLE 10_ ou VARIABLE 10- ?
Et si un fichier correspond à un des noms de ma variable, je crée le lien dessus.

michel_m · Answer

Bonjour à tous

Peut-^tre une possibilité pour tester le "10" tout seul  si espace entre variable et le reste du nom de fichier en utilisant "Split"
Option ExplicitDim Verif As Boolean'--------Function essai_like(fich As String) As BooleanDim separe_esp, separe_pntsepare_esp = Split(fich)separe_pnt = Split(separe_esp(1), ".")If separe_pnt(0) = "10" Then    essai_like = TrueElse    essai_like = FalseEnd IfMsgBox fich & " " & essai_likeEnd Function 
et une macro -test pour seulement vérifier la fonction 
'-----------Sub test()Dim Cptr As Byte, nomfichier As StringFor Cptr = 1 To 3    nomfichier = Choose(Cptr, "variable 101.xls", "variable 10.xlsx", "variable 10_.xls")    essai_like (nomfichier)    If Verif = False Then MsgBox nomfichier & " non valable"NextEnd Sub

1Globule · Answer

Pour l'instant voici le code que j'utilise mais qui parfois pointe vers de mauvais fichier (VARIABLE 101 au lieu de VARIABLE 10).

Sub Lien()Dim nomC As String    nomC = Dir("C:\ANCIEN\" & ActiveCell.Value & "*.xls")    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="C:\ANCIEN\" & nomC    If nomC = "" Then        nomC = Dir("C:\NOUVEAU\" & ActiveCell.Value & "*.xls")        ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="C:\NOUVEAU\" & nomC    End IfEnd Sub

michel_m · Answer

Je te remercie de m'avoir fait perdre du temps avec une demande erronée


et aussi c'est très sympa de m'avoir dit Merci pour avoir essayé de t'aider

jordane45 · Answer

Bonjour,

Nous aussi (pour la plus part...) nous aidons entre deux appels, demandes de collègues... bref.. pendant notre travail !
Ca ne nous empèche pas d'être précis !!!

Bref...

Voici avec une expression régulière (les REGEX)

Sub test()
    Dim startFileName As String
    Dim objFSO As Object
    Dim objRegExp As Object
    Dim targetFolder As String
    Dim strPattern As String
    
    startFileName = "VARIABLE 10" ' debut du nom du fichier à trouver
    targetFolder = "c:\TEMP\ANCIEN\" ' chemin ou chercher
    
    strPattern = startFileName & "([\-_\W]).*.xlsx"
    
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objRegExp = CreateObject("VBScript.RegExp")
    objRegExp.Pattern = strPattern
    objRegExp.IgnoreCase = True

'Get the folder object associated with the target directory
    Set objFolder = objFSO.GetFolder(targetFolder)

'Loop through the files current folder
    For Each objFile In objFolder.Files
        If objRegExp.test(objFile) Then
            'fichier trouvé !
            'ici tu créés ton lien hypertext
            '...
            Debug.Print "fichier trouvé : " & objFile
        End If
    Next

'Garbage Collection
    Set objFSO = Nothing
    Set objRegExp = Nothing

End Sub

NB : Pour que ça fonctionne .. tu dois activer la référence Microsoft Visual Basic Regular Expression x.x ( mois c'est la 5.5 )
Voir un tuto sur les epxressions régulères en VBA : https://analystcave.com/excel-regex-tutorial/

1Globule · Answer

Jordane45,

Cette solution semble résoudre le problème d'après les premiers tests, je vais maintenant l'adapter aux contenus de cellules et chercher sur le dossier NOUVEAU en cas d'introuvé dans ANCIEN.

Je vais aussi regarder cette après-midi le tuto sur les expressions régulières, je pense avoir compris le principal.

En plus, je crois que la fonction split indiquée par Michel va peut-être pouvoir me servir pour un autre projet, il faut que je creuse un peu pour vraiment tout comprendre et essayer de m'en servir.

Merci à tous les deux pour le temps passé à aider les autres, et bravo si vous parvenez à le faire au milieu de vos collègues (pas toujours simple, moi j'ai du mal mais vous avez compris).

Très bonne journée à vous!

Lien hypertexte avec variable en VBA

7 réponses

Discussions similaires

Newsletters