Valider le poste!

Robert

XLDnaute Barbatruc

Repose en paix

• 3 Avril 2012

• #2

Re : Valider le poste!

Bonjour Matthew, bonjour le forum,

Je me suis dit tiens, je vais voir si je peux aider sur ce post... J'ouvre ton fichier et je veux regarder le code de ton bouton. Fichier protégé par un mot de passe ! Ké couillon !!! Si tu demandes de l'aide permet-nous au moins de le faire... Peut-être quelqu'un d'autre aura envie de te répondre mais ça manque de précision. Quel dossier ? Le même que le dossier du fichier original ? Peut-on utiliser la date Nom_du_fichier_jj_mm_aa.xls ?

 

Vote positif 0 Vote négatif

F

franckyonfire

XLDnaute Nouveau

• 3 Avril 2012

• #3

Re : Valider le poste!

Bonjour Robert, j'envisage d'utiliser cette fonction moi aussi et justement avec un enregistrement sous la forme de "Fichier_JJ_MM_AAAA.xls" Tout en sachant que l'adresse de destination sera mentionnée dans une autre feuille (ex: Feuil1 cellule A1)
Pourrais tu nous indiquer une méthode?
Cela pourrait peut être convenir à Matthewfenson on ne sait jamais 🙂

 

Dernière édition: 3 Avril 2012

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 3 Avril 2012

• #4

Re : Valider le poste!

Bonjour Francky le pompier, bonjour le forum,

Essaie comme ça :

Code:

Sub Macro1()
Dim ca As String 'déclare la variable ca (Chemin d'Accès)
Dim fn As String 'déclare la variable fn (Fin du Nom)

ca = Sheets("Feuil1").Range("A1").Value & "/" 'définit le chemin d'accès (à adapter à ton cas)
fn = "_" & CStr(Format(Day(Date), "00")) & "_" & CStr(Format(Month(Date), "00")) & "_" & Year(Date) & ".xls" 'définit la fin du nom
ThisWorkbook.SaveAs (ca & Split(ThisWorkbook.Name, ".", -1)(0) & fn) 'enregistre le classeur sous
End Sub

 

Vote positif 0 Vote négatif

F

franckyonfire

XLDnaute Nouveau

• 3 Avril 2012

• #5

Re : Valider le poste!

Un GRAAAAAAAAAAAAND merci à toi 😉

 

Vote positif 0 Vote négatif

M

Matthewfenson

Guest

• 4 Avril 2012

• #6

Re : Valider le poste!

bonjour a toutes et à tous mille excuse pour la protection, le code est tout bêtement 1234.
oui ce serait même bien d'avoir la date dans le nom de fichier,si cela est possible bien sûr. Pour le dossier, j'aimerai bien qu'ils s'enregistrent dans un dossier (historique TRS), à côté de mon fichier mère.
Voilà merci de votre aide et si vous avez d'autre questions n'hésité surtout pas

 

Vote positif 0 Vote négatif

M

Matthewfenson

Guest

• 4 Avril 2012

• #7

Re : Valider le poste!

par contre je pensais ça ne risque pas de poser problem si dans le nom de fichier on met la date car j'ai trois poste: soir matin et nuit dans le même jour, ou alors on mentionne le poste dans le nom du fichier...
Un grand merci à vous!!!!

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 4 Avril 2012

• #8

Re : Valider le poste!

Bonjour à tous,

Il faudrait peut-être envisager d'y intégrer l'heure, peut-être ?

 

Vote positif 0 Vote négatif

M

Matthewfenson

Guest

• 5 Avril 2012

• #9

Re : Valider le poste!

Bonjour à tous!
Oui je pense qu'il faut mettre l'heure.
J'ai essayé de mettre le code de Robert, mais je suis vraiment trop nul :
Quand il y a Dim ca,... le "ca" je le remplace par C/... ou bien je laisse "ca".
Que faut il que je change dans ton code? dsl d'être ignorant sur la VBA!
Merci de ton aide si précieuse.

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 5 Avril 2012

• #10

Re : Valider le poste!

Bonjour à tous,

essaye peut-être de remplacer la ligne là

Code:

fn = "_" & CStr(Format(Day(Date), "00")) & "_" &  CStr(Format(Month(Date), "00")) & "_" & Year(Date) & ".xls"

par

Code:

fn = "_" & CStr(Format(Now,"DD_MM_YYYY_HH_MM_SS")) & ".xls"

Edit : correction, remplacé Date par Now, sinon pas d'heure...

 

Dernière édition: 5 Avril 2012

Vote positif 0 Vote négatif

M

Matthewfenson

Guest

• 5 Avril 2012

• #11

Re : Valider le poste!

Un grand merci à vous tous, j'y suis arrivé!!!
j'ai compris plein de trucs dans le code... super !!
merci!

 

Vote positif 0 Vote négatif