Petit probleme VBA pour enresitrement via macro

Version imprimable

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:

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

08/06/2020, 13h32
Menhir

Ce n'est pas parce que tu mets xlsm en extension de fichier que, dans sa structure interne, ce sera un xlsm.
Il faut préciser le type de format dans ton SaveAs par son paramètre FileFormat:=xlOpenXMLWorkbookMacroEnabled.
Lire ça : https://docs.microsoft.com/fr-FR/off...orkbook.saveas
Et ça : https://docs.microsoft.com/fr-FR/off...l.xlfileformat

Et supprime ce "On Error Resume Next" en début de code.

Bon je dois être un peu diminuer ce lundi matin :

Erreur de compilation : argument introuvable.....:calim2:

Code:

1
2
3
4
5
6
7
8
9
 
Sub SavefichierEF()
Dim fichier As String
Dim Name As String
Name = [F14]
ChDir "D:\SUD GEOTECHNIQUE\Devis\"
fichier = Application.GetSaveAsFilename(InitialFileName:="D:\SUD GEOTECHNIQUE\Devis\" & Name, XFileFormat:=xlOpenXMLWorkbookMacroEnabled, FileFilter:="Excel Files (*.xlsm), *.xlsm")
If fichier <> False Then ThisWorkbook.SaveAs fichier
End Sub

08/06/2020, 14h16
Menhir

Regarde les liens que j'ai donné : tu as vraiment l'impression que c'est de GetSaveAsFilename que je parlais ???
C'est sûr que en 10 min, tu n'as pas dû lire beaucoup...
08/06/2020, 14h27
ericfou

Citation:

Envoyé par Menhir

Regarde les liens que j'ai donné : tu as vraiment l'impression que c'est de GetSaveAsFilename que je parlais ???
C'est sûr que en 10 min, tu n'as pas dû lire beaucoup...

Bah tu sais j'y comprend pas grand chose mais j'essaye quand même... J'ai cru que c’était ça. Donc oui j'ai cru, oui j'ai lu. Je comprend même pas l'exemple qui est donné en fin d'article.
J’essaierais d'en lire plus ce soir si je peux
08/06/2020, 14h57
Menhir

Citation:

Envoyé par ericfou

Je comprend même pas l'exemple qui est donné en fin d'article.

Etant donné que l'exemple n'utilise pas le paramètre FileFormat, ça ne va pas beaucoup t'avancer...