Discussion :

[heyhey62]

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.

[tirex28]

Bonjour,

Essaye comme ceci:

Code :

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

1
2
3
4
5
6
7
8
9
 
Workbooks("Test.xls").Worksheets(Array("Feuil1", "Feuil2")).Copy
 
With ActiveWorkbook
    .Worksheets(1).UsedRange.Value = .Worksheets(1).UsedRange.Value
    .Worksheets(2).UsedRange.Value = .Worksheets(2).UsedRange.Value
    .SaveAs "C:\Documents and Settings\PORTABLE\Bureau\" & monfichier & ".xls"
    .Close
End With

Cordialement,

Tirex28/

[heyhey62]

Ca marche impec! Merci