Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2016 VBA : Erreur Automation (80028029)

agrc

XLDnaute Nouveau
Bonjour à tous,

Depuis hier, un de mes fichiers de travail me permettant de compiler et retraiter des données à l'aide de macro afin de mettre à un jour un Power BI ne marche plus.
D'habitude à l'ouverture du fichier, j'avais créé une boîte de dialogue me demandant si je souhaitais lancer l'exécution de la macro et là plus rien.
Du coup en lançant manuellement les macros, je constate que le soucis semble survenir au niveau de la commande de sélection des feuilles (exemple ci-dessous mais j'ai cela à plusieurs macros composant mon module :


Après recherche, j'ai essayé pour une de ces anomalies de dupliquer l'onglet concerné, supprimer l'onglet initial et renommer à l'identique l'onglet dupliqué.
Et là étonnamment ça marche !
Mais vu que les onglets de mon fichiers sont dépendants les uns des autres, si je m'amuse à faire cela je vais me retrouver avec un paquet de #REF à corriger...

Avez-vous une autre idée pour corriger le tir? Et surtout l'origine de cette erreur soudaine?

Merci d'avance,
Antoine

 

Pièces jointes

  • 1635319920032.png
    6.9 KB · Affichages: 28

herve62

XLDnaute Barbatruc
Supporter XLD
Bonjour
Sans fichier c'est loin d'être évident !
Ensuite ce n'est pas parce que le prog s'arrête sur ce select , en plus je parie que c'est la 1ere instruction ?,
que l'erreur vienne de là c'est un peu comme le IF dans une boucle si tu omets le End If il te dis boucle for sans next ?
Toi c'est pas évident vu que tu peux pas avancer .Le seul truc c'est de changer de nom pour voir si déjà tu passes
Autrement ta méthode n'est très ....? MS préconise plutôt ça
Les SELECT sont à bannir sauf exception
VB:
Worksheets("Sheet1").Range("A1:D4").Copy _
    destination:=Worksheets("Sheet2").Range("E5")
De plus si tu fouinais un peu tu aurais pu tomber sur ça !!!! c'est assez similaire non ?
Moi je changerai comme MS la méthode de copy
err automation
 
Dernière édition:
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…