Bon, voyant que mon premier post sur le sujet n'a pas donné grand chose, je
ré-essaye autrement :
est-il possible de créer une macro qui me fait une copie de mon fichier
toto.xls avec, comme nom de fichier automatique, le jour et l'heure (ex:
02-07-2004-14h50m30s.xls ou qque chose dans le genre)
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Nicolas B.
Salut,
Essaye ceci : Sub SauvegarderCopie() Dim Chemin As String Chemin = "M:" ActiveWorkbook.SaveAs Chemin & Format(Now, _ "yyyy-MM-dd_hh""h""mm""m""ss""s.xls""") End Sub
A+ -- Nicolas B.
Bon, voyant que mon premier post sur le sujet n'a pas donné grand chose, je ré-essaye autrement :
est-il possible de créer une macro qui me fait une copie de mon fichier toto.xls avec, comme nom de fichier automatique, le jour et l'heure (ex: 02-07-2004-14h50m30s.xls ou qque chose dans le genre)
voilà merci d'avance
William
Salut,
Essaye ceci :
Sub SauvegarderCopie()
Dim Chemin As String
Chemin = "M:"
ActiveWorkbook.SaveAs Chemin & Format(Now, _
"yyyy-MM-dd_hh""h""mm""m""ss""s.xls""")
End Sub
A+
--
Nicolas B.
Bon, voyant que mon premier post sur le sujet n'a pas donné grand
chose, je ré-essaye autrement :
est-il possible de créer une macro qui me fait une copie de mon
fichier toto.xls avec, comme nom de fichier automatique, le jour et
l'heure (ex: 02-07-2004-14h50m30s.xls ou qque chose dans le genre)
Essaye ceci : Sub SauvegarderCopie() Dim Chemin As String Chemin = "M:" ActiveWorkbook.SaveAs Chemin & Format(Now, _ "yyyy-MM-dd_hh""h""mm""m""ss""s.xls""") End Sub
A+ -- Nicolas B.
Bon, voyant que mon premier post sur le sujet n'a pas donné grand chose, je ré-essaye autrement :
est-il possible de créer une macro qui me fait une copie de mon fichier toto.xls avec, comme nom de fichier automatique, le jour et l'heure (ex: 02-07-2004-14h50m30s.xls ou qque chose dans le genre)
voilà merci d'avance
William
William
ca marche d'enfer!!!!
et si je ne veux enregistrer qu'une feuille, je mets le nom de la feuille à laplace de "workbook" ?
"Nicolas B." a écrit dans le message de news:
Salut,
Essaye ceci : Sub SauvegarderCopie() Dim Chemin As String Chemin = "M:" ActiveWorkbook.SaveAs Chemin & Format(Now, _ "yyyy-MM-dd_hh""h""mm""m""ss""s.xls""") End Sub
A+ -- Nicolas B.
Bon, voyant que mon premier post sur le sujet n'a pas donné grand chose, je ré-essaye autrement :
est-il possible de créer une macro qui me fait une copie de mon fichier toto.xls avec, comme nom de fichier automatique, le jour et l'heure (ex: 02-07-2004-14h50m30s.xls ou qque chose dans le genre)
voilà merci d'avance
William
ca marche d'enfer!!!!
et si je ne veux enregistrer qu'une feuille, je mets le nom de la feuille à
laplace de "workbook" ?
"Nicolas B." <nicolas.bruot@adresse.bidon.com> a écrit dans le message de
news: eDXp7QEYEHA.3520@TK2MSFTNGP10.phx.gbl...
Salut,
Essaye ceci :
Sub SauvegarderCopie()
Dim Chemin As String
Chemin = "M:"
ActiveWorkbook.SaveAs Chemin & Format(Now, _
"yyyy-MM-dd_hh""h""mm""m""ss""s.xls""")
End Sub
A+
--
Nicolas B.
Bon, voyant que mon premier post sur le sujet n'a pas donné grand
chose, je ré-essaye autrement :
est-il possible de créer une macro qui me fait une copie de mon
fichier toto.xls avec, comme nom de fichier automatique, le jour et
l'heure (ex: 02-07-2004-14h50m30s.xls ou qque chose dans le genre)
et si je ne veux enregistrer qu'une feuille, je mets le nom de la feuille à laplace de "workbook" ?
"Nicolas B." a écrit dans le message de news:
Salut,
Essaye ceci : Sub SauvegarderCopie() Dim Chemin As String Chemin = "M:" ActiveWorkbook.SaveAs Chemin & Format(Now, _ "yyyy-MM-dd_hh""h""mm""m""ss""s.xls""") End Sub
A+ -- Nicolas B.
Bon, voyant que mon premier post sur le sujet n'a pas donné grand chose, je ré-essaye autrement :
est-il possible de créer une macro qui me fait une copie de mon fichier toto.xls avec, comme nom de fichier automatique, le jour et l'heure (ex: 02-07-2004-14h50m30s.xls ou qque chose dans le genre)
voilà merci d'avance
William
Daniel.j
Bonsoir, Non ! Comme cela: Sub Enregistre_1_Feuille() ActiveSheet.Copy Application.Dialogs(xlDialogSaveAs).Show 'Active la boite de dialogue Enregistrer sous End Sub
Pour plusieurs feuilles: Sheets(Array("Feuil1", "Feuil2")).Copy
et tu peux reprendre le code Nicolas à la place de "Application.Dialogs(xlDialogSaveAs).Show" http://dj.joss.free.fr/fichier.htm#nomclasseur2
-- Daniel MVP Excel FAQ du Forum Microsoft Public Fr Excel http://dj.joss.free.fr/faq.htm
"William" a écrit dans le message de news:
| ca marche d'enfer!!!! | | et si je ne veux enregistrer qu'une feuille, je mets le nom de la feuille à | laplace de "workbook" ? | | "Nicolas B." a écrit dans le message de | news: | > Salut, | > | > Essaye ceci : | > Sub SauvegarderCopie() | > Dim Chemin As String | > Chemin = "M:" | > ActiveWorkbook.SaveAs Chemin & Format(Now, _ | > "yyyy-MM-dd_hh""h""mm""m""ss""s.xls""") | > End Sub | > | > | > A+ | > -- | > Nicolas B. | > | > | > > Bon, voyant que mon premier post sur le sujet n'a pas donné grand | > > chose, je ré-essaye autrement : | > > | > > est-il possible de créer une macro qui me fait une copie de mon | > > fichier toto.xls avec, comme nom de fichier automatique, le jour et | > > l'heure (ex: 02-07-2004-14h50m30s.xls ou qque chose dans le genre) | > > | > > voilà merci d'avance | > > | > > William | > | > | |
Bonsoir,
Non ! Comme cela:
Sub Enregistre_1_Feuille()
ActiveSheet.Copy
Application.Dialogs(xlDialogSaveAs).Show
'Active la boite de dialogue Enregistrer sous
End Sub
Pour plusieurs feuilles:
Sheets(Array("Feuil1", "Feuil2")).Copy
et tu peux reprendre le code Nicolas à la place de "Application.Dialogs(xlDialogSaveAs).Show"
http://dj.joss.free.fr/fichier.htm#nomclasseur2
--
Daniel MVP Excel
FAQ du Forum Microsoft Public Fr Excel
http://dj.joss.free.fr/faq.htm
"William" <brun_rhodanienne@hotmail.com> a écrit dans le message de news:
unKuYXEYEHA.1356@TK2MSFTNGP09.phx.gbl...
| ca marche d'enfer!!!!
|
| et si je ne veux enregistrer qu'une feuille, je mets le nom de la feuille à
| laplace de "workbook" ?
|
| "Nicolas B." <nicolas.bruot@adresse.bidon.com> a écrit dans le message de
| news: eDXp7QEYEHA.3520@TK2MSFTNGP10.phx.gbl...
| > Salut,
| >
| > Essaye ceci :
| > Sub SauvegarderCopie()
| > Dim Chemin As String
| > Chemin = "M:"
| > ActiveWorkbook.SaveAs Chemin & Format(Now, _
| > "yyyy-MM-dd_hh""h""mm""m""ss""s.xls""")
| > End Sub
| >
| >
| > A+
| > --
| > Nicolas B.
| >
| >
| > > Bon, voyant que mon premier post sur le sujet n'a pas donné grand
| > > chose, je ré-essaye autrement :
| > >
| > > est-il possible de créer une macro qui me fait une copie de mon
| > > fichier toto.xls avec, comme nom de fichier automatique, le jour et
| > > l'heure (ex: 02-07-2004-14h50m30s.xls ou qque chose dans le genre)
| > >
| > > voilà merci d'avance
| > >
| > > William
| >
| >
|
|
Bonsoir, Non ! Comme cela: Sub Enregistre_1_Feuille() ActiveSheet.Copy Application.Dialogs(xlDialogSaveAs).Show 'Active la boite de dialogue Enregistrer sous End Sub
Pour plusieurs feuilles: Sheets(Array("Feuil1", "Feuil2")).Copy
et tu peux reprendre le code Nicolas à la place de "Application.Dialogs(xlDialogSaveAs).Show" http://dj.joss.free.fr/fichier.htm#nomclasseur2
-- Daniel MVP Excel FAQ du Forum Microsoft Public Fr Excel http://dj.joss.free.fr/faq.htm
"William" a écrit dans le message de news:
| ca marche d'enfer!!!! | | et si je ne veux enregistrer qu'une feuille, je mets le nom de la feuille à | laplace de "workbook" ? | | "Nicolas B." a écrit dans le message de | news: | > Salut, | > | > Essaye ceci : | > Sub SauvegarderCopie() | > Dim Chemin As String | > Chemin = "M:" | > ActiveWorkbook.SaveAs Chemin & Format(Now, _ | > "yyyy-MM-dd_hh""h""mm""m""ss""s.xls""") | > End Sub | > | > | > A+ | > -- | > Nicolas B. | > | > | > > Bon, voyant que mon premier post sur le sujet n'a pas donné grand | > > chose, je ré-essaye autrement : | > > | > > est-il possible de créer une macro qui me fait une copie de mon | > > fichier toto.xls avec, comme nom de fichier automatique, le jour et | > > l'heure (ex: 02-07-2004-14h50m30s.xls ou qque chose dans le genre) | > > | > > voilà merci d'avance | > > | > > William | > | > | |
Joel
Bonsoir,
évidemment, enregistrer une seule feuille dans excel c'est dur !
néanmoins ... peut-être que ...
Sheets("LaFeuille").copy juste avant ActiveWorkbook.SaveAs ...
puis ActiveWorkbook.Close False
juste après
devrait pouvoir répondre à la demande ??? --
Bien cordialement,
Joël GARBE www.joelgarbe.fr "William" a écrit dans le message de news:
ca marche d'enfer!!!!
et si je ne veux enregistrer qu'une feuille, je mets le nom de la feuille à
laplace de "workbook" ?
"Nicolas B." a écrit dans le message de news:
Salut,
Essaye ceci : Sub SauvegarderCopie() Dim Chemin As String Chemin = "M:" ActiveWorkbook.SaveAs Chemin & Format(Now, _ "yyyy-MM-dd_hh""h""mm""m""ss""s.xls""") End Sub
A+ -- Nicolas B.
Bon, voyant que mon premier post sur le sujet n'a pas donné grand chose, je ré-essaye autrement :
est-il possible de créer une macro qui me fait une copie de mon fichier toto.xls avec, comme nom de fichier automatique, le jour et l'heure (ex: 02-07-2004-14h50m30s.xls ou qque chose dans le genre)
voilà merci d'avance
William
Bonsoir,
évidemment, enregistrer une seule feuille dans excel c'est dur !
néanmoins ... peut-être que ...
Sheets("LaFeuille").copy
juste avant ActiveWorkbook.SaveAs ...
puis
ActiveWorkbook.Close False
juste après
devrait pouvoir répondre à la demande ???
--
Bien cordialement,
Joël GARBE
www.joelgarbe.fr
"William" <brun_rhodanienne@hotmail.com> a écrit dans le message de
news:unKuYXEYEHA.1356@TK2MSFTNGP09.phx.gbl...
ca marche d'enfer!!!!
et si je ne veux enregistrer qu'une feuille, je mets le nom de la feuille
à
laplace de "workbook" ?
"Nicolas B." <nicolas.bruot@adresse.bidon.com> a écrit dans le message de
news: eDXp7QEYEHA.3520@TK2MSFTNGP10.phx.gbl...
Salut,
Essaye ceci :
Sub SauvegarderCopie()
Dim Chemin As String
Chemin = "M:"
ActiveWorkbook.SaveAs Chemin & Format(Now, _
"yyyy-MM-dd_hh""h""mm""m""ss""s.xls""")
End Sub
A+
--
Nicolas B.
Bon, voyant que mon premier post sur le sujet n'a pas donné grand
chose, je ré-essaye autrement :
est-il possible de créer une macro qui me fait une copie de mon
fichier toto.xls avec, comme nom de fichier automatique, le jour et
l'heure (ex: 02-07-2004-14h50m30s.xls ou qque chose dans le genre)
évidemment, enregistrer une seule feuille dans excel c'est dur !
néanmoins ... peut-être que ...
Sheets("LaFeuille").copy juste avant ActiveWorkbook.SaveAs ...
puis ActiveWorkbook.Close False
juste après
devrait pouvoir répondre à la demande ??? --
Bien cordialement,
Joël GARBE www.joelgarbe.fr "William" a écrit dans le message de news:
ca marche d'enfer!!!!
et si je ne veux enregistrer qu'une feuille, je mets le nom de la feuille à
laplace de "workbook" ?
"Nicolas B." a écrit dans le message de news:
Salut,
Essaye ceci : Sub SauvegarderCopie() Dim Chemin As String Chemin = "M:" ActiveWorkbook.SaveAs Chemin & Format(Now, _ "yyyy-MM-dd_hh""h""mm""m""ss""s.xls""") End Sub
A+ -- Nicolas B.
Bon, voyant que mon premier post sur le sujet n'a pas donné grand chose, je ré-essaye autrement :
est-il possible de créer une macro qui me fait une copie de mon fichier toto.xls avec, comme nom de fichier automatique, le jour et l'heure (ex: 02-07-2004-14h50m30s.xls ou qque chose dans le genre)
