Collage spécial : largeur de colonne

Bonjour à tous !

Comme Ina73, j'ai un problème de collage spécial :

Avec Excel2000, dans mon classeur multifeuilles, je déclenche l'enregistreur de macro et fais ceci :

Je sélectionne des colonnes, je copie, je sélectionne une autre feuille, je "Colle spécial" pour la largeur des colonnes. Ça donne :

    Columns("B:U").Select
    Selection.Copy
    Sheets("2016").Select
    Range("B1").Select
    Selection.PasteSpecial Paste:=xlColumnWidths, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False

Ceci devrait être aussi bon :

    Columns("B:U").Select
    Selection.Copy
    Sheets("2016").Select
    Range("B1").Select
    Selection.PasteSpecial xlColumnWidths

Cependant, quand j'exécute ladite macro, j'ai une erreur 1004 sur l'instruction "Collage spéciale" ! :

Erreur d'exécution '1004' :

La méthode PasteSpecial de Ia classe Range a échoué !

Dans l'aide (F1), Collage Spécial ne documente pas Paste:=xlColumnWidths !

J'ai alors essayé avec sendkeys :

SendKeys "%Egg{enter}", True

sans succès !

J'ai exécuté le sendkeys en cascade :

 SendKeys "%E"
 SendKeys "g"
 SendKeys "g"
 SendKeys "{enter}", True

sans succés ! J'ai mis une pause (F9) au troisième sendkeys et la fenêtre du collage spécial n'ouvre même pas !!!

Des idées ?

Merci d'avance de votre aide !

iBenny

Bonjour

Vérifie si ce n'est pas xlPasteColumnWidths à la place dexlColumnWidths

Sinon je ne sais pas

Bonjour Banzaï64 !

Pas d'erreurs car c'est une copie de la macro générée par l'enregistreur de macro !

iBenny

Bonsoir

C'est bizarre que l'enregistreur de macro te donne comme paramètrexlColumnWidths

A tester en remplaçant ce paramètre par sa valeur (Excel 2003)

Sub test()
  Columns("B:U").Copy
  Sheets("2016").Range("B1").PasteSpecial 8
End Sub

Regarde l'aide sur PasteSpecial

Surtout regarde ici

https://support.microsoft.com/fr-fr/kb/231090

Bonjour Banzaï64,

Ça marche pas avec :

PasteSpecial xlColumnWidths..........

PasteSpecial xlPasteColumnWidths

mais ça marche avec :

PasteSpecial 8 !

Merci infiniment !!!

iBenny