Fichier ouvert ? sinon sortir !

Résolu
-  
-
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

Réponse 1 / 2
eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 276
 
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
Réponse 2 / 2

 
Excellent, ça fonctionne, merci.
0

Discussions similaires

Supprimer un fichier ouvert dans systeme.
kakashiles -
yly -

12 réponses