Erreur avec FileFormat
Résolu
Ouibork
Messages postés
9
Statut
Membre
-
Le Pingou Messages postés 12713 Date d'inscription Statut Contributeur Dernière intervention -
Le Pingou Messages postés 12713 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
A voir également:
- Erreur avec FileFormat
- Erreur upes 1025 - Forum Téléviseurs
- Erreur 3000 france tv - Forum Lecteurs et supports vidéo
- Erreur 0x80070643 - Accueil - Windows
- Corriger l'erreur 0x80070643 de la mise à jour KB5034441 de Windows 10 - Accueil - Windows
- Code erreur f3500-31 ✓ - Forum Bbox Bouygues
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
