Discussion :

[kesimon63]

Bonjour à tous !

J'ai un problème, mon entreprise va bientôt migrer d'office 2002 à office 2010.
J'ai une macro très importante que j'ai donc voulu testé avant la migration et là paf ! marche pas !
Erreur Automation L'objet invoqué s'est déconnecté de ses clients ! Super !
J'ai donc gratté depuis 8h ce matin pour comprendre pourquoi.
(Inutile de me renvoyer vers la page support de microsoft je ne comprend pas l'explication qu'ils y donnent.)

Une explication sur la macro s'impose car elle va chercher certains fichiers (fic_k) copie les feuilles et les colle dans un autre fichier (fic_2).
La macro fonctionne sous 2002 dans tous les cas, et sous 2010 dans beaucoup de cas. Mais dans certains cas de fic_k elle se bloque à la copie des feuilles et m'affiche cette erreur.

Quelqu'un aurait-il une idée là-dessus ? siouplé.

[mercatog]

Bonjour
Tu consens que sans code, c'est difficile d'essayer de te répondre concrètement.

[kesimon63]

Ok je m'en doutais mais la macro est assez longue, pour le moment je vais donc juste mettre la ligne sur laquelle ca plante.

Code :

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

1
2
3
 
Workbooks(fic_k).Sheets(Evaluate("transpose(ROW(1:" & e & "))")).Copy _
                     after:=Workbooks(fic2).Sheets(f)

Dites moi s'il en faut vraiment plus.

[mercatog]

En pas à pas, qu'est ce que te donne ceci (étrange pour moi)

Code :

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

1
2
Tmp = Evaluate("transpose(ROW(1:" & e & "))")
Debug.Print Tmp & vbTab & e

[kesimon63]

Erreur du debug.print !

Normal car le Evaluate("transpose...

sert à importer plusieurs feuilles en même temps, il donne donc un tableau vertical avec les valeurs 1 à x que la fonction copy interprète comme la liste des numéros des feuilles du classeur à copier.
Si je fait Debug.print tmp(i) là ca me met bien les valeurs de 1 à e.

[mercatog]

Ah oui, désolé, je vois maintenant, tu veux copier les feuilles de 1 à e dans un autre classeur.