sauvegarde dans un autre format

Le
sleg
Bonjour;

jje suis en excel 2007 et j'ai besoin avec la macro ci-dessous
d'enregistrer les ficheirs au format 97, est ce possible et si oui
comment modifier la macro.

merci de vos retours.

bonne journée.



MACRO :
MAcro Sub EXPORTLOt()
Dim Cl As Workbook
Dim Fe1 As Worksheet
Set Fe1 = Worksheets("FORMULAIRE")
Application.ScreenUpdating = False
Set Cl = Workbooks.Add
With Cl
Application.DisplayAlerts = False
.SaveAs ("\chemin" & "" & "1-Formulaire_ACA_toto_" & Range("C7") &
"_" & Range("G7") & ".xls")
Fe1.Copy .Worksheets("Feuil1")
ActiveSheet.Name = "FORMULAIRE"
.Worksheets("Feuil1").Delete
.Worksheets("Feuil2").Delete
.Worksheets("Feuil3").Delete
.Worksheets("Feuil4").Delete
Application.DisplayAlerts = True
.Save
.Close
End With
Application.ScreenUpdating = True
Set Fe1 = Nothing
Set Fe2 = Nothing
Set fe3 = Nothing
Set Cl = Nothing
End Sub
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
Daniel.C
Le #21380741
Bonjour.

Mets :

.SaveAs ("\chemin" & "" & "1-Formulaire_ACA_toto_" & Range("C7") & _
"_" & Range("G7") & ".xls"), FileType:=xlExcel8

au lieu de :

.SaveAs ("\chemin" & "" & "1-Formulaire_ACA_toto_" & Range("C7") & _
"_" & Range("G7") & ".xls")

Cordialement.
Daniel

Bonjour;

jje suis en excel 2007 et j'ai besoin avec la macro ci-dessous
d'enregistrer les ficheirs au format 97, est ce possible et si oui
comment modifier la macro.

merci de vos retours.

bonne journée.



MACRO :
MAcro Sub EXPORTLOt()
Dim Cl As Workbook
Dim Fe1 As Worksheet
Set Fe1 = Worksheets("FORMULAIRE")
Application.ScreenUpdating = False
Set Cl = Workbooks.Add
With Cl
Application.DisplayAlerts = False
.SaveAs ("\chemin" & "" & "1-Formulaire_ACA_toto_" & Range("C7") &
"_" & Range("G7") & ".xls")
Fe1.Copy .Worksheets("Feuil1")
ActiveSheet.Name = "FORMULAIRE"
.Worksheets("Feuil1").Delete
.Worksheets("Feuil2").Delete
.Worksheets("Feuil3").Delete
.Worksheets("Feuil4").Delete
Application.DisplayAlerts = True
.Save
.Close
End With
Application.ScreenUpdating = True
Set Fe1 = Nothing
Set Fe2 = Nothing
Set fe3 = Nothing
Set Cl = Nothing
End Sub
sleg
Le #21380811
merci,
lorsque j'atoute ,FileType:=xlExcel8 jai une erruer "argument nommé
introuvable" une idee ?

On 15 mar, 10:58, Daniel.C
Bonjour.

Mets :

.SaveAs ("\chemin" & "" & "1-Formulaire_ACA_toto_" & Range("C7") & _
"_" & Range("G7") & ".xls"), FileType:=xlExcel8

au lieu de :

.SaveAs ("\chemin" & "" & "1-Formulaire_ACA_toto_" & Range("C7") & _
"_" & Range("G7") & ".xls")

Cordialement.
Daniel



> Bonjour;

> jje suis en excel 2007 et j'ai besoin avec la macro ci-dessous
> d'enregistrer les ficheirs au format 97, est ce possible et si oui
> comment modifier la macro.

> merci de vos retours.

> bonne journée.

> MACRO :
> MAcro Sub EXPORTLOt()
> Dim Cl As Workbook
> Dim Fe1 As Worksheet
> Set Fe1 = Worksheets("FORMULAIRE")
> Application.ScreenUpdating = False
> Set Cl = Workbooks.Add
> With Cl
> Application.DisplayAlerts = False
> .SaveAs ("\chemin" & "" & "1-Formulaire_ACA_toto_" & Range("C7") &
> "_" & Range("G7") & ".xls")
> Fe1.Copy .Worksheets("Feuil1")
> ActiveSheet.Name = "FORMULAIRE"
> .Worksheets("Feuil1").Delete
> .Worksheets("Feuil2").Delete
> .Worksheets("Feuil3").Delete
> .Worksheets("Feuil4").Delete
> Application.DisplayAlerts = True
> .Save
> .Close
> End With
> Application.ScreenUpdating = True
> Set Fe1 = Nothing
> Set Fe2 = Nothing
> Set fe3 = Nothing
> Set Cl = Nothing
> End Sub- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -
sleg
Le #21380901
probleme résolu grand merci

bonne semaine.


On 15 mar, 11:29, sleg
merci,
 lorsque j'atoute ,FileType:=xlExcel8  jai une erruer "argument nom mé
introuvable" une idee ?

On 15 mar, 10:58, Daniel.C


> Bonjour.

> Mets :

> .SaveAs ("\chemin" & "" & "1-Formulaire_ACA_toto_" & Range("C7") & _
> "_" & Range("G7") & ".xls"), FileType:=xlExcel8

> au lieu de :

> .SaveAs ("\chemin" & "" & "1-Formulaire_ACA_toto_" & Range("C7") & _
> "_" & Range("G7") & ".xls")

> Cordialement.
> Daniel

> > Bonjour;

> > jje suis en excel 2007 et j'ai besoin avec la macro ci-dessous
> > d'enregistrer les ficheirs au format 97, est ce possible et si oui
> > comment modifier la macro.

> > merci de vos retours.

> > bonne journée.

> > MACRO :
> > MAcro Sub EXPORTLOt()
> > Dim Cl As Workbook
> > Dim Fe1 As Worksheet
> > Set Fe1 = Worksheets("FORMULAIRE")
> > Application.ScreenUpdating = False
> > Set Cl = Workbooks.Add
> > With Cl
> > Application.DisplayAlerts = False
> > .SaveAs ("\chemin" & "" & "1-Formulaire_ACA_toto_" & Range("C7") &
> > "_" & Range("G7") & ".xls")
> > Fe1.Copy .Worksheets("Feuil1")
> > ActiveSheet.Name = "FORMULAIRE"
> > .Worksheets("Feuil1").Delete
> > .Worksheets("Feuil2").Delete
> > .Worksheets("Feuil3").Delete
> > .Worksheets("Feuil4").Delete
> > Application.DisplayAlerts = True
> > .Save
> > .Close
> > End With
> > Application.ScreenUpdating = True
> > Set Fe1 = Nothing
> > Set Fe2 = Nothing
> > Set fe3 = Nothing
> > Set Cl = Nothing
> > End Sub- Masquer le texte des messages précédents -

> - Afficher le texte des messages précédents -- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -
Publicité
Poster une réponse
Anonyme