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 création automatique d'un fichier.xls

création automatique d'un fichier.xls

2 réponses
Avatar
ericB
je souhaite =E0 partir d'un fichier "Nome.xls" comportant 2=20
feuilles (feuil1 et feuil2); depuis feuil2 c=E9er une macro=20
qui puisse cr=E9er un fichier enregistr=E9 sous le nom du=20
contenu de la cellule "A2" de feuil2 du=20
fichier "Nome.xls"; ce fichier comporte uniquement la=20
feuil2 de "Nome.xls".

J'ai enregistr=E9 la macro suivante, mais il manque le code=20
pour nommer "classeur1.xls" en "(nom du contenu de la=20
cellule A2 de feuil2 du classeur Nome.xls).xls"
Sub Macro2()
Sheets("Feuil1").Select
Sheets("Feuil1").Copy
ChDir "C:\Documents and Settings\BRAVI\Bureau"
ActiveWorkbook.SaveAs Filename:=3D _
"C:\Documents and=20
Settings\BRAVI\Bureau\Classeur1.xls",=20
FileFormat:=3DxlNormal _
, Password:=3D"", WriteResPassword:=3D"",=20
ReadOnlyRecommended:=3DFalse, _
CreateBackup:=3DFalse
End Sub

Merci de pouvoir m'apporter votre aide,
Bien cordialement,
Eric BRAVI
0613227653
Signaler un problème avec ce contenu

2 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
j
ActiveWorkbook.SaveAs Filename:= "C:Documents and SettingsBRAVIBureau"
& sheets("feuil2").range("a2")

http://jacxl.free.fr


"ericB" a écrit dans le message de news:
070e01c4e32c$e4b96d00$
je souhaite à partir d'un fichier "Nome.xls" comportant 2
feuilles (feuil1 et feuil2); depuis feuil2 céer une macro
qui puisse créer un fichier enregistré sous le nom du
contenu de la cellule "A2" de feuil2 du
fichier "Nome.xls"; ce fichier comporte uniquement la
feuil2 de "Nome.xls".

J'ai enregistré la macro suivante, mais il manque le code
pour nommer "classeur1.xls" en "(nom du contenu de la
cellule A2 de feuil2 du classeur Nome.xls).xls"
Sub Macro2()
Sheets("Feuil1").Select
Sheets("Feuil1").Copy
ChDir "C:Documents and SettingsBRAVIBureau"
ActiveWorkbook.SaveAs Filename:= _
"C:Documents and
SettingsBRAVIBureauClasseur1.xls",
FileFormat:=xlNormal _
, Password:="", WriteResPassword:="",
ReadOnlyRecommended:úlse, _
CreateBackup:úlse
End Sub

Merci de pouvoir m'apporter votre aide,
Bien cordialement,
Eric BRAVI
0613227653
Avatar
merci beaucoup pour votre précieuse aide.
je vous souhaite de bonnes fêtes de fin d'années,
bien cordialement,
Eric BRAVI

-----Message d'origine-----
ActiveWorkbook.SaveAs Filename:= "C:Documents and
SettingsBRAVIBureau"

& sheets("feuil2").range("a2")

http://jacxl.free.fr


"ericB" a écrit dans le message
de news:

070e01c4e32c$e4b96d00$
je souhaite à partir d'un fichier "Nome.xls" comportant 2
feuilles (feuil1 et feuil2); depuis feuil2 céer une macro
qui puisse créer un fichier enregistré sous le nom du
contenu de la cellule "A2" de feuil2 du
fichier "Nome.xls"; ce fichier comporte uniquement la
feuil2 de "Nome.xls".

J'ai enregistré la macro suivante, mais il manque le code
pour nommer "classeur1.xls" en "(nom du contenu de la
cellule A2 de feuil2 du classeur Nome.xls).xls"
Sub Macro2()
Sheets("Feuil1").Select
Sheets("Feuil1").Copy
ChDir "C:Documents and SettingsBRAVIBureau"
ActiveWorkbook.SaveAs Filename:= _
"C:Documents and
SettingsBRAVIBureauClasseur1.xls",
FileFormat:=xlNormal _
, Password:="", WriteResPassword:="",
ReadOnlyRecommended:úlse, _
CreateBackup:úlse
End Sub

Merci de pouvoir m'apporter votre aide,
Bien cordialement,
Eric BRAVI
0613227653


.