Erreur avec FileFormat
Résolu
Ouibork
Messages postés
8
Date d'inscription
Statut
Membre
Dernière intervention
-
Le Pingou Messages postés 12273 Date d'inscription Statut Contributeur Dernière intervention -
Le Pingou Messages postés 12273 Date d'inscription Statut Contributeur Dernière intervention -
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
-
-
Bonjour,
Juste au passage essayer avec cette variante:
fname = invno & "_" & custname &".xlsm" With ActiveWorkbook .Sheets(1).Name = "Facture" .SaveAs FileName:=path & fname, FileFormat:=53
-
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
-
Merci bcp .. Le problème est résolu
