Erreur avec FileFormat

Résolu/Fermé
Ouibork Messages postés 7 Date d'inscription mercredi 19 octobre 2022 Statut Membre Dernière intervention 6 novembre 2022 - 21 oct. 2022 à 22:28
Le Pingou Messages postés 12109 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 23 juin 2024 - 24 oct. 2022 à 16:48

Bonsoir 

j'ai utilisé ce code afin que je puisse enregistrer ma facture avec l'extention .xlsm mais en vain ...

le fichier s'enregistre sans aucune extention 

j'ai besoin de votre aide merci voila mon code 

Sub Enregistrer()

Dim invno As String
Dim custname As String
Dim path As String
Dim fname As String

invno = Range("E2")
custname = Range("E5")
amt = Range("E39")
dt_issue = Range("C8")
path = "/Users/mustaphaouibork/Desktop/soferalu/Test/"
fname = invno & "_" & custname


With ActiveWorkbook
.Sheets(1).Name = "Facture"
.SaveAs FileName:=path & fname, FileFormat:=53

End With
End Sub

4 réponses

M-12 Messages postés 1331 Date d'inscription lundi 22 septembre 2008 Statut Membre Dernière intervention 8 avril 2023 281
22 oct. 2022 à 08:37

Bonjour,

Teste avec FileFormat:=52

53  *.xltm

52  *.xlsm

1
Le Pingou Messages postés 12109 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 23 juin 2024 1 442
Modifié le 22 oct. 2022 à 21:07

Bonjour,

Juste au passage essayer avec cette variante:

​fname = invno & "_" & custname &".xlsm"
With ActiveWorkbook
.Sheets(1).Name = "Facture"
.SaveAs FileName:=path & fname, FileFormat:=53
​

1
Ouibork Messages postés 7 Date d'inscription mercredi 19 octobre 2022 Statut Membre Dernière intervention 6 novembre 2022
22 oct. 2022 à 10:08

je suis sur mac .. c est pour ca j'ai mis 53 ... mais meme avec d'autre codes comme 52 le fichier s'enregistre sans aucune extention excel comme indiqué sur le screenshot .. 

y'a t'il d'autre solutions ? 

merci

0
Ouibork Messages postés 7 Date d'inscription mercredi 19 octobre 2022 Statut Membre Dernière intervention 6 novembre 2022
24 oct. 2022 à 13:09

Merci bcp .. Le problème est résolu

0
Le Pingou Messages postés 12109 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 23 juin 2024 1 442
24 oct. 2022 à 16:48

Merci de marquer comme résolu,

Salutations.
Le Pingou

1