Discussion :

[art_bras_cames]

Bonsoir à tous,

J'ai créé une macro dans laquelle je demande l'ouverture d'un fichier X.
Il arrive que ce fichier X ne soit pas fermé par l'utilisateur de la macro et cela engendre un bug. Voici les deux lignes de commande de la macro. Si le fichier est ouvert, le bug se fait sur la 1er ligne.

Code :

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

1
2
    Workbooks.Open Filename:="U:\X.xlsm"
    Windows("X.xlsm").Activate

Comment pourrais-je faire pour que si le fichier est ouvert, on passe directement à la ligne 2 et s'il est fermé alors la macro se déroule normalement et l'ouvre ?

Merci de votre réponse

[Thautheme]

Bonsoir art_bras_cames, bonsoir le forum,

Ce n'est pas la méthode la plus orthodoxe mais je fais comme ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Macro1()
Dim CL As Workbook 'déclare la variable CL (Classeur)
 
On Error Resume Next 'gestion des erreurs (en cas d'erreur passe à la ligne suivante)
Set CL = Workbooks("X.xlsm") 'définit le classeur CL (génère une erreur si ce classeur n'est pas ouvert)
If Err <> 0 Then 'condition : si une erreur a été générée
    Err.Clear 'efface l'erreur
    Workbooks.Open Filename:="U:\X.xlsm" 'ouvre le classeur
    Set CL = ActiveWorkbook 'définit le classeur CL
End If 'fin de la condition
On Error GoTo 0 'annule la gestion des erreurs
CL.Activate 'active le classeur
End Sub

[Marc-L]

Bonsoir, bonsoir !

Là encore, sujet récurrent, suffit d'une p'tite recherche et voilà ! (équivalent à Robert)

__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …