Re : Lien hypertexte vers PDF qui changent de nom
ok j'ai bien mis comme vous disiez il me semble.
Private Sub Workbook_Open()
Dim MonLien As Hyperlink
For Each MonLien In Sheets("Feuil1").Hyperlinks
MsgBox "MonLien.Address=""" & MonLien.Address & """," & vbLf & "MonLien.SubAddress=""" & MonLien.SubAddress & """."
Stop
If Dir("C:/Documents and Settings/Administrateur/Bureau/Liens vers PDF 2013/" & Left(MonLien.Address, InStrRev(MonLien.Address, "/"))) <> _
Right(MonLien.Address, Len(MonLien.Address) - InStrRev(MonLien.Address, "/")) Then
MonLien.Address = Dir("C:/Documents and Settings/Administrateur/Bureau/Liens vers PDF 2013/" & Left(MonLien.Address, InStrRev(MonLien.Address, "/")))
End If
Next MonLien
End Sub
Les liens ont changés car je suis chez moi.
Et cette fois-ci j'ai un message d'erreur à l'ouverture...c 'est bon signe, car il y a une réaction.
Message d'erreur :
Monlien.Adress="",
Monlien.SubAdress="",
Le VBA s'ouvre et le STOP est surligné en jaune avec la flèche avant.
Cela vous aide?