Problème d'incompatibilité

Bonjour,

Après de multiples recherches, j'ai réussi à trouver les codes nécessaires afin d'enregistrer un classeur en extrayant les données de certaines cellules et dans un répertoire précis. Ça donne ceci :

Sub Sauvegarde()
Dim Path As String
Dim filename As String
Path = "C:\CNESST\"
filename = Range("B10") & Range("B12") & Range("B41") & Range("D41") & Range("F41")
ActiveWorkbook.SaveAs filename:=Path & filename & ".xls", FileFormat:=xlNormal
End Sub

Malheureusement, je ne peux pas modifier l'extension pour .xlsx. Ça a pour conséquence que, lorsque j'exécute la macro, je reçois le message d'incompatibilité ci-contre. Que faire?

Bonjour

Ce sont juste des avertissements sur la non compatibilité descendante, pas une impossibilité.

Je sais mais j'espérais seulement pouvoir contourner ce message.

RE

Voir Application.DisplayAlerts

78chris ++ 1

Pour moi les lignes

Application.DisplayAlerts = False

et

Application.DisplayAlerts = True

en tête et en fin de code devraient inhiber les messages d'alerte.