savoir si un fichier existe

[benjamin]

bonjour, j'ai un petit problème, j'essaye de faire une macro qui si tel fichier existe il se passe qqc mais malheureusement j'arrive pas a le faire marcher.
il faut chercher l'erreur

Sub ajouttesthypertxt()
Dim Addr, A As Variant
Dim cell As Range
Addr = ThisWorkbook.Path & '\\Docs\\'
For Each cell In Range('F2:F310')
A = cell.Value
If Dir(Addr & A & '.pdf') Then
ActiveSheet.Hyperlinks.Add Anchor:=cell.Offset(0, -1), Address:=Addr & cell & '.pdf'
End If
Next
End Sub

j'ai ce code pour commencer mais je pense qu'il y a des trucs faux pke ca ne marche pas

merci

 

[Papaye]

Bonjour,

essaye avec Application.FileSearch

Papaye

 

[Creepy]

RE bonjour le Forum et à vous deux !

Je me suis permis de corriger ton code Benjamin et d'y apporter quelques conseils qui je l'espère te seront utiles

Tout est dans la pièce jointe.

@+

Creepy [file name=test_20060517142028.zip size=6303]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/test_20060517142028.zip[/file]

 

[benjamin]

bonjour Creepy, Papaye
merci beaucoup j'avais pas vraiment compris fonctionnait la fonction dir
maintenant c bon je vois le truc