Discussion :

[7ider5]

Bonjour,

J'ai une macro qui traite plusieurs classeurs se trouvant dans un même répertoire, et parfois le fichier attendu n'existe pas, je génère donc une exception mais excel m'affiche quand même le message d'erreur.

voici la ligne incriminée :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
On Error GoTo a
Workbooks.Open "" + RepS + "\" + NomFichS + ""

Et voila ce que j'ai essayé pour ne pas voir le popup d'erreur :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
On Error Resume Next    'Evite le popup d'erreur
Set Wb = Workbooks.Open("" + RepS + "\" + NomFichS + "")
On Error GoTo a

Mais cela ne marche pas, avez vous une idée du pourquoi?

Merci de votre aide.

Pierre

[mercatog]

Quelque chose dans ce sens

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
If Dir(RepS & "\" & NomFichS) <> "" Then
    Set Wb = Workbooks.Open(RepS & "\" & NomFichS)
'suite du code
    Set Wb = Nothing
Else
    MsgBox "Fichier " & RepS & "\" & NomFichS & " inéxistant"
End If

[7ider5]

Parfait!

Merci beaucoup mercatog!

P.