Bonjour,

J'essaye d'utiliser cette macro qui a pour but de me permettre de sauvegarder mon fichier où je veux et avec le nom de fichier définis dans la cellule F14.
La fenêtre s'ouvre au bon endroit et avec le bon nom mais quand je clic sur sauvegarder j'ai le message suivant :
" les fonctionnalités suivantes ne peuvent pas être enregistrées dans des classeurs sans macro : Projet VB"
Pour je lui ai spécifié du xlsm

ET sa sauvegarde pas

QQ1 aurait une idée ?

Merci bcp bcp bcp


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
 
Sub SavefichierEF()
 
Dim fichier As String
Dim Name As String
On Error Resume Next
Name = [F14]
ChDir "D:\SUD GEOTECHNIQUE\Devis\"
fichier = Application.GetSaveAsFilename(InitialFileName:="D:\SUD GEOTECHNIQUE\Devis\" & Name, _
    FileFilter:="Excel Files (*.xlsm), *.xlsm")
If fichier <> False Then ThisWorkbook.SaveAs fichier
End Sub