Lien hypertexte qui envoie directement dans un dossier

Résolu

Lien

Kuartz Messages postés 852 Date d'inscription Statut Membre Dernière intervention -
Kuartz Messages postés 852 Date d'inscription Statut Membre Dernière intervention - 17 sept. 2015 à 14:12

Bonjour,

Ayant un fichier excel partagé, je ne peux pas utiliser la fonction hypertexte, j'ai pourtant besoin de renvoyer chaque ligne à un PDF.

J'ai donc utilisé le code suivant :

Sub LIENHYPERTEXTE()
Fichier = Application.GetOpenFilename
If Fichier = 0 Then Exit Sub
nom = Application.InputBox("Entrez le nom qui sera affiché", "DONNER UN NOM AU LIEN")
If nom = "" Or nom = 0 Then
MsgBox "Vous devez saisir un nom pour le lien", vbCritical + vbOKOnly
Exit Sub
End If
ActiveCell.Formula = "=HYPERLINK(""" & Fichier & """,""" & nom & """)"
End Sub

Problème : Lorsque je clique sur ma macro, j'arrive dans "Documents". Je souhaiterais spécifier le dossier où j'arrive directement pour gagner du temps. Tous les PDF à mettre en lien hypertexte s'y trouvent.

Merci d'avance pour votre aide.

Cordialement.

A voir également:

Lien hypertexte dossier
Lien copié - Forum Téléphones & tablettes Android
Lien url - Guide
Dossier appdata - Guide
Créer un lien pour partager des photos - Guide
Renommer un lien hypertexte - Forum Réseaux sociaux

3 réponses

Réponse 1 / 3

cs_Le Pivert Messages postés 7904 Date d'inscription Statut Contributeur Dernière intervention 729

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

Réponse 2 / 3

cs_Le Pivert Messages postés 7904 Date d'inscription Statut Contributeur Dernière intervention 729

Bonjour,

A adapter:

Sub RechercheFichier()
    Dim fd As FileDialog
    Dim NomFichier As String
 Set fd = Application.FileDialog(msoFileDialogFilePicker)
    With fd
        .Filters.Add "Pdf", "*.pdf"
        .Title = "Recherche de fichier"
        .InitialFileName = "C:\Users\.....\Documents\My eBooks"'a adapter
    End With
    If fd.Show = -1 Then NomFichier = fd.SelectedItems(1)
    MsgBox NomFichier
 Set fd = Nothing
End Sub

Kuartz Messages postés 852 Date d'inscription Statut Membre Dernière intervention 61

Bonjour cs_Le Pivert.

Merci pour cette réponse.

Simplement le fait d'avoir une MsgBox est inutile pour moi. Il faudrait qu'un lien hypertexte soit inséré, le lien amenant vers le fichier choisi.

J'avais pris le code initial sur un forum, en fait ce lien permettait d'insérer un lien en fichier partagé. Sinon c'est impossible.

Cordialement,

Kuartz Messages postés 852 Date d'inscription Statut Membre Dernière intervention 61

Ok j'ai trouvé :

Sub RechercheFichier()
    Dim fd As FileDialog
    Dim NomFichier As String
 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)
    nom = Application.InputBox("Entrez le nom qui sera affiché", "DONNER UN NOM AU LIEN")
If nom = "" Or nom = 0 Then
MsgBox "Vous devez saisir un nom pour le lien", vbCritical + vbOKOnly
Exit Sub
End If
ActiveCell.Formula = "=HYPERLINK(""" & NomFichier & """,""" & nom & """)"
 Set fd = Nothing
End Sub

Par contre, y aurait-il moyen, à la place d'entrer le nom du lien hypertexte, de prendre directement le nom du fichier en lui-même?

Réponse 3 / 3

cs_Le Pivert Messages postés 7904 Date d'inscription Statut Contributeur Dernière intervention 729

Petite correction, si l'utilisateur clique sur annuler dans la boite de dialogue:

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 "Fichier Pdf", "*.pdf"
        .Title = "Recherche de fichier"
        .InitialFileName = "K:\ATTESTATION PERMANENTES LG FRET EUROPE"
    End With
    If fd.Show = -1 Then NomFichier = fd.SelectedItems(1)
 If NomFichier <> "" Then
'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 & """)"
 End If
 Set fd = Nothing
End Sub

Kuartz Messages postés 852 Date d'inscription Statut Membre Dernière intervention 61

Parfait. Merci beaucoup pour le coup de pouce.

Discussions similaires

Ouverture liens dans nouvel onglet automatiquement

Attention - SMS Chronopost avec lien à télécharger - Bizarre

Formule EXCEL pour création de lien hypertexte par concaténation

Windows 10 ajouter raccourcis internet dans la barre des taches

J'ai cliqué sur un lien suspect

J'ai cliqué sur un lien douteux (professtanitim)

Votre réponse

Discussions similaires