Bonjour,

La macro sur laquelle je travaille ouvre un classeur et le referme un peu plus loin. J'aimerais donc que la macro l'ouvre s'il ne l'est pas. Voici le code:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Option Base 1
Public dc As Workbook
 
Sub Test()
 
    Application.ScreenUpdating = False
 
    Dim data As Workbook
    Dim écr As Worksheet
 
    Set data = ActiveWorkbook
    Set écr = data.Sheets(1)
    On Error Resume Next
        Set dc = Workbooks("Fichier.xlsx")
    If Err <> 0 Then
        Set dc = Workbooks.Open("C:\Chemin\Fichier.xlsx")
    End If
    On Error GoTo 0
 
    MsgBox "That's All Folks!"
 
End Sub
Le problème, c'est que si le classeur n'est pas ouvert, la macro s'arrête après avoir ouvert ce dernier sans message d'erreur ni indication quelconque, alors qu'elle va jusqu'au bout et affiche le message de fin si le classeur "dc" est ouvert.

Une idée?

Notez que j'ai essayé sans Application.ScreenUpdating = False et que l'option de récupération d'erreur est: "Arrêt sur les erreurs non gérées".

Cordialement