Aide Macro sauvegarde automatique

[nicolo]

Bonjour,

J'essaie de faire un macro qui me permet de sauvegarder automatiquement avec un nom voulu ( selon des cellules, la date,...)
J'ai fait la macro suivante :

Public Sub CommandButton1_Click()
Dim nom As String
nom = Range("M1") & " - Outillage " & Range("B19") & " - " & Range("H13") & " - " & Month(Date) & "-" & Year(Date) & "_" & ActiveWorkbook.Name
ActiveWorkbook.SaveCopyAs ActiveWorkbook.Path & "\" & nom
rep = MsgBox("Votre base de données est sauvegardée sous le nom : " & nom, vbYes + vbInformation, "Copie sauvegarde classeur")
End Sub

J'y suis presque mais mon problème est que le nom du fichier original apparait toujours à la fin du nouveau.
J'ai ce que je veux au début du nom du nouveau fichier mais il me rajoute "Essai 2" à la fin (le nom du fichier mère)

Pour info, si je supprime : "ActiveWorkbook.Name" dans le nom, le fichier n'est plus reconnu comme un fichier excel...

Merci!

Nico

 

[pierrejean]

Re : Aide Macro sauvegarde automatique

bonjour nicolo

A tester:

nom = Range("M1") & " - Outillage " & Range("B19") & " - " & Range("H13") & " - " & Month(Date) & "-" & Year(Date) &[COLOR=blue] ".xls"[/COLOR]

 

[nicolo]

Re : Aide Macro sauvegarde automatique

Oui, cela marche. Merci!

 

[nicolo]

Re : Aide Macro sauvegarde automatique

Re-bonjour,

J'ai encore un petit problème, j'aimerais qu'une fois que j'ai fait fonctionner ma macro, j'arrive sur la nouvelle feuille enregistrée. ( Et non, rester sur la feuille originale)

Comment je peux faire?
Merci

 

[pierrejean]

Re : Aide Macro sauvegarde automatique

Re

Sauf erreur de ma part :
La feuille originale et la feuille enregistrée ne sont qu'une seule et meme feuille !!!

 

[nicolo]

Re : Aide Macro sauvegarde automatique

Disons que je commence sur la feuille 1, je lance la macro pour sauvegarder la feuille en feuille 2 (avec les info souhaitées) mais je voudrais ensuite directement pouvoir travailler sur la feuille 2 ( Et non fermer la feuille 1 et ouvrir manuellement la feuille 2)

 

[pierrejean]

Re : Aide Macro sauvegarde automatique

Re

teste:

Public Sub CommandButton1_Click()
Dim nom As String
nom = Range("A1") & " - Outillage " & Range("B19") & " - " & Range("H13") & " - " & Month(Date) & "-" & Year(Date) & "_" & ActiveWorkbook.Name
ActiveWorkbook.SaveCopyAs ActiveWorkbook.Path & "\" & nom
[COLOR=blue]Workbooks.Open ActiveWorkbook.Path & "\" & nom
[/COLOR]rep = MsgBox("Votre base de données est sauvegardée sous le nom : " & nom, vbYes + vbInformation, "Copie sauvegarde classeur")
End Sub

 

[nicolo]

Re : Aide Macro sauvegarde automatique

ca marche!
Merci encore

 

[nicolo]

Re : Aide Macro sauvegarde automatique

J'aurai encore besoin d'un peu d'aide... je débute vraiment. 🙂

Je cherche à faire la même chose pour sauvegarder mais en PDF.

Pour le moment, j'ai mis :
-------------
Sub PDF4()

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Range("M1"), Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
End Sub
--------------

Ca me donne un pdf avec le nom que je veux mais celui-ci s'enregistre dans mes documents... Je préfèrerai qu'il s'enregistre dans le dossier ou il est.

Merci!