Hello!
J'ai ce code que fait un copier / coller d'une plage de cellules dans un autre workbook :
Ce code ne fonctionne pas dans excel 2000. Il met une erreur sur la ligne
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10 Workbooks.Open Filename:=chemin, ReadOnly:=True Workbooks(nomfichiersource).Activate Worksheets(semainefeuille).Range(Cells(starty, 73).Address, Cells(endy, 256).Address).Select Workbooks(nomfichiercible).Activate Worksheets("base").Cells(destination, 1).Activate Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Selection.PasteSpecial Paste:=xlPasteFormats Workbooks(nomfichiersource).Close FalseDans mon cas,
Code : Sélectionner tout - Visualiser dans une fenêtre à part Worksheets(semainefeuille).Range(Cells(starty, 73).Address, Cells(endy, 256).Address).Select
chemin = le chemin du fichier à copier
semainefeuille = "13. - 19.10.08"
starty = 756
endy = 759
destination = 1
Ca serait super si vous pouvez m'aider!
Partager