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.

[nicogef]

bonjour,
peux tu mettre a dispo un fichier anonymisé *.dbf?

j'ai fait un essai avec deux fichier excel et sa fonctionne


cordialement
nicogef

[Pierre Fauconnier]

Salut.

Ca fonctionnait avant sur le même ordi? As-tu modifié ou installé quelque chose sur l'ordi?

Va voir dans Outils/Références du VBE. As-tu une référence manquante?

[ch16089]

Salut.

Ca fonctionnait avant sur le même ordi? As-tu modifié ou installé quelque chose sur l'ordi?

Va voir dans Outils/Références du VBE. As-tu une référence manquante?

Je viens de l'ouvrir sur un autre PC avec Excel 2010.
Après l'avoir enregistrer avec Excel 2010, la macro refonctionne correctement sur mon PC avec Excel 2016.
Bizarre, j'aurais bien aimé comprendre ce qui s'est passé !