Lien hypertexte qui envoie directement dans un dossier
Résolu/Fermé
Kuartz
Messages postés
850
Date d'inscription
vendredi 13 février 2015
Statut
Membre
Dernière intervention
15 février 2019
-
16 sept. 2015 à 10:15
Kuartz Messages postés 850 Date d'inscription vendredi 13 février 2015 Statut Membre Dernière intervention 15 février 2019 - 17 sept. 2015 à 14:12
Kuartz Messages postés 850 Date d'inscription vendredi 13 février 2015 Statut Membre Dernière intervention 15 février 2019 - 17 sept. 2015 à 14:12
A voir également:
- Créer un lien hypertexte vers un dossier
- Créer un compte gmail - Guide
- Créer un compte google - Guide
- Créer un lien pour partager des photos - Guide
- Créer un groupe whatsapp - Guide
- Créer un compte instagram - Guide
3 réponses
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
728
17 sept. 2015 à 11:30
17 sept. 2015 à 11:30
comme ceci:
Sub RechercheFichier() Dim fd As FileDialog Dim NomFichier As String Dim nom As String Dim tmpStr Set fd = Application.FileDialog(msoFileDialogFilePicker) With fd .Filters.Add "Pdf", "*.pdf" .Title = "Recherche de fichier" .InitialFileName = "K:\ATTESTATION PERMANENTES LG FRET EUROPE" End With If fd.Show = -1 Then NomFichier = fd.SelectedItems(1) 'si tu veux récupérer le nom du fichier : tmpStr = Split(NomFichier, "\") tmpStr = tmpStr(UBound(tmpStr)) tmpStr = Replace(tmpStr, ".pdf", "") nom = tmpStr ActiveCell.Formula = "=HYPERLINK(""" & NomFichier & """,""" & nom & """)" Set fd = Nothing End Sub