Discussion :

[Aayoubb]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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)
LISTE.xlsx

[RyuAutodidacte]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Aayoubb]

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)

[RyuAutodidacte]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Aayoubb]

ç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?

[RyuAutodidacte]

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é