copier et coller des feuille vers un classeur

[tony]

bonjour le forum,
estce que quelqu'un pourrait m'aider sur cette programmation a la suite de cette programmation et apres avoir renseigner dans la fenetre de sauvegarde mon fichier; impossible de retrouver mon fichier meme apres un recherche
merci par avance de votre aide
TONY

Sub Macro1()
' Macro par DAN pour Tony

Dim monnom As String
Application.ScreenUpdating = False
monnom = ThisWorkbook.Sheets('feuil1').Range('A1')
Sheets(Array('PAGE DE GARDE', 'Synthèse de marge', 'TARIF V BOVINE R', _
'TARIF PORC', 'TARIF VEAU ', 'TARIF AGNEAU', 'TARIF CAISSETTE ECO', _
'TARIF PLATEAUX', 'TARIF ABATS')).Copy
With Application
.GetSaveAsFilename (monnom)
.ScreenUpdating = True
End with
End Sub

 

[XanorK]

monnom = ThisWorkbook.Sheets('feuil1').Range('A1')

-> ceci indique que ton fichier à pour nom le contenu le case A1 de la feuille 1.

Il y a quoi dans ta case A1?