Hypertexte contenant une partie de la valeur d'une cellule

Bonjour tout le monde,

je suis actuellement un stagiaire dans le département RH et je dois créer une base de données des candidats.

je veux associer un dossier (contenant le CV, la LM et tout ce qu'il a envoyé dans sa candidature) à chaque candidat.

Mes dossiers en question sont nommés AAAAMMJJ_Nom_Prenom_Position

J'avais essayé de créer une macro pour rechercher et ouvrir un dossier en fonction du no, du candidat (colonne C) : j'ai pas réussi.

Je voulais insérer un HYPERTEXTE mais ma liste est assez grande je ne peux pas le faire manuellement pour chaque candidat, je veux l'automatiser mais je n'ai pas réussi en utilisant la fonction hypertexte / =hyperlink("F:\VERTRIEB\Neu\&"*"&"&C5&"&"*"\";B5)

pour le code VBA j'avais trouvé un code pour rechercher un dossier et ça marche mais je n'ai pas pu ajouter une fonction pour l'ouvrir
le code que j'ai utilisé :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Sub TEST() Dim stRep As String 'Répertoire de recherche Dim stFichier As String 'Fichier .. Dim valeur valeur = ActiveCell.Value stRep = "F:\VERTRIEB\Neu\"   stFichier = Dir(stRep & "*" & valeur & "*", vbDirectory)     If stFichier <> "" Then     MsgBox "Fichier trouvé : " & vbCrLf & stRep & stFichier Else MsgBox "Pas de fichier avec filtre : " End If   End Sub

---

Si je me suis mal expliqué sur un point je le réexplique

PS : j'utilise Office 2010 / windows 10 (en allemand)
Pièce jointe 225868

bonjour,
un exemple
Si le nom de ton dossier se trouve en A1 (AAAAMMJJ_Nom_Prenom_Position) que ton répertoire d'accès avant dossier est "F:\VERTRIEB\Neu\" et que tu veux mettre le lien en A2 :

Code:

---

1 2	ActiveSheet.Hyperlinks.Add Anchor:=Range("A2"), Address:= _ "F:\VERTRIEB\Neu\" & Range("A1") & "\", TextToDisplay:=Range("A1").Text ' ici TextToDisplay permet de faire apparaitre le lien par son nom de dossier se trouvant en A1

---

et pour faire tous les liens il faut passer par une boucle : voir ici

le message d'erreur suivant s’affiche : Impossible d'ouvrir le fichier spécifié
NB : une partie du nom du dossier se trouve en C2 ( le nom de la personne)

C'était un exemple, à toi d'adapter selon les paramètres de ton fichier
pour concaténer du texte on utlise &
donc si AAAAMMJJ est en Col A, Nom_Prénom en Col B et Position en Col C
on aura alors : Range("A2") & "_" & Range("B2") & "_" & Range("C2")

Voilà un tableau représentatif de l'exemple donnée

lignes/Colonnes	A	B	C	D
1	AAAAMMJJ	Nom_Prénom	Position	Liens
2	20160820	Nom_Prenom1	2
3	20160512	Nom_Prenom2	1
4	20161005	Nom_Prenom3	3

Ce n'est qu'un exemple alors à toi d'adapter (j'ai mis le lien en D2 par rapport au tableau exemple ci-dessus)

Code:

---

1 2 3 4 5 6

Sub test() Dim Noms As String Noms = Range("A2") & "_" & Range("B2") & "_" & Range("C2") ActiveSheet.Hyperlinks.Add Anchor:=Range("D2"), Address:= _ "F:\VERTRIEB\Neu\" & Noms & "\", TextToDisplay:=Noms End Sub

---

ça je l'ai compris merci, mais si je n'ai qu'une partie du nom de dossier, par exemple je n'ai pas la date, comment je peux faire?

est-ce que cela pourra fonctionner avec une macro pour rechercher puis ouvrir un dossier dont le nom se compose entre autres de la valeur de "C5" par exemple?

dans ce cas là il serait plus simple de faire une indexation de tes dossiers
ce post peut peut être t'intéresser : Indexation automatique des fichiers de sous dossiers spécifiques - récursivité

Merci mai ce nest pas ce que je cherche

je cherche tout simplemet a ouvrir un dossier en fonction de la valeur d une cellule

merci quand meme

tu voulais insérer des lien hypertexte afin d'ouvrir les dossier ? on est d'accord?

tout a fait

Re,
Voilà un exemple, à toi de le comprendre et à l'adapter à ton contexte

Pièce jointe 225941

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

Sub Rep_DossiersLiens() Dim path As String, currentPath As String   NP = Range(Cells(1, 2), Cells(Rows.Count, 3).End(xlUp)).Value For i = LBound(NP) To UBound(NP) Noms$ = NP(i, 1) & "_" & NP(i, 2)   path = "F:\VERTRIEB\Neu\"   currentPath = Dir(path, vbDirectory) Do Until currentPath = vbNullString If Left(currentPath, 1) <> "." And _ (GetAttr(path & currentPath) And vbDirectory) = vbDirectory Then If currentPath Like "*" & Noms & "*" Then ActiveSheet.Hyperlinks.Add Anchor:=Range("E" & i), Address:= _ path & currentPath & "\", TextToDisplay:=currentPath Exit Do End If End If currentPath = Dir() Loop If Range("E" & i) = "" Then Range("E" & i) = "Dossier non trouvé" Next Columns("A:E").AutoFit End Sub

---

Donc une fois que tu as tous les liens sur la même ligne pour chaque noms il suffit de cliquer dessus pour ouvrir le dossier

Pour une simple liste sur un fichier excel quelconque :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Sub Liste_Dossier() Dim path As String, currentPath As String   path = "F:\VERTRIEB\Neu\"   currentPath = Dir(path, vbDirectory) Do Until currentPath = vbNullString If Left(currentPath, 1) <> "." And _ (GetAttr(path & currentPath) And vbDirectory) = vbDirectory Then Debug.Print currentPath Debug.Print path & currentPath & "\" i& = i& + 1 ActiveSheet.Hyperlinks.Add Anchor:=Range("A" & i), Address:= _ path & currentPath & "\", TextToDisplay:=currentPath Range("B" & i) = Mid(currentPath, InStr(currentPath, "_") + 1, InStrRev(currentPath, "_") - InStr(currentPath, "_") - 1) End If currentPath = Dir() Loop Columns("A:B").AutoFit End Sub

---

Edit : et en cherchant bien avec une petite recherche :google: tu aurais pu trouver ceci : Shell "explorer.exe " & path & currentPath & "\", 1 (adapté à mon code)

Voilà