Concatener tableaux

Bonjour

Je viens de créer une macro qui me permet d'aller chercher des infos dans plusieurs fichier xls sur un réseau.

Je suis sous Excel 2007 pas de souci.

Mes collègues travaillent sur Excel 2000 (longue histoire...) et ont un message d'erreur à l'execution

d'après ce que je vois c'est copier coller qui bloque mais je ne comprends pas pourquoi.

voici le bout de macro qui pose problème avec en surligner la ligne qui affiche l'erreur d'execution

ChDrive "L"

ChDir "L:\BUDGETS\2014\LIMOUSIN"

ClasseurRegional = Dir("L:\BUDGETS\2014\LIMOUSIN\*.xls")

While Len(ClasseurRegional) > 0

Workbooks.Open ClasseurRegional

Sheets(2).Select

AvantDerniereLigne = ActiveSheet.UsedRange.Rows.Count - 1

Range("A9:P" & AvantDerniereLigne).Copy

Workbooks("Projet 309.xls").Activate

DebutNomFichier = ActiveSheet.UsedRange.Rows.Count + 1

Range("C" & ActiveSheet.UsedRange.Rows.Count + 1).Select

Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _

False, Transpose:=False

Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, _

SkipBlanks:=False, Transpose:=False

Range("A" & DebutNomFichier & ":A" & ActiveSheet.UsedRange.Rows.Count) = "LIMOUSIN"

Range("B" & DebutNomFichier & ":B" & ActiveSheet.UsedRange.Rows.Count) = ClasseurRegional

Workbooks(ClasseurRegional).Close

ClasseurRegional = Dir

Wend

Quelqu'un a une idée?

merci par avance

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

ça ne change rien... toujours le même message

Bonjour,

Essaie ainsi :

Selection.PasteSpecial Paste:=xlValues
        Selection.PasteSpecial Paste:=xlFormats
        Application.CutCopyMode = False

J'ai toujours le même problème sur 2000

Du coup je me demande si ça vient pas d'autre chose mais c'est la ligne du coller qui se surligne

Et avec la constante ?

Selection.PasteSpecial Paste:=-4163, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Pareil aussi.

Le message est : la methode pastespecial de la classe range a échoué

Le problème c'est que je n'ai pas de version excel 2000 à disposition.

Ne peux-tu pas tester le générateur de macro sur le pc de l'un de tes collègues ?

J'y ai pensé juste avant. Les grands esprits se rencontrent. Il me donne bien la même ligne de code mais une fois que j'ajoute le reste ça plante. Ca vient du chdir?

Si la ligne

Range("C" & ActiveSheet.UsedRange.Rows.Count + 1).Select

fonctionne, il est étonnant que le problème ne puisse pas venir de

Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

Pour la constante tout à l'heure je t'ai donné -4173 mais je ne suis pas sûr que ce soit la bonne pour ta version d'excel et je n'arrive pas à mettre la main dessus, mais un problème a déjà été réglé à coup de constante justement et sur ta version il me semble. Je ne veux pas lancer de fausse piste non-plus.

Truc idiot, mais as-tu essayé de coller non dans une plage de plusieurs cellules mais dans une seule ?

Du genre Range("C1").select ?

Je ne sais pas comment les constantes marchent je vais essayer de chercher je te dirais

J'ai trouvé ça :

xlPasteSpecialOperationNone : -4142

Je m'en sers comme ça? en sortant la deuxième ligne de format ou je laisse? je pourrais tester que demain je suis rentré

ChDrive "L"

ChDir "L:\BUDGETS\2014\LIMOUSIN"

ClasseurRegional = Dir("L:\BUDGETS\2014\LIMOUSIN\*.xls")

While Len(ClasseurRegional) > 0

Workbooks.Open ClasseurRegional

Sheets(2).Select

AvantDerniereLigne = ActiveSheet.UsedRange.Rows.Count - 1

Range("A9:P" & AvantDerniereLigne).Copy

Workbooks("Projet 309.xls").Activate

DebutNomFichier = ActiveSheet.UsedRange.Rows.Count + 1

Range("C" & ActiveSheet.UsedRange.Rows.Count + 1).Select

Selection.PasteSpecial Paste:=-4142, Operation:=xlNone, SkipBlanks:= _

False, Transpose:=False

Range("A" & DebutNomFichier & ":A" & ActiveSheet.UsedRange.Rows.Count) = "LIMOUSIN"

Range("B" & DebutNomFichier & ":B" & ActiveSheet.UsedRange.Rows.Count) = ClasseurRegional

Workbooks(ClasseurRegional).Close

ClasseurRegional = Dir

Wend