Fichier ouvert ? sinon sortir ! Résolu

Question

Bonsoir, voilà j'aimerais une petite aide concernant ceci :

J'ai deux fichiers excel :

Un qui se nomme "Trier", l'autre "Lancer" (avec macro)

Quand mon fichier "Trier" est ouvert, la macro "lancer", le mets en premier plan et lance la macro sans soucis.

Windows("Trier.xls").Activate

Mais quand le fichier "Trier" n'est pas ouvert, la macro plante et donc j'aimerais simplement qu'il m'envoie un message box pour annoncer qu'il n'est pas ouvert et qu'il arrête la macro. Merci pour votre aide. 


Configuration: Windows 8 / Firefox 17.0

eriiic · Answer

Bonjour,

met un traitement d'erreur :
Sub test()
    On Error GoTo erreur
    Windows("Trier.xls").Activate
    On Error GoTo 0
    ' traitement normal
    ' ...
    Exit Sub
erreur:
    MsgBox "oulalaaaaa..."
End Sub
eric

DJ FA · Answer

Excellent, ça fonctionne, merci.

Fichier ouvert ? sinon sortir !

2 réponses

Discussions similaires

Newsletters