Macro qui ne se répéte pas
Bonjour,
J'ai mis en place une nouvelle macro dans mon tableau de suivi du courrier pour que les liens hypertext se fassent seul avec les documents pdf enregistrés dans mon dossier courrier.
La macro à fonctionne correctement mais seulement sur la première ligne de mon tableau (ligne 2) pourriez vous m'aider à régler ce pb svp :
Voici la macro :
Sub List_Hyperlink()
Dim ch, fi As String
ch = "U:\Enregistrement courrier\scans courriers arrivées DST\2020-2021\"
fi = Dir(ch)
If fi <> "" Then
I = 2
Do While fi <> ""
Cells(I, 2) = ch & fi
Cells(I, 1) = FileDateTime(Cells(I, 2))
Cells(I, 9).Hyperlinks.Add Anchor:=Cells(I, 9), Address:=ch & fi, TextToDisplay:=fi
fi = Dir
I = I + 1
Loop
End If
End Sub
Merciiiiii
Bonjour,
je ne vois pas de problème avec cette macro, Elle fonctionne correctement.
vérifie les fichiers que tu as dans le répertoire indiqué. sinon reçois-tu un message d'erreur ?
Salut,
Mercii pour ta réponse, et non pas de message d'erreur, mais les liens ne se font pas automatiquement sur mes autres enregistrements.
il n'ya que sur la ligne 2 qu'il s'est fait tout seul ensuite bien que je procède de la même manière que le 1er je nomme mes pdf : "2019_09_26_Expéditeur.pdf" mais rien ne se fait
bonjour,
apparemment il ne trouve qu'un seul fichier dans le répertoire en question. vérifie bien son contenu.
Hellooo,
Ce n'est pas ca les pdf sont bien dans le même dossier.