[RESOLU] ENREGISTREMENT Excel 97-2003 force

[jsl72]

Bonjour à tous,

J'utilise excel 2007 et le code VBA me propose un enregistrement au format Excel 97-2003 comme je le souhaite.

Dim objSaveBox As FileDialog
Set objSaveBox = Application.FileDialog(msoFileDialogSaveAs)
With objSaveBox
Nom_fichier = Left(ActiveWorkbook.Name, 9) & ".xls"
.InitialFileName = Nom_fichier
.FilterIndex = 4 'enregistrement en excel 97-2003
.Show
.Execute
End With

Cependant ce qui me gène c'est qu'une alerte " Vérificateur de compatibilité " m'indique: les fonctionnalités de ce classeur ne sont pas prises en charge etc..... voir pièce jointe.

Question:
Y aurait-il un complément, qui ajouté à mon code forcerait l'enregistrement sans que ce message apparaîsse ?

Merci pour votre aide.

Bonne soirée

Joël

 

[david84]

Re : ENREGISTREMENT Excel 97-2003 force

Bonsoir,
as-tu testé en plaçant Application.DisplayAlerts=False en début de code et Application.DisplayAlerts = True en fin de code ?
A+
Edit : sinon, à tester dans ton code

ActiveWorkbook.CheckCompatibility = False
ActiveWorkbook.CheckCompatibility = True

cf.Ce lien n'existe plus

 

[jsl72]

Re : ENREGISTREMENT Excel 97-2003 force

Bonsoir David,

J'ai essayé ces instructions:
Application.DisplayAlerts = False 'en début de code
Application.DisplayAlerts = True 'en fin de code

Et ça marche du tonnerre !!

Deux lignes seulement, mais qu'est-ce que ça facilite la vie.

Merci beaucoup David pour ton aide.
Bonne soirée.

Joël

 

[david84]

Re : [RESOLU] ENREGISTREMENT Excel 97-2003 force

Re
Attention : Application.DisplayAlerts va désactiver tous les messages d'alerte de Microsoft.
Si c'est ce que tu veux, ok mais si tu veux agir spécifiquement sur la vérification de compatibilité, mieux vaut alors utiliser

ActiveWorkbook.CheckCompatibility = False
ActiveWorkbook.CheckCompatibility = True

Donc cela dépend de ce que tu recherches précisément.
A+

 

[jsl72]

Re : [RESOLU] ENREGISTREMENT Excel 97-2003 force

Bonjour David,

Effectivement, tu as raison je n'avais pas vu la chose sous cet angle.

Merci encore.

Cordialement
Joël