Enregistrement dans macro Résolu/Fermé

Question

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

Configuration: Windows XP / Internet Explorer 8.0

g · Answer

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.

sirif · Answer

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

g · Answer

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.

sirif · Answer

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

g · Answer

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.

sirif · Answer

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

g · Answer

Désolé, mais je ne comprends pas la finalité.

Bon courage.

Enregistrement dans macro

7 réponses

Discussions similaires