Tester Fichier

Salut,

avec ceci :

Option Explicit

Function EstOuvert(Classeur$) As Boolean
'/-- Vérifie si OUI ou NON le classeur est ouvert -----
On Error Resume Next
EstOuvert = Not Workbooks(Classeur) Is Nothing
err.Clear
End Function

Sub OuvertOuPas()

If Not EstOuvert('Classeur.xls') Then Workbooks.Open Filename:='Classeur.xls'

Workbooks('Classeur.xls').Activate
End Sub

Bonjour piep14, pat1545

Piep14, pour tester l'existence d'un fichier à un emplacement donné, tu peux utiliser la fonction Dir. Trés simple d'emploi, elle te renverra une chaine texte si le fichier existe.

Cordialement, A+