Discussion :

[backx3]

Bonjour,

J'ai un petit soucis au niveau d'un enregistrement de fichier automatique, avec "Application.GetSaveAsFilename".

Le code est le suivant :

Code :

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

1
2
3
4
5
6
7
8
9
Dim Choice As Variant, posss&
Dim ChoixUser As Variant
 
Choice = Application.GetSaveAsFilename(InitialFileName:="I:\ddiv-diec-qualite\Qualite-Vie-Serie\Capitalisation\DELAI LUP QC\Données du graphique_Délai LUP QC_K", fileFilter:="Classeur Excel (prenant en charge les macros) (*.xlsm), *.xlsm")
If Choice = False Then Exit Sub
Fichier = Application.GetOpenFilename("Tous,*.*", , "Choisir un fichier ...")
posss = InStr(Choice, ".xlsm")
ChoixUser = Mid(Choice, InStrRev(Choice, "\") + 1)
Workbooks(FichierGraphe).SaveAs ChoixUser

FichierGraphe = "Fichier de mise à jour.xlsx"
ChoixUser ="Données du graphique_Délai LUP QC_K....xlsm"

Et j'ai une vilaine erreur sur la dernière ligne :
"Erreur d'exécution 1004 : Impossible d'utiliser cette extension avec le type de fichier Sélectionné. Modifiez l'extension du fichier dans la zone de texte Nom du fichier ou sélectionnez un autre type de fichier dans la zone type de fichier."

Quelqu'un saurait m'aider svp ?

[casefayere]

Bonjour,
peut-être ajouter "FileFormat:=xlOpenXMLWorkbookMacroEnabled"

Code :

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

Workbooks(FichierGraphe).SaveAs ChoixUser, FileFormat:=xlOpenXMLWorkbookMacroEnabled

[backx3]

Merci pour ta réponse, malheureusement ça me génère une autre erreur, cette fois de compilation : "Argument nommé déjà spécifié" :/

[casefayere]

et tu as controlé la valeur de "ChoixUser" ?

Code :

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

1
2
3
.....
ChoixUser = Mid(Choice, InStrRev(Choice, "\") + 1)
MsgBox ChoixUser

[backx3]

En fait non la précision du format fonctionne parfaitement ! J'ai mis deux virgules comme un con... !

Merci beaucoup !