2 pièce(s) jointe(s)
Macro : Erreur Automation
Bonjour,
Depuis quelques jours, après des années d'utilisation sans problème, la macro suivante ne fonctionne plus :
Code:
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 :
Pièce jointe 598424
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" :
Pièce jointe 598425
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.
