Lien vers un fichier dont le nom contient le texte d'une cellule
Fermé
Diskoo
Messages postés
3
Date d'inscription
lundi 22 mai 2017
Statut
Membre
Dernière intervention
23 mai 2017
-
22 mai 2017 à 16:34
Diskoo Messages postés 3 Date d'inscription lundi 22 mai 2017 Statut Membre Dernière intervention 23 mai 2017 - 23 mai 2017 à 09:39
Diskoo Messages postés 3 Date d'inscription lundi 22 mai 2017 Statut Membre Dernière intervention 23 mai 2017 - 23 mai 2017 à 09:39
A voir également:
- Libreoffice lien vers autre fichier
- Fichier rar - Guide
- Aucune application permettant d'ouvrir ce lien n'a été trouvée ✓ - Forum Wiko
- Fichier host - Guide
- Lien url - Guide
- Fichier iso - Guide
1 réponse
Patrice33740
Messages postés
8556
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
2 mars 2023
1 778
22 mai 2017 à 16:43
22 mai 2017 à 16:43
Bonjour,
Pourquoi VBA ?
Il suffit d'une formule du style :
Pourquoi VBA ?
Il suffit d'une formule du style :
=LIEN_HYPERTEXTE("C:/MonDossier/MonSousDossier/" & "F" & A1; "Fichier F" & A1)
22 mai 2017 à 17:00
OK merci je vais essayer ça. Mais si par exemple j'ai pas que des F en suffixe ça marchera quand même ce genre de formule avec une * par exemple ?
22 mai 2017 à 17:38
En VBA au lieu du = mets un like
Modifié le 23 mai 2017 à 09:40
Les fichiers dans mon dossier portent un nom qui va plus ressembler à XXX - 1234 - YYYY.xls
Je peux uniquement récupérer le "1234" dans ma colonne A, et j'aimerai avoir un bouton ou un lien dans ma colonne B qui va fouiller dans mon dossier pour ouvrir le seul fichier contenant 1234 dans son nom. XXX et YYYY étant des suites de caractères inconnues.
Voilà le code que j'ai testé, juste pour une ligne (je rajouterai ma boucle for ensuite) :
Sub Lien()
Dim Ref As ThisWorkbook
Dim rep As String, fish As String
Set rep = "\\DISK\Dossier\"
ChDir rep
fish = Dir("*. xls")
Do While fichier <> ""
If fichier Like "*Range(A1).Value*" Then
Workbooks.Open fichier
End If
Loop
End Sub
Excel crash à chaque fois...