Difficultés avec SaveAs

* Bonjour, *

La fonction workbook.SaveAs me fait quelques misères

Mon code est le suivant :

Code:

---

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 *

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

bonjour

Code:

---

FileFormat:=xlnormal

---

a la place de

Code:

---

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:

---

application.displayalerts=false

---

en debut de macro ou fonction
et

Code:

---

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:

---

FileFormat:=xlExcel8

---

au plaisir

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

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:

---

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

---

Alors pour ne pas gaspiller le ton regarde ici

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

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

Amicalement

Stéphane