Enregistrement dans macro [Résolu/Fermé]

Signaler
Messages postés
26
Date d'inscription
mardi 15 février 2011
Statut
Membre
Dernière intervention
25 février 2011
-
Messages postés
2539
Date d'inscription
vendredi 23 avril 2004
Statut
Membre
Dernière intervention
15 mai 2017
-
Bonjour le forum,
Je viens soliciter votre aide, au fait je souhaite enregistrer mon fichier apres lancement de ma macro en metant la date du jour soit (macro1 24:02:2011.xls)dans un dossier sur mon disque C comment je procede....
merci d'avance......
Sirif

7 réponses

Messages postés
2539
Date d'inscription
vendredi 23 avril 2004
Statut
Membre
Dernière intervention
15 mai 2017
521
Bonjour,

Vois si cela te convient : Enregistrement à la fermeture avec ajout de la date au nom du classeur su http://gerard.g.pagesperso-orange.fr/logexl_09.htm#enregdate.

Bonne journée.
Messages postés
26
Date d'inscription
mardi 15 février 2011
Statut
Membre
Dernière intervention
25 février 2011

bonjour et merci de ta reponse sinon j'ai mis ce code:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
NomFichier = "outilsV1.2_" & Format(Now, "dd-mm-yyyy")
ChDir "O:\General\sirif\ARCHIVE Macro"
ActiveWorkbook.SaveAs Filename:=NomFichier, CreateBackup:=False
End Sub

apres ma macro qui enregistre les evenement et ça marche pas et je sais pas pkoi pourtant ça me donne pas d'erreur
Messages postés
2539
Date d'inscription
vendredi 23 avril 2004
Statut
Membre
Dernière intervention
15 mai 2017
521
Bonjour,

Comme l'enregistrement se fait sur un lecteur externe ajoute la ligne en gras et si le fichier ne s'enregistre pas avec l'extension modifie la ligne 3 (gras):

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
NomFichier = "outilsV1.2_" & Format(Now, "dd-mm-yyyy") & ".xls"
ChDrive "O"
ChDir "O:\General\sirif\ARCHIVE Macro"
ActiveWorkbook.SaveAs Filename:=NomFichier, CreateBackup:=False
End Sub

Bonne journée.
Messages postés
26
Date d'inscription
mardi 15 février 2011
Statut
Membre
Dernière intervention
25 février 2011

bonjour,
j'ai essayer le code mais l'enregistrement ne se fait pas je sais pas si je dois metre le code tout au debut ou a la fin car moi je l'ai mis en bas et hors du code de ma macro....merci de m'eclairer la dessus
Messages postés
2539
Date d'inscription
vendredi 23 avril 2004
Statut
Membre
Dernière intervention
15 mai 2017
521
Re,

Comme indiqué sur la page web, le code doit être copié dans le module de ThisWorkbook afin que l'enregistrement se fasse à chaque fermeture du fichier.

Maintenant si ce n'est pas cette procédure qui te convient il n'est pas possible de te renseigner sans connaitre le code auquel tu fais allusion.

Bonne suite.
Messages postés
26
Date d'inscription
mardi 15 février 2011
Statut
Membre
Dernière intervention
25 février 2011

je precise voici le code de ma macro et je veu quant il fini traiter les donnée il enregistre le resultat :Sub Mise_a_jour_donnee2()
'
' Mise_a_jour_donnee2 Macro
'

'

