enregitrement XL 97-03

Le
zolive2010
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
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
JB
Le #5234291
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


francois.forcet
Le #5234261
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 !!!!
zolive2010
Le #5234251
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
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 -



JB
Le #5234231
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


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 -




zolive2010
Le #5234221
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 !!!!


zolive2010
Le #5233601
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 -



zolive2010
Le #5231271
bonjour à tous...

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

Merci à tous

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

bonjour à tous...

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

Merci à tous

Olivier
zolive2010
Le #5231231
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


Daniel.C
Le #5231211
C'était pour l'exemple, essaie :
ActiveWorkbook.SaveAs sh.Name, xlExcel8
Daniel

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


Publicité
Poster une réponse
Anonyme