Discussion :

[kamilane]

Bonjour, j'aimerais savoir comment créer une macro qui puisse me rajouter dans une colonne le chemin vers le fichier portant le nom de la référence.
En clair : si dans un fichier j'ai une référence croquette_1, j'aimerais que cette macro m'affiche dans la colonne x le chemin "fichiers\pdf\croquette_1.pdf" . Et ce pour tous les enregistrements ayant un pdf correspondant. Idem pour des images.
Je n'y connais rien VBA mais pas newbie en informatique, donc j'arrive à comprendre quand on m'explique.
Merci d'avance à ceux qui pourront me prêter main forte.

[zyhack]

Bonsoir

Ca manque un peu de précision mais regarde ce code qui te donnera des bases pour commencer

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
Dim chemin As String
Dim nomFichier As String
Dim sep As String
 
'Définir le séparateur de répertoire pour éviter les erreurs
sep = Application.PathSeparator
'Définir le répertoire ou sont les pdf
chemin = "fichier" & sep & "pdf" & sep
'Définir le nom du fichier
'ex : si le nom du fichier est en cellule A12
nomFichier = Cells(12, "A") & ".pdf"
 
'vérifier si le fichier existe
If Dir(chemin & nomFichier) <> "" Then
  'si il existe on écrit le chemin et le nomFichier
  Cells(12, "X") = chemin & nomFichier
End If

[kamilane]

Merci à toi, je vais tester. Mais si je comprends bien ton script s'adresse à une cellule. Et si je veux lui faire lire toute la colonne de références afin qu'il me sorte tous les fichiers pdf correspondant quand il y en a ?
Disons que dans mes référenes, j'ai POULE, OIE, CANARD, CHIEN, VACHE et que dans le dossier pdf j'aie poule.pdf, canard.pdf, vache.pdf, la macro devrait pouvoir remplir la colonne "lien vers pdf" avec une ligne style "fichiers\pdf\poule.pdf" à la ligne POULE, et la même chose avec canard.pdf,vache.pdf. Comment mettre une variable à la place de Cells(12,A) ?

Merci d'avance

[zyhack]

Bonsoir

je m'y attendais un peu, dans ce cas il faut ajouter une boucle pour parcourir les éléments, en supposant que les noms sont dans la colonne A a partir de la ligne 2.

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
20
21
22
23
Dim chemin As String
Dim nomFichier As String
Dim sep As String
Dim boucle As Range
 
'Définir le séparateur de répertoire pour éviter les erreurs
sep = Application.PathSeparator
'Définir le répertoire ou sont les pdf
chemin = "fichier" & sep & "pdf" & sep
 
'boucle dans les nom (a adapter=
For Each boucle In Range("A2:A" & Range("A1").End(xlDown).Row)
 
  'Définir le nom du fichier
  'ex : si le nom du fichier est en cellule A12
  nomFichier = boucle.Value & ".pdf"
 
  'vérifier si le fichier existe
  If Dir(chemin & nomFichier) <> "" Then
    'si il existe on écrit le chemin et le nomFichier
    Cells(boucle.Row, "X") = chemin & nomFichier
  End If
Next

[kamilane]

Super, ça marche !!!

Merci beaucoup !
Je suppose que je fais la même chose pour les jpg en remplaçant pdf par la bonne extension et en modifiant la cellule cible et le chemin ?

[zyhack]

Je suppose que je fais la même chose pour les jpg en remplaçant pdf par la bonne extension et en modifiant la cellule cible et le chemin ?

tout à fait et si tu veux rechercher pour un même nom s'il y a un pdf et/ou un jpg tu peux le mettre dans la même boucle. ( en ajoutant une ou deux variables.

bon courage