Copier Feuille sans liaison

Bonjour,

Je cherche par une macro, les données d'une feuille vers un nouveau classeur (sans les liaisons). Toutes mes cases doivent être remplies par des données numériques et non par les formules qui permettent de les calculer.

En parcourant le forum, j'ai trouvé du code que j'ai modifié :

Sub ExportDoc()

Dim wb As Workbook, nfeuil$, nclass$, chemin$, nm As Name

nfeuil = "ANALYSE_PERIODE_REG_DUOS"

chemin = "C:\"

nclass = "ANALYSE.xlsx"

'Créer copie dans le classeur

Sheets("ANALYSEPERIODE").Copy before:=Worksheets(1)

ActiveSheet.Name = nfeuil

With Worksheets(nfeuil)

.UsedRange.Copy

.Range("A1").PasteSpecial xlPasteValues

'Déplacement copie dans nouveau classeur

.Move

End With

Set wb = ActiveWorkbook

'Suppression des noms exportés dans le nouveau classeur

For Each nm In wb.Names

nm.Delete

Next nm

End Sub

Cependant quand je lance ce code, j'ai l'erreur 1004 : la syntaxe de ce nom est incorrecte.

Le débogage surligne la ligne nm.Delete

Pouvez-vous m'aider à faire disparaitre cette erreur?

Merci d'avance

bonjour

as tu essayé de mettre la variable au début :

nm As Objet à la place de Name

crdlt,

André

Merci pour ton aide.

Malheureusement en remplacant par Object j'ai toujours la même erreur.

D'autres pistes ?