Enregistrer sans lien avec document original

je réessai de joindre fichier [file name=test_16mai.zip size=7817]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/test_16mai.zip[/file]

Bonjour,
excuse moi mais je vais te faire quelques commentaires sur ton code qui ne me semble pas tres 'propre' :

Sub Bouton1_QuandClic()

Sheets('test').Select ' le array ne sert que si on veut travailler sur plusieurs feuilles en meme temps
' Sheets('test').Activate en doublon du select

Sheets('test').Copy ' pareil, pas besoin du array

Cells.Copy
Cells.PasteSpecial xlPasteValues ' on fait un copier-coller valeur pour supprimer les formules, et donc les liaisons
Range('A1').Select

chemin = (Range('A2').Value & '_' & Range('A3').Text)
'ActiveWindow.Application.Dialogs(xlDialogSaveAs).Show (chemin) ' pourquoi mettre une boite de dialogue de confirmation ??

Application.displayAlerts=False ' on desactive le message 'le fichier existe deja, ecraser ?' si besoin
Activeworkbook.saveas chemin ' et hop ca se sauvegarde tout seul, pas besoin que je me fatigue a confirmer
Application.displayAlerts=True ' on réactive les messages

ActiveWorkbook.Close

Thisworkbook.Activate
Sheets('test').Select
Range('a10').Select
End Sub


et voila ! Bonne nuit 😱)

Bonjour à tous,
Merci pour cette réponse complète et qui marche du tonnerre.
Effectivement la macro présente sur le fichier est un copier/coller d 'un extrait de la macro originale gérant plusieurs feuilles.
Sinon , y a t il un moyen pour supprimer toutes liaisons des macros ainsi copier ? supprimer les macros ou bien encore désactiver toutes las macros de la feuille copiée ?
Merci encore,
tres sympa
Stef