enregistrer en xls un fichier htm

Le
elli6258
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"
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Papyjac
Le #17233201
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"





elli6258
Le #17235961
Merci pour le coup de pouce !
avec l'enregistreur de macro il me met 1 "chir" avant. et cela fonctionne.
cordialement
"Papyjac" 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"







Publicité
Poster une réponse
Anonyme