Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Macro sauvegarde

Macro sauvegarde

6 réponses
Avatar
Nico
Bonjour,

Je souhaite faire une macro qui puisse mettre automatiquement dans le nom du
fichier : facture + le contenu de la cellule b12 de la Feuil1 + la date du
jour.
voici où j'en suis :
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\nico\Mes documents\facture.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

Merci
Nico
Signaler un problème avec ce contenu

6 réponses

Supprimer
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
Avatar
papou
Bonjour
Si le classeur à enregistrer doit être dans le même répertoire, tu peux
raccourcir :
Activeworkbook.saveas activeworkbook.path & "Facture" & Feuil1.[B12] _
& Format(Date,"DDMMYY") & ".xls"
NB : Eventuellement ajouter des espaces entre les éléments renseignés (& " "
&...)
Cordialement
Pascal

"Nico" a écrit dans le message de news:
%
Bonjour,

Je souhaite faire une macro qui puisse mettre automatiquement dans le nom
du
fichier : facture + le contenu de la cellule b12 de la Feuil1 + la date du
jour.
voici où j'en suis :
ActiveWorkbook.SaveAs Filename:= _
"C:Documents and SettingsnicoMes documentsfacture.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:úlse, CreateBackup:úlse

Merci
Nico




Avatar
Pounet95
Bonsoir,
A adapter
Mettre dans une variable String nommée MaFacture par exemple

MaFacture= "Facture " & Str$(Sheets("Feuil1").Range("B12").Value) & " " &
Format(Date, "ddmmyyyy")
puis
ActiveWorkbook.SaveAs Filename:= _
"C:Documents and SettingsnicoMes documents" &MaFacture &".xls",
_
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:úlse, CreateBackup:úlse

Attention au format de la Date ainsi qu'à celui du contenu de la cellule B12
qui ne doit pas avoir de
caractère interdit pour un nom de fichier ( du genre . ou / , etc )
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/

"Nico" a écrit dans le message de news:
%
Bonjour,

Je souhaite faire une macro qui puisse mettre automatiquement dans le nom
du
fichier : facture + le contenu de la cellule b12 de la Feuil1 + la date du
jour.
voici où j'en suis :
ActiveWorkbook.SaveAs Filename:= _
"C:Documents and SettingsnicoMes documentsfacture.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:úlse, CreateBackup:úlse

Merci
Nico




Avatar
anomymousA
bonsoir,

pourquoi pas
ActiveWorkbook.SaveAs Filename:="C:Documents and SettingsnicoMes
documentsfacture" & "_" & Cells(8, 4).Value & "_" & Year(Now) & "_" &
Month(Now) & "_" & Day(Now) & ".xls"

mais y a plein d'autres choix.

A+


Bonjour,

Je souhaite faire une macro qui puisse mettre automatiquement dans le nom du
fichier : facture + le contenu de la cellule b12 de la Feuil1 + la date du
jour.
voici où j'en suis :
ActiveWorkbook.SaveAs Filename:= _
"C:Documents and SettingsnicoMes documentsfacture.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:úlse, CreateBackup:úlse

Merci
Nico





Avatar
Patrick Fredin
Bonjour,

ActiveWorkbook.SaveAs Filename:= _
"C:Documents and SettingsnicoMes documentsfacture" &
Range("B12") & Format(Date, "dd/mm/yyyy") & ".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:úlse, CreateBackup:úlse


--
Patrick

"Nico" wrote in message
news:%
Bonjour,

Je souhaite faire une macro qui puisse mettre automatiquement dans le nom
du
fichier : facture + le contenu de la cellule b12 de la Feuil1 + la date du
jour.
voici où j'en suis :
ActiveWorkbook.SaveAs Filename:= _
"C:Documents and SettingsnicoMes documentsfacture.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:úlse, CreateBackup:úlse

Merci
Nico




Avatar
Nico
Extra
Merci à vous trois.

Nico


"anomymousA" a écrit dans le message
de news:
bonsoir,

pourquoi pas
ActiveWorkbook.SaveAs Filename:="C:Documents and SettingsnicoMes
documentsfacture" & "_" & Cells(8, 4).Value & "_" & Year(Now) & "_" &
Month(Now) & "_" & Day(Now) & ".xls"

mais y a plein d'autres choix.

A+


Bonjour,

Je souhaite faire une macro qui puisse mettre automatiquement dans le
nom du


fichier : facture + le contenu de la cellule b12 de la Feuil1 + la date
du


jour.
voici où j'en suis :
ActiveWorkbook.SaveAs Filename:= _
"C:Documents and SettingsnicoMes documentsfacture.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:úlse, CreateBackup:úlse

Merci
Nico







Avatar
Nico
Oups,

Merci à vous quatre

Nico

"Patrick Fredin" a écrit dans le
message de news:
Bonjour,

ActiveWorkbook.SaveAs Filename:= _
"C:Documents and SettingsnicoMes documentsfacture" &
Range("B12") & Format(Date, "dd/mm/yyyy") & ".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:úlse, CreateBackup:úlse


--
Patrick

"Nico" wrote in message
news:%
Bonjour,

Je souhaite faire une macro qui puisse mettre automatiquement dans le
nom


du
fichier : facture + le contenu de la cellule b12 de la Feuil1 + la date
du


jour.
voici où j'en suis :
ActiveWorkbook.SaveAs Filename:= _
"C:Documents and SettingsnicoMes documentsfacture.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:úlse, CreateBackup:úlse

Merci
Nico