Enregistrement d'un fichier prenant en compte les macros

bonjour,

mon programme est comme ceci et quand je fais l'action de cliquer sur le bouton Je peut renommer mon fichier mais un message s'affiche juste apres :

Mon programme :

Private Sub CommandButton5_Click()
On Error Resume Next
ChDir "C:\dossier1\dossier2"
fichier = Application.GetSaveAsFilename( _
fileFilter:="Classeur Excels (prenant en charge les macros) (*.xlsm), *.xlsm")
If fichier <> False Then ThisWorkbook.SaveAs fichier
End Sub

Le message :

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

. Projet VB

Pour enregistrer un fichier avec ces fonctionnalités, cliquez sue 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.

Bonjour Bello

Quand on code, on commence par mettre

Option Explicit

En entête de module

Et on définit ces variables

Option Explicit

Private Sub CommandButton5_Click()
  Dim Fichier As String, sPath As String
  ' Chemin d'enregistrement
  sPath = "C:\Temp"
  ' Nom du fichier
  Fichier = Application.GetSaveAsFilename(fileFilter:="Classeur Excels (prenant en charge les macros) (*.xlsm), *.xlsm")
  If Fichier = "" Then Exit Sub
  '
  If UCase(Right(Fichier, 4)) <> "XLSM" Then
    MsgBox "Votre fichier doit avoir l'extension .XLSM", vbCritical, "ARRËT SAUVEGARDE"
    Exit Sub
  End If
  ' Enregistrer le classeur
  ThisWorkbook.SaveAs Fichier
End Sub

A tester

merci du conseil,

pour le programme j'ai toujours le même message et la ligne avant le end Sub bloque et me demande un debogage

Re,

Je ne sais pas ce que vous faites de votre côté

Le code donné fonctionne sans souci chez moi, vous ne nous dites pas tout...

Merci de joindre votre fichier anonymisé à votre demande

A+