A voir également:
- Macro excel enregistrer fichier avec nom
- Enregistrer un fichier excel avec le nom d'une cellule - Meilleures réponses
- [macro VBA] enregistrer classeur nom cellule ✓ - Forum - VB / VBA
- Enregistrer sous, un classeur avec le nom d'une cellule - Forum - Excel
- Creation macro ✓ - Forum - Excel
- Macro pour enregistrer sous, en fonction d'une cellule ✓ - Forum - VB / VBA
- Sauvegarder un fichier avec le nom d'une cellule d'une autre feu - Forum - VB / VBA
3 réponses
Weapon EDGE
Bonjour,
Voici un fichier qui devrais répondre à tes attentes :
http://cjoint.com/?0DkoeE03yGu
Quand t'ouvres le fichier toutes les feuilles sont blanche.
Saisis des données sur la feuille 1 par exemple et cliques sur enregistrer ou enregistrer sous. Le fichier se copieras automatiquent dans le même répertoire que le fichier d'origine mais avec la date en plus et se fermera aussitot. L'orinigial n'a subit aucune modification.
Le code se trouve dans "This Workbook". et une partie dans "Module1"
Voici un fichier qui devrais répondre à tes attentes :
http://cjoint.com/?0DkoeE03yGu
Quand t'ouvres le fichier toutes les feuilles sont blanche.
Saisis des données sur la feuille 1 par exemple et cliques sur enregistrer ou enregistrer sous. Le fichier se copieras automatiquent dans le même répertoire que le fichier d'origine mais avec la date en plus et se fermera aussitot. L'orinigial n'a subit aucune modification.
Le code se trouve dans "This Workbook". et une partie dans "Module1"
isakissss
- Messages postés
- 2
- Date d'inscription
- mercredi 9 avril 2014
- Statut
- Membre
- Dernière intervention
- 13 avril 2014
Merci pour ta réponse ;-)
Je n'y suis malheureusement pas arrivée avec ton fichier.. oui oui, je découvre à peine la fonction macro ^^
A force d'y chipoter et de m'être inspirée de tes conseils et d'autres codes sur le net, j'ai fini par bidouiller une macro que j'ai associé à un bouton de commande.
Cette macro me permet d'enregistrer le nouveau fichier sous un format PDF ainsi que de l'imprimer et de fermer le document (ce qui empêche toute modification de mon document original)
voici le code, pour ceux que ca intéresse
Sub EnregistrerEtImprimer()
'
' EnregistrerEtImprimer Macro
'
Dim Path As String, nom As String
Path = ActiveWorkbook.Path & "\"
nom = "Commande" & "_" & Format(Date, "dd-mm-yyyy") & "_" & Format(Time, "hh-mm")
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ActiveWorkbook.Path & "\" & "Commande" & "_" & Format(Date, "dd-mm-yyyy") & "_" & Format(Time, "hh-mm") & ".pdf"
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
Application.DisplayAlerts = False
MsgBox ("Le fichier a été enregistré sous : " & Path & nom)
ActiveWorkbook.Close
End Sub
Merci pour ton aide :-)
Je n'y suis malheureusement pas arrivée avec ton fichier.. oui oui, je découvre à peine la fonction macro ^^
A force d'y chipoter et de m'être inspirée de tes conseils et d'autres codes sur le net, j'ai fini par bidouiller une macro que j'ai associé à un bouton de commande.
Cette macro me permet d'enregistrer le nouveau fichier sous un format PDF ainsi que de l'imprimer et de fermer le document (ce qui empêche toute modification de mon document original)
voici le code, pour ceux que ca intéresse
Sub EnregistrerEtImprimer()
'
' EnregistrerEtImprimer Macro
'
Dim Path As String, nom As String
Path = ActiveWorkbook.Path & "\"
nom = "Commande" & "_" & Format(Date, "dd-mm-yyyy") & "_" & Format(Time, "hh-mm")
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ActiveWorkbook.Path & "\" & "Commande" & "_" & Format(Date, "dd-mm-yyyy") & "_" & Format(Time, "hh-mm") & ".pdf"
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
Application.DisplayAlerts = False
MsgBox ("Le fichier a été enregistré sous : " & Path & nom)
ActiveWorkbook.Close
End Sub
Merci pour ton aide :-)
Vikled
>
kamikase
- Messages postés
- 2
- Date d'inscription
- samedi 22 septembre 2012
- Statut
- Membre
- Dernière intervention
- 12 décembre 2016
Bonjour,
Il faut changer l'expression ActiveWorkbook.ExportAsFixedFormat par ActiveSheet.ExportAsFixedFormat
Le code deviendrait alors :
Sub EnregistrerEtImprimer()
'
' EnregistrerEtImprimer Macro
'
Dim Path As String, nom As String
Path = ActiveWorkbook.Path & "\"
nom = "Commande" & "_" & Format(Date, "dd-mm-yyyy") & "_" & Format(Time, "hh-mm")
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ActiveWorkbook.Path & "\" & "Commande" & "_" & Format(Date, "dd-mm-yyyy") & "_" & Format(Time, "hh-mm") & ".pdf"
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
Application.DisplayAlerts = False
MsgBox ("Le fichier a été enregistré sous : " & Path & nom)
ActiveWorkbook.Close
End Sub
Il faut changer l'expression ActiveWorkbook.ExportAsFixedFormat par ActiveSheet.ExportAsFixedFormat
Le code deviendrait alors :
Sub EnregistrerEtImprimer()
'
' EnregistrerEtImprimer Macro
'
Dim Path As String, nom As String
Path = ActiveWorkbook.Path & "\"
nom = "Commande" & "_" & Format(Date, "dd-mm-yyyy") & "_" & Format(Time, "hh-mm")
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ActiveWorkbook.Path & "\" & "Commande" & "_" & Format(Date, "dd-mm-yyyy") & "_" & Format(Time, "hh-mm") & ".pdf"
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
Application.DisplayAlerts = False
MsgBox ("Le fichier a été enregistré sous : " & Path & nom)
ActiveWorkbook.Close
End Sub
mimi13580
- Messages postés
- 72
- Date d'inscription
- mercredi 29 octobre 2014
- Statut
- Membre
- Dernière intervention
- 9 novembre 2015
bonjour isakissss,
je souhaiterai enregistrer un ficher Excel, après avoir rentrer des donner dans un tableau,
Exemple cellule(D5)= 201400320, je souhaite faire un enregistrement sous mon bureau sous le non de 201400320, si demain je change le numéro de D5= 20150088, je voudrais un enregistrement sous mon bureau sous le nouveau numéro.
Merci pour ton aide
je souhaiterai enregistrer un ficher Excel, après avoir rentrer des donner dans un tableau,
Exemple cellule(D5)= 201400320, je souhaite faire un enregistrement sous mon bureau sous le non de 201400320, si demain je change le numéro de D5= 20150088, je voudrais un enregistrement sous mon bureau sous le nouveau numéro.
Merci pour ton aide
