Discussion :

[Silence]

Sur un fichier creer sur Excel 2002 et utiliser sur Excel 97, lorsqu'on enregistre, un message d'information indiquant que le fichier a été créé sur une version plus récente est affiché avec pour bouton selectionner par défaut sur "ne pas enregistrer".

Dans mon code vba, j'active DisplayAlert, lorsque je veux enregistrer ce message n'apparait pas (ça c'est cool!) mais ce code utilise le bouton du message par défaut donc "ne pas enregistrer" et c'est le drame !

Comment enregistrer, tout en utilisant DisplayAlert?

Qques idées mais je ne sais pas faire :
- Mettre le bouton par défaut du message sur "Enregistrer"
- Faire un enregistrement de ce fichier pour qu'il soit "détecter" en 97
- Laisser apparaitre le message avec un code qui selectionne le bouton du message qui m'interesse

Merci!

[ouskel'n'or]

Tu as la réponse dans FileFormat
Extrait de l'aide pour Saveas

expression.SaveAs(Filename, FileFormat, Password, WriteResPassword, ReadOnlyRecommended, CreateBackup, AccessMode, ConflictResolution, AddToMru, TextCodePage, TextVisualLayout)

Extrait de l'aide pour FileFormat

Renvoie le format du fichier et/ou le type du classeur. Argument de type Long en lecture seule.
Il peut s'agir de l'une des constantes XlFileFormat suivantes :

(Là tu as la liste des constantes utilisable pour identifier la version ou le type de ton fichier) Je n'ai pas mis la liste puisque je suis sur VBA97 et que ça ne t'avancerait pas...

FileFormat, propriété - Exemple
Cet exemple montre comment enregistrer le classeur actif dans le format de fichier Normal si son format de fichier en cours est WK3.

Code :

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

1
2
3
If ActiveWorkbook.FileFormat = xlWK3 Then
	ActiveWorkbook.SaveAs fileFormat:=xlNormal
End If

Comme cette propriété est en lecture seule, je ne sais pas si ça va t'aider mais c'est toujours une piste

A+

[Silence]

Pour les personnes qui rencontrent se même problème :

Pour la première utilisation, il a fallu que je supprime le displayalerts, que j'utilise le code :

ActiveWorkbook.SaveAs fileFormat:=

pour pouvoir enregistrer mon fichier sous un format Excel97.

Une fois fait j'ai pu remettre mon displayalert et utiliser la fonction save pour l'utilisation courante du fichier.

Si on laisse le le code SaveAs fileFormat avec le displayalert le fichier ne sera pas sauvegarder.