Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel enregitrement XL 97-03

enregitrement XL 97-03

10 réponses
Avatar
zolive2010
bonjour,

je suis sous excel 2007. Je dois enregistrer mes fichiers sous 97-03
(.xls et non .xlsx).

je suis all=E9 ds les options et j'ai bien coch=E9 la case correspondante
pour l'enregistrement en 97-03.

Cependant j'ai une macro qui enregistre des feuilles en classeurs et
elle les enregistre en .xlsX

voici la macro...

Sub deploie()

Dim sh As Worksheet
For Each sh In ThisWorkbook.Sheets
sh.Copy
ActiveWorkbook.SaveAs sh.Name
Next
End Sub

pouvez vous m'aider a rajouter une commande pour le forcer a
enregistrer les feuilles en .xls?


par avance grand merci...

Olivier
Signaler un problème avec ce contenu

10 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
JB
Bonjour,

ActiveWorkbook.SaveAs Filename:="xxxx", FileFormat:=xlExcel9795

JB

On 6 mar, 16:24, wrote:
bonjour,

je suis sous excel 2007. Je dois enregistrer mes fichiers sous 97-03
(.xls et non .xlsx).

je suis allé ds les options et j'ai bien coché la case correspondante
pour l'enregistrement en 97-03.

Cependant j'ai une macro qui enregistre des feuilles en classeurs et
elle les enregistre en .xlsX

voici la macro...

Sub deploie()

Dim sh As Worksheet
For Each sh In ThisWorkbook.Sheets
sh.Copy
ActiveWorkbook.SaveAs sh.Name
Next
End Sub

pouvez vous m'aider a rajouter une commande pour le forcer a
enregistrer les feuilles en .xls?

par avance grand merci...

Olivier


Avatar
francois.forcet
Salut Olivier

Si tu veux choisir un format d'enregistrement fais suivre
l'instruction :

ActiveWorkbook.SaveAs sh.Name

du FileFormat ainsi :

ActiveWorkbook.SaveAs (sh.Name,xlExcel4) pour le format xlExcel4

Utilise l'aide en ligne (dans l'éditeur saisie FileFormat sélectionne
le et touche F1) pour connaitre tous les format possible

Puis adapte xlExcel4 en fonction du format souhaité

Celà devrait convenir
Dis moi !!!!
Avatar
zolive2010
Merci JB pour la réponse rapide...

Tel quelle, votre solution bug... je ne suis pas assez expert pour
vous dire ou ça pêche

Autre pb je pense ds votre solution est que le nom du classeur doit
etre renseigné (filename:="xxxxx") ds la macro...

Or ds la macro initiale, chaque classeur est nommé du nom de
l'onglet....donc nom variable...

merci encore néanmoins....



On 6 mar, 16:42, JB wrote:
Bonjour,

ActiveWorkbook.SaveAs Filename:="xxxx", FileFormat:=xlExcel9795

JB

On 6 mar, 16:24, wrote:



bonjour,

je suis sous excel 2007. Je dois enregistrer mes fichiers sous 97-03
(.xls et non .xlsx).

je suis allé ds les options et j'ai bien coché la case correspondant e
pour l'enregistrement en 97-03.

Cependant j'ai une macro qui enregistre des feuilles en classeurs et
elle les enregistre en .xlsX

voici la macro...

Sub deploie()

Dim sh As Worksheet
For Each sh In ThisWorkbook.Sheets
sh.Copy
ActiveWorkbook.SaveAs sh.Name
Next
End Sub

pouvez vous m'aider a rajouter une commande pour le forcer a
enregistrer les feuilles en .xls?

par avance grand merci...

Olivier- Masquer le texte des messages précédents -


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



Avatar
JB
Utilise l'enregistreur de macro et adapte.

JB
On 6 mar, 16:50, wrote:
Merci JB pour la réponse rapide...

Tel quelle, votre solution bug... je ne suis pas assez expert pour
vous dire ou ça pêche

Autre pb je pense ds votre solution est que le nom du classeur doit
etre renseigné  (filename:="xxxxx") ds la macro...

Or ds la macro initiale, chaque classeur est nommé du nom de
l'onglet....donc nom variable...

merci encore néanmoins....

On 6 mar, 16:42, JB wrote:



Bonjour,

ActiveWorkbook.SaveAs Filename:="xxxx", FileFormat:=xlExcel9795

JB

On 6 mar, 16:24, wrote:

bonjour,

je suis sous excel 2007. Je dois enregistrer mes fichiers sous 97-03
(.xls et non .xlsx).

