Discussion :

[ericfou]

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

[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.

[ericfou]

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

Erreur de compilation : argument introuvable.....

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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...

[ericfou]

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

[Menhir]

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...