Enregistrement spécifique

Bonjour à tous ,

Je voudrais lorsque j’appuie sur le bouton "enregistrer" (crée sur la feuille 1).

J'enregistre la feuille "Modèle 1tourelle" au format .xls et qui porte le nom de la cellule I3 (de la feuille "Modèle 1tourelle").

Dans le répertoire "Z:\GIBBS-PROG CN ET PROTO\01-Gammes-Programmes automatiques\01-GAMME\"

en sélectionnant le dossier qui porte le nom de la cellule A2

Exemple en I3 = 01515 , A2=315

Z:\GIBBS-PROG CN ET PROTO\01-Gammes-Programmes automatiques\01-GAMME\315\01515 .xls

Une petite Idée ?

merci d'avance

Bonjour

à tester

sans aucune certitude que cela fonctionne (sauvegarder le fichier avant d'effectuer cette manipulation)

macro de Dan merci à lui

Sub Archiver()
'Macro par Dan
Dim extension As String
Dim chemin As String, nomfichier As String
Dim style As Integer
Application.ScreenUpdating = False
ThisWorkbook.ActiveSheet.Copy
extension = ".xls"
chemin = "Z:\GIBBS-PROG CN ET PROTO\01-Gammes-Programmes automatiques\01-GAMME\"
MsgBox ThisWorkbook.Path
nomfichier = ActiveSheet.Range("A2") & "\" & Range("I3") & extension
With ActiveWorkbook
    .DrawingObjects(1).Delete
    .SaveAs Filename:=chemin & nomfichier
    .Close
End With
End Sub

crdlt,

André

Slt,

J'ai du mettre cette ligne en commentaire .DrawingObjects(1).Delete.

après cette petite réactif sa à fonctionner correctement merci