Discussion :

[Frank]

Bonjour,

je dois permettre d'enregistrer un fichier sous un répertoire particulier, voire de permettre la création de sous-répertoires si nécessaire.

J'ai le code suivant :

Code :

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

1
2
3
  Enr = Application.GetSaveAsFilename(tbNomDot & "_" & Format(DTPicker1.Value, "DDMMYYYY"), _
              fileFilter:="Excel Files (*.xlsm), *.xlsm")
  If Enr <> False Then ThisWorkbook.SaveAs Filename:=Enr, FileFormat:=52

Quand la fenêtre d'enregistrement s'ouvre, il est possible de naviguer dans l'arborescence, de créer des répertoires.
Mais quand je clique sur "Save", alors j'ai l'erreur

erreur 13 incompatibilité de type

et le fichier ne s'enregistre pas.

Quelqu'un a t'il une idée de la raison de cette erreur?

Cordialement
Frank

[Menhir]

Quelqu'un a t'il une idée de la raison de cette erreur?

Regarde le contenu de la variable Enr.
A mon avis, elle ne contient que le nom de fichier sans son chemin.

Autre possibilité : enregistrer sous un autre nom le fichier dans lequel se trouve la macro elle-même, ça ne plait peut-être pas à VBA.

Petit détail qui n'a sans doute rien à voir mais ça me gratouille : évite de mettre le type de fichier sous forme numérique (52). Utilise plutôt les constantes (xlOpenXMLWorkbookMacroEnabled).

[Frank]

Bonsoir Menhir,

merci pour ton aide.

J'avais effectivement oublié de rajouter le chemin du répertoire.
J'ai aussi changé le FileFormat, et tout marche beaucoup mieux:-)

Cordialement,
Frank