Lien hypertexte

Bonjour, ça fait quelque jour que je cherche la solution à mon problème. dans la feuille "janvier" j'ai mis une macro au bouton "D" pour que celui-ci m'ouvre la boite de dialogue via le chemin d'accès afin de pouvoir affecter un lien hypertexte (les lien sont différents d'une cellule à l'autre) à une cellule de la colonne "G". la boite s'ouvre mais les fichier qui se trouvent dans le dossier "JANVIER 2019" n'apparaissent pas donc je ne peut pas affecter un lien dans les cellules. merci pour votre aide.

https://www.cjoint.com/c/IHAgXERKeIM

bonjour,

je suppose que tu parles de cette macro

voici un correction

Private Sub CommandButton2_Click()

Dim strFichier As String
Dim strReper As String

'Changer ici pour le bon nom de répertoire:
strReper = "Z:\BJDC\SAJDC_68\Public\BPAI 68\SUIVI DES MAILS\DEPART 2019\JANVIER 2019"

'Ouvre une fenêtre pour rechercher le fichier à mettre en hyperlien
With Application.FileDialog(msoFileDialogFilePicker) 'file et non folder
.AllowMultiSelect = False
.InitialView = msoFileDialogViewDetails
.InitialFileName = strReper
.Filters.Clear
If .Show <> 0 Then
strFichier = .SelectedItems(1)
Else
Exit Sub
End If
End With
ThisWorkbook.Worksheets(1).Hyperlinks.Add ActiveCell, strFichier 'activecell au lieu de ce que tu as mis au paravant

End Sub

Autres problème, j'ai créé un userform. le problème c'est que quand je remplit celui-ci et que que je le ferme si je vais à la cellule suivante je retrouve les même données. Or je souhaiterai un userform pour chaque cellule de la colonne "E" et intégrer des infos lié à une personne.. ce userform n'est pas crée pour remplir un tableau mais pour agir comme une info bulle. aussi je souhaiterai qu'un calendrier apparaisse dans chaque onglet de ce userform.

https://www.cjoint.com/c/IHAicdHFzHM

Rechercher des sujets similaires à "lien hypertexte"