Fichier ouvert ? sinon sortir !

Résolu/Fermé
DJ FA Messages postés 50 Date d'inscription jeudi 14 décembre 2006 Statut Membre Dernière intervention 20 avril 2013 - 3 déc. 2012 à 22:23
DJ FA Messages postés 50 Date d'inscription jeudi 14 décembre 2006 Statut Membre Dernière intervention 20 avril 2013 - 3 déc. 2012 à 23:11
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.


2 réponses

eriiic Messages postés 24513 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 25 mars 2023 7 168
3 déc. 2012 à 22:56
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
0
DJ FA Messages postés 50 Date d'inscription jeudi 14 décembre 2006 Statut Membre Dernière intervention 20 avril 2013
3 déc. 2012 à 23:11
Excellent, ça fonctionne, merci.
0