Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel sauvegarde dans un autre format

sauvegarde dans un autre format

3 réponses
Avatar
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=E9e.



MACRO :
MAcro Sub EXPORTLOt()
Dim Cl As Workbook
Dim Fe1 As Worksheet
Set Fe1 =3D Worksheets("FORMULAIRE")
Application.ScreenUpdating =3D False
Set Cl =3D Workbooks.Add
With Cl
Application.DisplayAlerts =3D False
.SaveAs ("\\chemin" & "\" & "1-Formulaire_ACA_toto_" & Range("C7") &
"_" & Range("G7") & ".xls")
Fe1.Copy .Worksheets("Feuil1")
ActiveSheet.Name =3D "FORMULAIRE"
.Worksheets("Feuil1").Delete
.Worksheets("Feuil2").Delete
.Worksheets("Feuil3").Delete
.Worksheets("Feuil4").Delete
Application.DisplayAlerts =3D True
.Save
.Close
End With
Application.ScreenUpdating =3D True
Set Fe1 =3D Nothing
Set Fe2 =3D Nothing
Set fe3 =3D Nothing
Set Cl =3D Nothing
End Sub
Signaler un problème avec ce contenu

3 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
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
Avatar
sleg
merci,
lorsque j'atoute ,FileType:=xlExcel8 jai une erruer "argument nommé
introuvable" une idee ?

On 15 mar, 10:58, Daniel.C wrote:
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 -
Avatar
sleg
probleme résolu grand merci

bonne semaine.


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

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



> 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 -