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

[Tête de chat]

Bonjour,

j'ai peut-être mal lu, mais je n'ai pas trouvé dans les 2 posts de quelle erreur il s'agit

Une source erreur possible (fréquente) serait que activesheet ne correspond pas à ce que tu attends.
Comme dans le code au-dessous tu utilises Feuil2 - ce qui est quand même plus propre, tu pourrais juste changer feuil2 pour un truc plus parlant - dans la mesure o^ù serait bien feuil2 que tu veux exporter, commence par modifier la ligne :

Code :

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

 Feuil2.ExportAsFixedFormat Type:=xlTypePDF, etc.

[MInfo25]

J'ai l'erreur "Document non enregistré", il n'arrive pas à exporter le la feuil2 et je ne sais pas pourquoi.

[MInfo25]

J'ai fait certaines modifications et maintenant ça marche, voici mon code qui marche dès maintenant :

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
 
Sub envoieFacture()
Dim facture As String
Dim ligne As Integer
 
 
Set OL = CreateObject("Outlook.Application")
Set myItem = OL.CreateItem(olMailItem)
 
 
 
 
If Not Feuil2.Range("B16").Value = "" Then
   If Feuil2.Range("F8") = " " Then
     Feuil2.Range("F8") = Format(Now(), "ddmmhhnnss")
     facture = "C:\Users\minko\Documents\Mon Entreprise\Gestion des formations\Factures\Facture-" & Format(Now(), "ddmmhhnnss") & ".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
 
 
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        facture, _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=True
 
With myItem
        .to = Feuil2.Range("B16").Value '& ";" & Feuil2.Range("B17").Value
        .Subject = "Facture mission de formation - N° : " & Feuil2.Range("F8")
        .Body = "Bonjour Monsieur/Madame " & Feuil2.Range("B20").Value & Chr(13) & Chr(10) & "Veuillez retrouver en pièce jointe votre facture. " & Chr(13) & Chr(10) & " Cordialement." & Chr(13) & Chr(10) & "Anouchka MINKOUE OBAME" & Chr(13) & Chr(10) & "Téléphone : 06 58 89 85 31" & Chr(13) & Chr(10) & " Email : minkoueobamea@gmail.com" & Chr(13) & Chr(10) & "Adresse : Rue Rétimare, Imm. Adolph. Adam, N°42, 76190 Yvetot"
        .Attachments.Add (facture)
        .display
End With
 
 
MsgBox "La facture a bien été envoyée à " & " " & Feuil2.Range("B16").Value
Feuil2.Range("F8") = " "
 
 
Else: MsgBox "Merci de rentrer une adresse mail"
Feuil2.Range("B16").Select
 
 
End If
End Sub
 
 
Sub envoieDevis()
Dim devis As String
Dim ligne As Integer
 
 
Set OL = CreateObject("Outlook.Application")
Set myItem = OL.CreateItem(olMailItem)
 
 
If Feuil5.Range("E8") = " " Then
Feuil5.Range("E8") = "DE-" & Format(Now(), "dd-mm-hh-nn-ss")
devis = "C:\Users\minko\Documents\Mon Entreprise\Gestion des formations\Devis\DE-" & Format(Now(), "dd-mm-hh-nn-ss") & ".pdf"
Else
Feuil5.Range("E8") = Feuil5.Range("E8").Text
devis = "C:\Users\minko\Documents\Mon Entreprise\Gestion des formations\Devis\" & Feuil5.Range("E8") & ".pdf"
End If
 
 
If Not Feuil5.Range("B16").Value = "" Then
 
 
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        devis, _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False
 
With myItem
        .to = Feuil5.Range("B16").Value '& ";" & Feuil5.Range("B17").Value
        .Subject = "Devis mission de formation - N° : " & Feuil5.Range("E8")
        .Body = "Bonjour Monsieur/Madame " & Feuil5.Range("B20").Value & Chr(13) & Chr(10) & "Veuillez retrouver en pièce jointe mon devis. " & Chr(13) & Chr(10) & " Cordialement." & Chr(13) & Chr(10) & "Anouchka MINKOUE OBAME" & Chr(13) & Chr(10) & "Téléphone : 06 58 89 85 31" & Chr(13) & Chr(10) & " Email : minkoueobamea@gmail.com" & Chr(13) & Chr(10) & "Adresse : Rue Rétimare, Imm. Adolph. Adam, N°42, 76190 Yvetot"
        .Attachments.Add (devis)
        .display
End With
 
 
MsgBox "Le devis a bien été envoyée à " & " " & Feuil5.Range("B16").Value
Feuil5.Range("E8") = " "
 
 
Else: MsgBox "Merci de rentrer une adresse mail"
Feuil5.Range("B16").Select
 
 
End If
End Sub