Enregistrement dans macro

Résolu

sirif Messages postés 26 Date d'inscription Statut Membre Dernière intervention -
g Messages postés 1265 Date d'inscription Statut Membre Dernière intervention - 25 févr. 2011 à 23:26

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

Afficher la suite

A voir également:

Enregistrement dans macro
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Enregistrement mp3 gratuit - Télécharger - Streaming audio
Jitbit macro recorder - Télécharger - Confidentialité
Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Telecharger studio d'enregistrement rap - Télécharger - Édition & Montage

7 réponses

Réponse 1 / 7

g Messages postés 1265 Date d'inscription Statut Membre Dernière intervention 577

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.

Réponse 2 / 7

sirif Messages postés 26 Date d'inscription Statut Membre Dernière intervention

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

Réponse 3 / 7

g Messages postés 1265 Date d'inscription Statut Membre Dernière intervention 577

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.

Réponse 4 / 7

sirif Messages postés 26 Date d'inscription Statut Membre Dernière intervention

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

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 7

g Messages postés 1265 Date d'inscription Statut Membre Dernière intervention 577

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.

Réponse 6 / 7

sirif Messages postés 26 Date d'inscription Statut Membre Dernière intervention

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

Réponse 7 / 7

g Messages postés 1265 Date d'inscription Statut Membre Dernière intervention 577

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

Bon courage.

Discussions similaires

Comment supprimer un contact

Transformer un chiffre en lettres dans excel sans macro

contacts non supprimables ou modifiables sur ma carte sim

Votre réponse

Discussions similaires