Range("A2:A1200").Select
ActiveWindow.ScrollRow = 2154
ActiveWindow.ScrollRow = 1
Sheets("Base de Donnée").Select
Application.CutCopyMode = False
ActiveWorkbook.RefreshAll
Sheets("Réponse").Select
Range("G2").Select
ActiveCell.FormulaR1C1 = _
"=SUMPRODUCT((exemple_essai!R2C1:R1000C1=Réponse!RC[-6])*(exemple_essai!R2C4:R1000C4))"
Range("G3").Select
ActiveCell.FormulaR1C1 = _
"=SUMPRODUCT((exemple_essai!R2C1:R1000C1=Réponse!RC[-6])*(exemple_essai!R2C4:R1000C4))"
Range("G4").Select
ActiveCell.FormulaR1C1 = _
"=SUMPRODUCT((exemple_essai!R2C1:R1000C1=Réponse!RC[-6])*(exemple_essai!R2C4:R1000C4))"
Range("G5").Select
ActiveCell.FormulaR1C1 = _
"=SUMPRODUCT((exemple_essai!R2C1:R1000C1=Réponse!RC[-6])*(exemple_essai!R2C4:R1000C4))"
Range("G6").Select
ActiveCell.FormulaR1C1 = _
"=SUMPRODUCT((exemple_essai!R2C1:R1000C1=Réponse!RC[-6])*(exemple_essai!R2C4:R1000C4))"
Range("G7").Select
ActiveCell.FormulaR1C1 = _
"=SUMPRODUCT((exemple_essai!R2C1:R1000C1=Réponse!RC[-6])*(exemple_essai!R2C4:R1000C4))"
Range("G8").Select
ActiveCell.FormulaR1C1 = _
"=SUMPRODUCT((exemple_essai!R2C1:R1000C1=Réponse!RC[-6])*(exemple_essai!R2C4:R1000C4))"
Range("E2").Select
ActiveCell.FormulaR1C1 = _
"=IF('Base de Donnée'!R2C4>Réponse!R2C7,""OF à placer"",""RAS"")"
Range("E3").Select
ActiveCell.FormulaR1C1 = _
"=IF('Base de Donnée'!R3C4>Réponse!R3C7,""OF à placer"",""RAS"")"
Range("E4").Select
ActiveCell.FormulaR1C1 = _
"=IF('Base de Donnée'!R4C4>Réponse!R4C7,""OF à placer"",""RAS"")"
Range("E5").Select
ActiveCell.FormulaR1C1 = _
"=IF('Base de Donnée'!R5C4>Réponse!R5C7,""OF à placer"",""RAS"")"
Range("E6").Select
ActiveCell.FormulaR1C1 = _
"=IF('Base de Donnée'!R6C4>Réponse!R6C7,""OF à placer"",""RAS"")"
Range("E7").Select
ActiveCell.FormulaR1C1 = _
"=IF('Base de Donnée'!R7C4>Réponse!R7C7,""OF à placer"",""RAS"")"
Range("E8").Select
ActiveCell.FormulaR1C1 = _
"=IF('Base de Donnée'!R8C4>Réponse!R8C7,""OF à placer"",""RAS"")"
Range("D2").Select
ActiveCell.FormulaR1C1 = "=WORKDAY(TODAY(),'Base de Donnée'!RC[1])"
Range("D3").Select
ActiveCell.FormulaR1C1 = "=WORKDAY(TODAY(),'Base de Donnée'!RC[1])"
Range("D4").Select
ActiveCell.FormulaR1C1 = "=WORKDAY(TODAY(),'Base de Donnée'!RC[1])"
Range("D5").Select
ActiveCell.FormulaR1C1 = "=WORKDAY(TODAY(),'Base de Donnée'!RC[1])"
Range("D6").Select
ActiveCell.FormulaR1C1 = "=WORKDAY(TODAY(),'Base de Donnée'!RC[1])"
Range("D7").Select
ActiveCell.FormulaR1C1 = "=WORKDAY(TODAY(),'Base de Donnée'!RC[1])"
Range("D8").Select
ActiveCell.FormulaR1C1 = "=WORKDAY(TODAY(),'Base de Donnée'!RC[1])"
Range("C2").Select
ActiveCell.FormulaR1C1 = "=WORKDAY(TODAY(),'Base de Donnée'!R2C6)"
Range("C3").Select
ActiveCell.FormulaR1C1 = "=WORKDAY(TODAY(),'Base de Donnée'!R3C6)"
Range("C4").Select
ActiveCell.FormulaR1C1 = "=WORKDAY(TODAY(),'Base de Donnée'!R4C6)"
Range("C5").Select
ActiveCell.FormulaR1C1 = "=WORKDAY(TODAY(),'Base de Donnée'!R5C6)"
Range("C6").Select
ActiveCell.FormulaR1C1 = "=WORKDAY(TODAY(),'Base de Donnée'!R6C6)"
Range("C7").Select
ActiveCell.FormulaR1C1 = "=WORKDAY(TODAY(),'Base de Donnée'!R7C6)"
Range("C8").Select
ActiveCell.FormulaR1C1 = "=WORKDAY(TODAY(),'Base de Donnée'!R8C6)"
Range("C9").Select

End Sub
Messages postés
2539
Date d'inscription
vendredi 23 avril 2004
Statut
Membre
Dernière intervention
15 mai 2017
521
Désolé, mais je ne comprends pas la finalité.

Bon courage.