Discussion :

[MInfo25]

Bonjour
J'ai souvent cette erreur qui revient souvent, merci de m'aider :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
If Feuil2.Range("F8") = " " Then
Feuil2.Range("F8") = "Facture-" & Format(Now(), "dd-mm-hh-nn-ss")
facture = "C:\Users\minko\Documents\Mon Entreprise\Gestion des formations\Factures\Facture-" & Format(Now(), "dd-mm-hh-nn-ss") & ".pdf"
Else
Feuil2.Range("F8") = Feuil2.Range("F8").Text
facture = "C:\Users\minko\Documents\Mon Entreprise\Gestion des formations\Factures\" & Feuil2.Range("F8") & ".pdf"
End If
 
 
If Not Feuil2.Range("B16").Value = "" Then
 
 
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        facture, _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False