[vbexcel]Comment stopper une macro sans la planter.

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.

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:

---

1 2 3

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

---

ou

Code:

---

1 2 3 4 5 6

On error goto fin 'Ta macro... '... Fin:: msgbox "y'a une erreur !" end sub

---

A+

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

Code:

---

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

---

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:

---

1 2 3 4 5 6

Sub MaProc ( ) ... Exit Sub ... End Sub

---

ou

Code:

---

1 2 3 4

Function MaFonction(ByVal MonParam As Variant) As Variant Exit Function End Function

---

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

Ç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à.

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.

Ha ouais!?! Bienvenue au club!!
:D