Commande pour enregistrer feuille active

Bonjour,

Je souhaiterai appliquer à un bouton l'action suivante :

Enregistrer sous la feuille active et lui indiquant un chemin d'accès contenu dans une cellule d'une autre feuille, avec un nom précis.

Et fermer cette nouvelle feuille, on encore mieux, qu'elle ne s'ouvre pas.

Merci de votre aide !

BoB

Bonjour,

Un test si j'ai bien compris :

Sub ENR()
Application.ScreenUpdating = False
ActiveSheet.Copy
ActiveWorkbook.SaveAs ThisWorkbook.Worksheets("PARAM").[B1] & ActiveWorkbook.Name
ActiveWorkbook.Close True
Application.ScreenUpdating = True
End Sub

A adapter selon vos besoin.

Cdlt,

2test-v4.xlsm (14.77 Ko)

Merci de votre réponse,

cela ne fonctionne pas, mais mon chemin d'accès fait référence à plusieurs cellules... cela pose surement problème.

Voici mon code :

Sub DPGFxls()

Application.ScreenUpdating = False
ActiveSheet.Copy
ActiveWorkbook.SaveAs ThisWorkbook.Worksheets("SPS").Range("H5") & "\" & Sheets("sps").Range("f5") & " " & "Classement offres AVN" & " - " & Sheets("SPS").Range("f3") & ActiveWorkbook.Name
ActiveWorkbook.Close True
Application.ScreenUpdating = True

End Sub

La ligne suviante se met en jaune

ActiveWorkbook.SaveAs ThisWorkbook.Worksheets("SPS").Range("H5") & "\" & Sheets("sps").Range("f5") & " " & "Classement offres AVN" & " - " & Sheets("SPS").Range("f3") & ActiveWorkbook.Name

Bonjour,

Remplacez par :

ActiveWorkbook.SaveAs ThisWorkbook.Worksheets("SPS").Range("H5") & "\" & Worksheets("SPS").Range("E5") & " " & "Classement offres AVN" & " - " & Worksheets("SPS").Range("E3")

Si ça ne fonctionne pas merci de donner le contenu des différentes cellules citées ci-dessus ou de joindre un fichier.

Cdlt,

Bonjour,

Cela fonctionne parfaitement !

Merci pour votre aide

BOB

Rechercher des sujets similaires à "commande enregistrer feuille active"