Fonction pour enregistrer, avec contenu cellule...

[Christian0258]

Bonjour à tout le forum,

Je souhaiterais votre aide afin d'écrire un fonction pour enregistrer automatiquement la feuille "Mouvements", à la fermeture du classeur, sous un nouveau fichier avec le nom de la cellule A1 de la feuille "Saisies".

voir fichier joint....

Merci pour votre aide,
Bien amicalement,
Christian.

 

[Dull]

Re : Fonction pour enregistrer, avec contenu cellule...

Salut Christian0258, le Forum

Sur une idée de l'ami JCGL🙂, que j'utilise souvent. Ton code en retour

Sub SaveAsNom() ' JCGL
Application.DisplayAlerts = False
Feuil1.SaveAs Filename:=ThisWorkbook.Path & "\" & Feuil1.[A1].Value & ".xls"
MsgBox "Ce document a bien été enregistré dans " & Chr(10) & _
ThisWorkbook.Path & "\" & Feuil1.[A1]
Application.DisplayAlerts = True

Le chemin est à vérifier et/ou à changer
Là il est enregistré dans le dossier actif soit ici:

C:\Documents and Settings\TonUser\Mes documents

N'utilise pas les Caractères dans ta cellule tels que "<>?[]:*" cela ne fonctionne pas

Bonne Journée

 

[Christian0258]

Re : Fonction pour enregistrer, avec contenu cellule...

Re, le forum, Dull,

Merci Dull, pour ta proposition.

Dis-moi, cette macro copie tout le classeur, je souhaiterais ne copier que la feuille mouvements, possible ?

Bien à toi, à te lire.

Encore merci.
Christian

 

[JCGL]

Re : Fonction pour enregistrer, avec contenu cellule...

Bonjour à tous,
salut Dull 🙂,
Salut Christian 🙂,

Peux-tu tester ce fichier

Option Explicit

Sub SaveAsNom()
Dim Nom
Dim Rep
Rep = "C:\" ' à adapter
Nom = Workbooks("Mouvements.xls").Sheets("Saisie").[A1].Value & ".xls"

Application.ScreenUpdating = 0
    
Sheets("Mouvements").Copy
ActiveWorkbook.SaveAs Filename:=Rep & Nom
MsgBox "Ce document a bien été enregistré dans " & Chr(10) & Rep & Nom, vbInformation, "JCGL ;-)"
    ActiveWorkbook.Save
        ActiveWindow.Close
End Sub

A++ 🙂 et 🙂
A+ à tous

Edition : Modification Code et Fichier sur les conseils de BH² 😉

 

[Cousinhub]

Re : Fonction pour enregistrer, avec contenu cellule...

Bonjour le fil...

JC 🙂🙂

Plutôt que de créér un Workbook.Add, tu peux faire tout simplement

Sheets("Mouvements").Copy
ActiveWorkbook.SaveAs Filename:=Rep & Nom

ça revient au même....

Bon W-E

 

[JCGL]

Re : Fonction pour enregistrer, avec contenu cellule...

Bonjour à tous,
Salut BH² 🙂🙂,

Merci de ton retour
Je modifie le code et le message

A++ 🙂🙂 (je ne sais pas ce qui arrive : je ne peux plus accéder aux cellules de mes feuilles et pourtant le Zoom est à 100 😉😉)
A+ à tous

 

[Christian0258]

Re : Fonction pour enregistrer, avec contenu cellule...

Re, bonsoir le forum,

Merci, JCGL pour ta macro et bhbh pour ton intervention.

C'est impeccable.

Bien à vous,

Christian

 

[JCGL]

Re : Fonction pour enregistrer, avec contenu cellule...

Bonjour à tous,

Ravis (Bh² et moi) d'avoir pu t'aider ami hospitalier 🙂

A++
A+ à tous