Discussion :

[Mugette]

rebonjour,
je voudrais savoir si il est possible d'arreter une macro automatiquement sasn la faire planter, exemple:
la macro ouvre un fichier source et prendre des données et les traiter. le but est d'ajouter une msgbox pour dire si le fichier est dans le repertoire demandé et si le fichier n'existe pas alors la macro s'arrete.

[ouskel'n'or]

Regarde dans l'aide à On error resume next (nécessite de tester l'erreur et de la gérer) ou on error goto étiquette (qui envoie au traitement d'erreur que tu souhaite ou à la fin de la macro - ce qui semble être ton voeu...)

Code :

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

1
2
3
On error resume next
'Erreur d'ouverture
if err <> 0 then exit sub

ou

Code :

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

1
2
3
4
5
6
On error goto fin
'Ta macro...
'...
Fin::
msgbox "y'a une erreur !"
end sub

A+

[SfJ5Rpw8]

Tu peu assi tester si fichier existe par une commande dir avant de le traiter...

Code :

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

1
2
3
4
5
6
7
8
9
 
st =" c:\tmp\toto.txt" ' Nom du fichier à tester
 
if Dir(st) = "" then
 
msgbox "Le fichier : " & st & " est inexitant " ,vbCritical
 
  exist sub ' fin de la procédure......
endif

[Megaxel]

Enfin, que ce soit pour telle ou telle raison, et dans une gestion d'erreur ou non, tu as compris que c'est l'instruction "Exit" qui fait ce dont tu parles.
Elle marche pour une procédure, mais aussi pour une fonction.

Code :

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

1
2
3
4
5
6
 
Sub MaProc ( )
   ...
   Exit Sub
   ...
End Sub

ou

Code :

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

1
2
3
4
 
Function MaFonction(ByVal MonParam As Variant) As Variant
   Exit Function
End Function

[Mugette]

il n'existe pas une fonction qui sort directement de la macro ? Ce serait plus simple...Exit et Stop ça ne marche pas pour ça...j'ai déjà regarder

[Megaxel]

Ça dépend à quel niveau tu te trouves. Si tu es dans la procédure principale de ton programme, un "Exit Sub", et tout s'arrête.
Par contre, si tu es dans une sous procédure, ou dans une fonction, tu devras gérer un code retour dans la procédure principale, et faire ton Exit à ce moment là.

[Mugette]

ok bah je vais opter pour un .Close de mon document et ca ira. En fait je résous un pb qui n'est pas le mien.

[Megaxel]

Ha ouais!?! Bienvenue au club!!