C'est l'erreur que j'obtiens sur ma macro.
Elle est située dans le workbook en mode open.
Le programme fonctionne parfaitement sous office 2000 mais plante sous office 2003.
Voila le code:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Workbooks("test.xls").Worksheets("Feuil1").Cells.Copy
Workbooks.Add
ActiveWorkbook.Sheets("Feuil1").Cells.PasteSpecial Paste:=xlPasteValues
ActiveWorkbook.Sheets("Feuil1").Cells.PasteSpecial Paste:=xlPasteFormats
Workbooks("test.xls").Worksheets("Feuil2").Cells.Copy
ActiveWorkbook.Sheets("Feuil2").Cells.PasteSpecial Paste:=xlPasteValues
ActiveWorkbook.Sheets("Feuil2").Cells.PasteSpecial Paste:=xlPasteFormats
ActiveWorkbook.SaveAs ("C:\Documents and Settings\PORTABLE\Bureau\" & monfichier & ".xls")
ActiveWorkbook.Close
ActiveWorkbook.Close savechanges:=False
Ca plante ici
Code : Sélectionner tout - Visualiser dans une fenêtre à part
ActiveWorkbook.Sheets("Feuil1").Cells.PasteSpecial Paste:=xlPasteValues
Quelqu'un à une idée...pour moi c'est office 2003 mais je n'ai pas trouvé la solution pour le faire tourner.
Merci.