Bonjour à tous,
Je souhaite enregistrer au format xls, un fichier en htm.
vous trouverez ci-dessous la macro mais me donne un message d'erreur
pourriez-vous m'aider?
Merci d'avance
Michel
'renseigne le n° de semaine et pose la valeur année dans les donnée de ref.
Numsemaine = InputBox("Salut Tis'aut!. Faudro q'té tape l'numéro
d'semaine !")
année = InputBox("Cé ti l'bonne année ? sinon kinge là !", , 2008)
'Copie la zone des jours feriés
Windows("planning des chti -V7.xls").Activate
Columns("B:G").Select
Selection.Copy
Windows("planning des chti -V7.xls").Activate
ActiveWindow.Visible = False
'renomme le fichier d'import qui est en .htm
ActiveWorkbook.SaveAs Filename:="K:\A15 - MAINTENANCE 1.2.3.4\A15 - B -
PLANIFICATION\"_
"PLS" & Numsemaine_
, FileFormat:=xlNormal
'change le nom de l'onglet du fichier temporaire
Windows("PLS" & Numsemaine).Activate
ActiveSheet.Name = "PL"
Sheets.Add.Name = "JF"
'Copie les J. fériés sur le nouveau fichier.
Worksheets("JF").Activate
Columns("A:A").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWorkbook.Names.Add Name:="fériés", RefersToR1C1:= _
"=temp!R1C1:R20C1"
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
Papyjac
Bonjour elli
j'ai testé avec l'enregistreur de macro Windows("Classeur1").Activate ActiveWorkbook.SaveAs Filename:="D: . A FaireClasseur1.htm", _ FileFormat:=xlHtml, ReadOnlyRecommended:úlse, CreateBackup:úlse
Tu constatera une différence sur le paramètre FileFormat
-- Papyjac
"elli6258" a écrit :
Bonjour à tous, Je souhaite enregistrer au format xls, un fichier en htm. vous trouverez ci-dessous la macro mais me donne un message d'erreur pourriez-vous m'aider? Merci d'avance Michel
'renseigne le n° de semaine et pose la valeur année dans les donnée de ref. Numsemaine = InputBox("Salut Tis'aut!. Faudro q'té tape l'numéro d'semaine !") année = InputBox("Cé ti l'bonne année ? sinon kinge là !", , 2008)
'Copie la zone des jours feriés Windows("planning des chti -V7.xls").Activate Columns("B:G").Select Selection.Copy Windows("planning des chti -V7.xls").Activate ActiveWindow.Visible = False
'renomme le fichier d'import qui est en .htm ActiveWorkbook.SaveAs Filename:="K:A15 - MAINTENANCE 1.2.3.4A15 - B - PLANIFICATION"_ "PLS" & Numsemaine_ , FileFormat:=xlNormal
'change le nom de l'onglet du fichier temporaire Windows("PLS" & Numsemaine).Activate ActiveSheet.Name = "PL" Sheets.Add.Name = "JF"
'Copie les J. fériés sur le nouveau fichier. Worksheets("JF").Activate Columns("A:A").Select ActiveSheet.Paste Application.CutCopyMode = False ActiveWorkbook.Names.Add Name:="fériés", RefersToR1C1:= _ "=temp!R1C1:R20C1"
Bonjour elli
j'ai testé avec l'enregistreur de macro
Windows("Classeur1").Activate
ActiveWorkbook.SaveAs Filename:="D: . A FaireClasseur1.htm", _
FileFormat:=xlHtml, ReadOnlyRecommended:úlse, CreateBackup:úlse
Tu constatera une différence sur le paramètre FileFormat
--
Papyjac
"elli6258" a écrit :
Bonjour à tous,
Je souhaite enregistrer au format xls, un fichier en htm.
vous trouverez ci-dessous la macro mais me donne un message d'erreur
pourriez-vous m'aider?
Merci d'avance
Michel
'renseigne le n° de semaine et pose la valeur année dans les donnée de ref.
Numsemaine = InputBox("Salut Tis'aut!. Faudro q'té tape l'numéro
d'semaine !")
année = InputBox("Cé ti l'bonne année ? sinon kinge là !", , 2008)
'Copie la zone des jours feriés
Windows("planning des chti -V7.xls").Activate
Columns("B:G").Select
Selection.Copy
Windows("planning des chti -V7.xls").Activate
ActiveWindow.Visible = False
'renomme le fichier d'import qui est en .htm
ActiveWorkbook.SaveAs Filename:="K:A15 - MAINTENANCE 1.2.3.4A15 - B -
PLANIFICATION"_
"PLS" & Numsemaine_
, FileFormat:=xlNormal
'change le nom de l'onglet du fichier temporaire
Windows("PLS" & Numsemaine).Activate
ActiveSheet.Name = "PL"
Sheets.Add.Name = "JF"
'Copie les J. fériés sur le nouveau fichier.
Worksheets("JF").Activate
Columns("A:A").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWorkbook.Names.Add Name:="fériés", RefersToR1C1:= _
"=temp!R1C1:R20C1"
j'ai testé avec l'enregistreur de macro Windows("Classeur1").Activate ActiveWorkbook.SaveAs Filename:="D: . A FaireClasseur1.htm", _ FileFormat:=xlHtml, ReadOnlyRecommended:úlse, CreateBackup:úlse
Tu constatera une différence sur le paramètre FileFormat
-- Papyjac
"elli6258" a écrit :
Bonjour à tous, Je souhaite enregistrer au format xls, un fichier en htm. vous trouverez ci-dessous la macro mais me donne un message d'erreur pourriez-vous m'aider? Merci d'avance Michel
'renseigne le n° de semaine et pose la valeur année dans les donnée de ref. Numsemaine = InputBox("Salut Tis'aut!. Faudro q'té tape l'numéro d'semaine !") année = InputBox("Cé ti l'bonne année ? sinon kinge là !", , 2008)
'Copie la zone des jours feriés Windows("planning des chti -V7.xls").Activate Columns("B:G").Select Selection.Copy Windows("planning des chti -V7.xls").Activate ActiveWindow.Visible = False
'renomme le fichier d'import qui est en .htm ActiveWorkbook.SaveAs Filename:="K:A15 - MAINTENANCE 1.2.3.4A15 - B - PLANIFICATION"_ "PLS" & Numsemaine_ , FileFormat:=xlNormal
'change le nom de l'onglet du fichier temporaire Windows("PLS" & Numsemaine).Activate ActiveSheet.Name = "PL" Sheets.Add.Name = "JF"
'Copie les J. fériés sur le nouveau fichier. Worksheets("JF").Activate Columns("A:A").Select ActiveSheet.Paste Application.CutCopyMode = False ActiveWorkbook.Names.Add Name:="fériés", RefersToR1C1:= _ "=temp!R1C1:R20C1"
elli6258
Merci pour le coup de pouce ! avec l'enregistreur de macro il me met 1 "chir" avant. et cela fonctionne. cordialement "Papyjac" a écrit dans le message de news:
Bonjour elli
j'ai testé avec l'enregistreur de macro Windows("Classeur1").Activate ActiveWorkbook.SaveAs Filename:="D: . A FaireClasseur1.htm", _ FileFormat:=xlHtml, ReadOnlyRecommended:úlse, CreateBackup:úlse
Tu constatera une différence sur le paramètre FileFormat
-- Papyjac
"elli6258" a écrit :
Bonjour à tous, Je souhaite enregistrer au format xls, un fichier en htm. vous trouverez ci-dessous la macro mais me donne un message d'erreur pourriez-vous m'aider? Merci d'avance Michel
'renseigne le n° de semaine et pose la valeur année dans les donnée de ref. Numsemaine = InputBox("Salut Tis'aut!. Faudro q'té tape l'numéro d'semaine !") année = InputBox("Cé ti l'bonne année ? sinon kinge là !", , 2008)
'Copie la zone des jours feriés Windows("planning des chti -V7.xls").Activate Columns("B:G").Select Selection.Copy Windows("planning des chti -V7.xls").Activate ActiveWindow.Visible = False
'renomme le fichier d'import qui est en .htm ActiveWorkbook.SaveAs Filename:="K:A15 - MAINTENANCE 1.2.3.4A15 - B - PLANIFICATION"_ "PLS" & Numsemaine_ , FileFormat:=xlNormal
'change le nom de l'onglet du fichier temporaire Windows("PLS" & Numsemaine).Activate ActiveSheet.Name = "PL" Sheets.Add.Name = "JF"
'Copie les J. fériés sur le nouveau fichier. Worksheets("JF").Activate Columns("A:A").Select ActiveSheet.Paste Application.CutCopyMode = False ActiveWorkbook.Names.Add Name:="fériés", RefersToR1C1:= _ "=temp!R1C1:R20C1"
Merci pour le coup de pouce !
avec l'enregistreur de macro il me met 1 "chir" avant. et cela fonctionne.
cordialement
"Papyjac" <Papyjac@discussions.microsoft.com> a écrit dans le message de
news: 6E67735D-7F4A-4C4F-9004-94DA91FAE73D@microsoft.com...
Bonjour elli
j'ai testé avec l'enregistreur de macro
Windows("Classeur1").Activate
ActiveWorkbook.SaveAs Filename:="D: . A FaireClasseur1.htm", _
FileFormat:=xlHtml, ReadOnlyRecommended:úlse, CreateBackup:úlse
Tu constatera une différence sur le paramètre FileFormat
--
Papyjac
"elli6258" a écrit :
Bonjour à tous,
Je souhaite enregistrer au format xls, un fichier en htm.
vous trouverez ci-dessous la macro mais me donne un message d'erreur
pourriez-vous m'aider?
Merci d'avance
Michel
'renseigne le n° de semaine et pose la valeur année dans les donnée de
ref.
Numsemaine = InputBox("Salut Tis'aut!. Faudro q'té tape l'numéro
d'semaine !")
année = InputBox("Cé ti l'bonne année ? sinon kinge là !", , 2008)
'Copie la zone des jours feriés
Windows("planning des chti -V7.xls").Activate
Columns("B:G").Select
Selection.Copy
Windows("planning des chti -V7.xls").Activate
ActiveWindow.Visible = False
'renomme le fichier d'import qui est en .htm
ActiveWorkbook.SaveAs Filename:="K:A15 - MAINTENANCE 1.2.3.4A15 -
B -
PLANIFICATION"_
"PLS" & Numsemaine_
, FileFormat:=xlNormal
'change le nom de l'onglet du fichier temporaire
Windows("PLS" & Numsemaine).Activate
ActiveSheet.Name = "PL"
Sheets.Add.Name = "JF"
'Copie les J. fériés sur le nouveau fichier.
Worksheets("JF").Activate
Columns("A:A").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWorkbook.Names.Add Name:="fériés", RefersToR1C1:= _
"=temp!R1C1:R20C1"
Merci pour le coup de pouce ! avec l'enregistreur de macro il me met 1 "chir" avant. et cela fonctionne. cordialement "Papyjac" a écrit dans le message de news:
Bonjour elli
j'ai testé avec l'enregistreur de macro Windows("Classeur1").Activate ActiveWorkbook.SaveAs Filename:="D: . A FaireClasseur1.htm", _ FileFormat:=xlHtml, ReadOnlyRecommended:úlse, CreateBackup:úlse
Tu constatera une différence sur le paramètre FileFormat
-- Papyjac
"elli6258" a écrit :
Bonjour à tous, Je souhaite enregistrer au format xls, un fichier en htm. vous trouverez ci-dessous la macro mais me donne un message d'erreur pourriez-vous m'aider? Merci d'avance Michel
'renseigne le n° de semaine et pose la valeur année dans les donnée de ref. Numsemaine = InputBox("Salut Tis'aut!. Faudro q'té tape l'numéro d'semaine !") année = InputBox("Cé ti l'bonne année ? sinon kinge là !", , 2008)
'Copie la zone des jours feriés Windows("planning des chti -V7.xls").Activate Columns("B:G").Select Selection.Copy Windows("planning des chti -V7.xls").Activate ActiveWindow.Visible = False
'renomme le fichier d'import qui est en .htm ActiveWorkbook.SaveAs Filename:="K:A15 - MAINTENANCE 1.2.3.4A15 - B - PLANIFICATION"_ "PLS" & Numsemaine_ , FileFormat:=xlNormal
'change le nom de l'onglet du fichier temporaire Windows("PLS" & Numsemaine).Activate ActiveSheet.Name = "PL" Sheets.Add.Name = "JF"
'Copie les J. fériés sur le nouveau fichier. Worksheets("JF").Activate Columns("A:A").Select ActiveSheet.Paste Application.CutCopyMode = False ActiveWorkbook.Names.Add Name:="fériés", RefersToR1C1:= _ "=temp!R1C1:R20C1"