Test présence fichier

[max_31]

Bonjour le forum,
Je souhaite créer une macro qui ouvrira un fichier présent sur le bureau.
Pour cela, je souhaite tout d'abord faire le test de la présence ou non du fichier. Comment faire ?
Merci d'avance pour votre aide.

 

[nat54]

Re : Test présence fichier



une de mes macros fait cela dans ce fichier

 

[max_31]

Re : Test présence fichier

Merci beaucoup Nat54.
Réponse rapide, mais mise en application un peu plus laborieuse.
Mais le resultat est la, et c'est bien l'essentiel.

 

[Luki]

Re : Test présence fichier

Bonjour Max, re Nat

Peut-être plus léger, sans boucle:

Sub testPresenceFichier()
    On Error Resume Next
    Workbooks.Open Filename:="C:\Documents and Settings\Luc\Bureau\Classeur3.xls"
    If Err.Number = 0 Then
            MsgBox "Le fichier est présent"
        Else
            MsgBox "Le fichier est absent"
    End If
    On Error GoTo 0
End Sub

A+