je suis allé ds les options et j'ai bien coché la case corresponda nte
pour l'enregistrement en 97-03.

Cependant j'ai une macro qui enregistre des feuilles en classeurs et
elle les enregistre en .xlsX

voici la macro...

Sub deploie()

Dim sh As Worksheet
For Each sh In ThisWorkbook.Sheets
sh.Copy
ActiveWorkbook.SaveAs sh.Name
Next
End Sub

pouvez vous m'aider a rajouter une commande pour le forcer a
enregistrer les feuilles en .xls?

par avance grand merci...

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




Avatar
zolive2010
merci je vois ca et je vous dis.....

Salut Olivier

Si tu veux choisir un format d'enregistrement fais suivre
l'instruction :

ActiveWorkbook.SaveAs sh.Name

du FileFormat ainsi :

ActiveWorkbook.SaveAs (sh.Name,xlExcel4) pour le format xlExcel4

Utilise l'aide en ligne (dans l'éditeur saisie FileFormat sélectionne
le et touche F1) pour connaitre tous les format possible

Puis adapte xlExcel4 en fonction du format souhaité

Celà devrait convenir
Dis moi !!!!


Avatar
zolive2010
Bonjour,

Alors bon... j'ai bien essayé la commande
ActiveWorkbook.SaveAs (sh.Name,xlExcel4)

seulement lors de la compilation il me met "erreur de compilation,
attendu : ="
Pourtant la syntaxe a l'air bonne...

arghh..

Merci pour votre aide précieuse




Salut Olivier

Si tu veux choisir un format d'enregistrement fais suivre
l'instruction :

ActiveWorkbook.SaveAs sh.Name

du FileFormat ainsi :

ActiveWorkbook.SaveAs (sh.Name,xlExcel4) pour le format xlExcel4

Utilise l'aide en ligne (dans l'éditeur saisie FileFormat sélectionn e
le et touche F1) pour connaitre tous les format possible

Puis adapte xlExcel4 en fonction du format souhaité

Celà devrait convenir
Dis moi !!!!- Masquer le texte des messages précédents -


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



Avatar
zolive2010
bonjour à tous...

QQ'un peut il m'aider à corriger la syntaxe de la commande ds mon
message précédent?

Merci à tous

Olivier
Avatar
Daniel.C
Bonjour.
Pour enregistrer une feuille au format 97/2003 :
ActiveSheet.SaveAs "c:temptoto.xls", xlExcel8
Cordialement.
Daniel
a écrit dans le message de news:

bonjour à tous...

QQ'un peut il m'aider à corriger la syntaxe de la commande ds mon
message précédent?

Merci à tous

Olivier
Avatar
zolive2010
Bonjour Daniel,

Merci pour ta réponse...

seulement je ne peux nommer le fichier ds la macro étant donné que
c'est la macro qui nomme le fichier en prenant le nom de la
feuille...comme suit...

Dim sh As Worksheet
For Each sh In ThisWorkbook.Sheets
sh.Copy
ActiveWorkbook.SaveAs sh.Name
Next
End Sub


j'ai remplacé ActiveWorkbook.SaveAs sh.Name par
ActiveWorkbook.SaveAs (sh.Name,xlExcel4)

et j'ai erreur de compilation...snif..

merci encore de ton aide Daniel

Cordialement



Bonjour.
Pour enregistrer une feuille au format 97/2003 :
ActiveSheet.SaveAs "c:temptoto.xls", xlExcel8
Cordialement.
Daniel


Avatar
Daniel.C
C'était pour l'exemple, essaie :
ActiveWorkbook.SaveAs sh.Name, xlExcel8
Daniel
a écrit dans le message de news:

Bonjour Daniel,

Merci pour ta réponse...

seulement je ne peux nommer le fichier ds la macro étant donné que
c'est la macro qui nomme le fichier en prenant le nom de la
feuille...comme suit...

Dim sh As Worksheet
For Each sh In ThisWorkbook.Sheets
sh.Copy
ActiveWorkbook.SaveAs sh.Name
Next
End Sub


j'ai remplacé ActiveWorkbook.SaveAs sh.Name par
ActiveWorkbook.SaveAs (sh.Name,xlExcel4)

et j'ai erreur de compilation...snif..

merci encore de ton aide Daniel

Cordialement



Bonjour.
Pour enregistrer une feuille au format 97/2003 :
ActiveSheet.SaveAs "c:temptoto.xls", xlExcel8
Cordialement.
Daniel