Discussion :

[sfourre]

* Bonjour, *

La fonction workbook.SaveAs me fait quelques misères

Mon code est le suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
        Set wbDePrivFic = Workbooks.Open("NomFichier")
        'Ici je bricole le fichier ouvert
        Set obFdSaveAs = Application.FileDialog(msoFileDialogSaveAs)
        obFdSaveAs.InitialFileName = "NouveauNomFichier"
        If obFdSaveAs.Show Then
            wbDePrivFic.SaveAs Filename:=obFdSaveAs.SelectedItems(1), FileFormat:=xlWorkbookDefault

A l'exécution de wbDePrivFic.SaveAs j'ai la boîte de dialogue suivante :

Les fonctionnalités suivantes ne peuvent être enregistrées dans des classeurs sans macro

• Projet VB

Pour enregistrer avec ces fonctionnalités, cliquez sur non, puis sélectionnez un type de fichier prenant en charge les macros dans la liste type de fichier
Pour continuer à enregistrer en tant que classeur sans macro, cliquez sur oui


Quelques précisions :
- Workbooks.Open("NomFichier") ouvre un fichier au format .xlt
- Qui, me semble-t-il ne contienty pas de macro
- Je souhaite enregistrer au format .xls

Auriez-vous une piste à me proposer ?

Amicalement
* Merci *

[Montor]

tu essaie d'enregistrer avec le format xlsx tandis que ton fichier contenait des des macro

[patricktoulon]

bonjour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

FileFormat:=xlnormal

a la place de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

FileFormat:=xlWorkbookDefault

bien que ca depend quelle version d'excel tu a(avec 2007 ca n'est pas tout a fait ca )

et pour eviter le message" ete vous sur blablabla"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

application.displayalerts=false

en debut de macro ou fonction
et

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

application.displayalerts=true

a la fin de la macro ou fonction

aurai tu essayé par hazard l'enregistreur de macro pour en récupérer le code

peut etre que si tu le fait tu aura une reponse encore mieux adaptée

pour etre plus precis je viens de le faire a ta place,avec 2007 pour enregistrer en "xls"
c'est

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

FileFormat:=xlExcel8

au plaisir

[sfourre]

Merci pour cette réponse rapide Montor

J'en profite:
- Par quoi dois-je remplacer FileFormat:=xlWorkbookDefault pour avoir du .xls (2003/2007) ou du .xslm ?
- Je reste convaicu de ne pas avoir de vba dans ce fichier, existe-t-il un moyen de vérifier ?

Amicalement

[Montor]

Alors pour ne pas gaspiller le ton regarde ici

[patricktoulon]

re
par rapport a ta dernière question j'en conclu que tu n'a pas bien saisi le principe des extensions

en fait xls c'est le format avec macro 2003
pour 2007 c'est xlsm
cela dit je travaille avec 2007 et enregistre mes fichiers avec l'extension xls
beaucoup travaille encore avec 2003 et puis 2007 le supporte tres bien en mode compatibilité
surtout si tes macros sont recentes

au plaisir

[sfourre]

C'est parfait, mercie à tous
xlnormal = .xls

Amicalement

Stéphane

[Philippe Tulliez]

Bonjour,
Pas le temps de faire un test sur la boîte de dialogue SaveAs mais si tu peux t'en passer voici le code pour faire un SaveAs avec un fichier au format xls

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 ActiveWorkbook.SaveAs Filename:="Z:\Tests\Toto3.xls", FileFormat:=xlExcel8