Renommer le fichier avec un nouveau nom correspondant a une cellule et date

néné06

XLDnaute Accro

• 15 Septembre 2012

• #2

Re : Renommer le fichier avec un nouveau nom correspondant a une cellule et date

Bonjour renebeau et bienvenue sur le Forum

Un exemple, si j'ai bien compris ?

Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.Path & "/" & Range("A1").Value & Format(Date, " dd-mm-yyyy")
End Sub

A+

 

Pièces jointes

• facture125 15-09-2012.xls

  31 KB · Affichages: 62

Vote positif 0 Vote négatif

R

renebeau

XLDnaute Nouveau

• 15 Septembre 2012

• #3

Re : Renommer le fichier avec un nouveau nom correspondant a une cellule et date

Bonjour néné06,

Merci de ta réponse.

Quand j'ouvre ton fichier, si je change la valeur de la cellule A1 pour "facture126" quand je le referme il ne sauvegarde pas un nouveau fichier avec un nouveau nom du genre "facture126 15-09-2012.xls‎".

Mais si je ne change pas la valeur de A1, excel me dit qu'il existe déjà un fichier "facture125 15-09-2012.xls‎" et si je veut le remplacer.

Le pauvre novice que je suis est bloqué !

Voici une explication de ce que je voudrais réaliser. J'aimerais que mon modèle de facture puisse être sauvegarder sous le nom qui correspond au numéro de la dite facture avec la date du jour. Cette macro pourrais être lien a un bouton. Je sais que c'est possible mais je ne trouve pas la solution.

Merci de ton aide!

 

Vote positif 0 Vote négatif

néné06

XLDnaute Accro

• 15 Septembre 2012

• #4

Re : Renommer le fichier avec un nouveau nom correspondant a une cellule et date

Re,
Comment fermes tu ton fichier ?

Par la croix en haut à droite ou par enregistrer etc..
Chez moi , le nouveau fichier s'enregistre ?


A+

 

Vote positif 0 Vote négatif

néné06

XLDnaute Accro

• 15 Septembre 2012

• #5

Re : Renommer le fichier avec un nouveau nom correspondant a une cellule et date

Re,

Le problème peut survenir du fait que tu travail sur MAC et là... des différences de code que je ne connais pas.

A+

 

Vote positif 0 Vote négatif

R

renebeau

XLDnaute Nouveau

• 15 Septembre 2012

• #6

Re : Renommer le fichier avec un nouveau nom correspondant a une cellule et date

Possible effectivement... Est-ce que je pourrais enregistrer une macro de "enregistrer sous" et lui coller par la suite la partie de ton code qui concerne le nom lié a A1 et la date? Il semble y avoir des problèmes avec le chemin qui est différent entre un PC et un Mac. Ça pourrais peut-être marcher.

 

Vote positif 0 Vote négatif

néné06

XLDnaute Accro

• 15 Septembre 2012

• #7

Re : Renommer le fichier avec un nouveau nom correspondant a une cellule et date

Re,

Pour bien cerner le problème, je récapitule ta demande, pour m'assurer que j'ai bien saisis le post.

Tu as une feuille nommée "Modèle".
Sur cette feuille tu remplis une facture en inscrivant le numéro en cellule A1 et dans les autres cellules les données de cette facture.
Tu souhaites sauvegarder cette nouvelle facture en "Facturexxxx-jj-mm-aaaa".
Après tu reprends ta feuille "Modèle" vierge pour établir une nouvelle facture.

Est ce que j'ai bien compris la demande ???

A+

 

Vote positif 0 Vote négatif

néné06

XLDnaute Accro

• 15 Septembre 2012

• #8

Re : Renommer le fichier avec un nouveau nom correspondant a une cellule et date

re,

S'il était possible de nous faire parvenir en pièce jointe ta facture "Modèle" ?

A+

 

Vote positif 0 Vote négatif

R

renebeau

XLDnaute Nouveau

• 15 Septembre 2012

• #9

Re : Renommer le fichier avec un nouveau nom correspondant a une cellule et date

C'est effectivement ça. Toutefois je n'ai pas de modèle de facture, je travail pour le moment a des fichiers tests et quand ça fonctionnera je l'adapterai a un modèle de facture final.


Voici ton code:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.Path & "/" & Range("A1").Value & Format(Date, " dd-mm-yyyy")
End Sub


voici le code quand j'enregistre une macro de "save as" sur ma version d'Excel mac:

Sub saveAs()
'
' saveAs Macro
'

'
Range("A1").Select
ActiveWorkbook.saveAs Filename:= _
"Macintosh HD:Users:renebeaulieu😀esktop:factures:SAVE_AS:Incrémenation67.xlsm" _
, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub




Peut-tu voir comment combiner une version viable entre les deux?

Merci !

 

Vote positif 0 Vote négatif

néné06

XLDnaute Accro

• 15 Septembre 2012

• #10

Re : Renommer le fichier avec un nouveau nom correspondant a une cellule et date

re,
Voici un exemple qui fonctionne sur PC.
Sur MAC ????

A+

 

Pièces jointes

• FACTURE RENE.xls

  44.5 KB · Affichages: 65

Vote positif 0 Vote négatif

R

renebeau

XLDnaute Nouveau

• 15 Septembre 2012

• #11

Re : Renommer le fichier avec un nouveau nom correspondant a une cellule et date

Malheureusement non. Il semble que de PC a Mac il y a certain code qui ne sont pas compatible a 100%.

Je continue a travailler sur mon défi merci encore pour ton aide!

 

Vote positif 0 Vote négatif