Macros a revoir

Bonjour à tous et toutes ,

Je viens de m'inscrire sur votre forum pour essayer de trouver une réponse à un problème de macro.

Après un problème sur mon ordi, on a du m'installer Excel 2007 alors que j'utilisais la version 2000. Cela a engendré des erreurs au niveau des macros que j'avais faites et comme je n'y connais pas grand chose, je suis incapable de résoudre le problème...

Voila ce qui ne va pas.

Cette macro doit copier une feuille d'un classeur vers un autre classeur qui n'existe pas encore et en proposer l'enregistrement. La 1ere feuille comprend des formules qui doivent être annulée lors de la copie.

Sub SauverBDCJLS()

Dim W1 As Workbook

Dim W2 As Workbook

Application.ScreenUpdating = False

Set W1 = ThisWorkbook

Set W2 = Workbooks.Add(xlWBATWorksheet)

'---- Nom feuille bidon pour éviter conflit ----

W2.Sheets(1).Name = "_tEmPo_"

'----Copie de la feuil ----

W1.Sheets("BDC JLS").Copy after:=W2.Sheets(W2.Sheets.Count)

With W1

With .VBProject. _

VBComponents(Sheets("BDC JLS").CodeName).CodeModule

.DeleteLines 1, .CountOfLines

End With

'---- Destruction de la feuille bidon ----

Application.DisplayAlerts = False

W2.Sheets(1).Delete

End With

'---- Copier / coller pour supprimer les formules ----

With W2

Range("A11:G20").Select

Selection.Copy

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

False, Transpose:=False

Application.CutCopyMode = False

End With

'----appel boite outil enregistrement----

Suggere = "BDC-" & [(B13)]

Reponse = Application.GetSaveAsFilename( _

InitialFilename:=Suggere, _

fileFilter:="Classeur Microsoft Excel (*.xls), *.xls")

If Reponse <> False Then W2.SaveAs Filename:=Reponse

End Sub

La feuille est bien recopiée mais les formules ne sont pas annulées et la boite d'outil n'apparait pas...

Avez vous une idée de ce qui ne va pas ?

Je vous remercie par avance.

Céline

Bonsoir,

vois plutôt ce lien qui peut t'aider --> https://www.excel-pratique.com/forum/viewtopic.php?t=2069 et place le code dans ton fichier.

A te relire

Dan

Merci beaucoup pour ta réponse. Je vais essayer ca tout de suite.

Céline

Grace a ton lien j'ai pu résoudre mon problème.

Encore merci