Re : controler si le fichier existe
re bonjour,
bon je viens de constater qu'il y a eu du menage sur le message car je suis retombé sous les 1000 sniff,. enfin ce n'est pas tres garve.
Sinon pour mon pb j'ai mis:
Dim reg As String 'nom du fichier
Dim Chem As String ' le nom du repertoire
Dim cel As Range 'la cellule concerné par la boucle
Dim fich As String ' le chemin du fichier complet
Chem = ThisWorkbook.Path & "\"
For Each cel In Range("D10
" & Range("D65356").End(xlUp).Row)
reg = cel.Value
fich = Chem & reg
If Dir(fich) <> "" Then
cel.Offset(0, 1).Value = "ok"
Else
cel.Offset(0, 1).Value = "Error"
End If
Next cel
quelqu'un peut me valider le code?
merci et bonne journée