Discussion :

[ch16089]

Bonjour,

Depuis quelques jours, après des années d'utilisation sans problème, la macro suivante ne fonctionne plus :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Load_Data()
    Workbooks.Open Filename:="T:\La Bourse\PEA.Isin\Test.DBF"
    Columns("A:N").Select
    Selection.Copy
    Windows("Test.xlsm").Activate
    Sheets("Test").Select
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A2").Select
    Windows("Test.dbf").Activate
    ActiveWindow.Close
    Sheets("Graph1").Select
End Sub

Le message d'erreur suivant s'affiche :


Le débogage pointe en ligne 6 sur l'instruction "Sheets("Test").Select"
Le classeur comporte un onglet graphique "Graph1" et un onglet feuille de calculs "Test".

Cette macro est bien dans les modules du classeur, mais elle n'apparait pas dans la fenêtre "Afficher les macros" :


Les 2 problèmes sont peut-être liés.

Ma configuration est :

Windows 10 Famille 20H2 19042.985
Microsoft® Excel® 2016 MSO (16.0.13929.20206) 32*bits

Merci pour votre aide.

Bien cordialement.