Discussion :

[Kestion100]

Bonjour,
J'ai un souci avec un code que j'ai pourtant beaucoup pratiqué par le passé.

Je n'arrive pas à joindre des fichier à mes mails envoyés par Thunderbird.

Voici le code qui me renvoie qu'il ne trouve pas le fichier:

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
 
Application.EnableEvents = False
Application.Calculation = xlCalculationAutomatic
 
 
Workbooks("erreurs1803xlsx.xlsm").Activate
Sheets("ENVOI").Select
 
Dim Rep As Integer, destinataire As String, sujet As String, body As String, strcommand As String, TouchesEnvoi(5) As String
destinataire = Sheets(ActiveSheet.Index).Range("G2")
 
 
sujet = ConverAcute(Sheets("COMMUNICATION").Range("A1").Value)
 
 
 
body = ConverAcute(Sheets("COMMUNICATION").Range("B1").Value)
 
fichierjoint1 = ActiveWorkbook.Path & "\PUBLIP\" & Sheets(ActiveSheet.Name).Range("A2") & ".xls"
 
Debug.Print fichierjoint1
 
 
 
strcommand = "C:\Program Files\Mozilla Thunderbird\thunderbird"
strcommand = strcommand & " -compose " & "to='" & destinataire & "'"
strcommand = strcommand & "," & "subject=" & sujet & ","
strcommand = strcommand & "body=" & body
strcommand = strcommand & "," & "attachment=file:///" & fichierjoint1
 
 
 
Call Shell(strcommand, vbNormalFocus)
 
 
 
 
 
 
Application.Wait (Now + TimeValue("0:00:05"))
 
 
 
 
Dim LastCol As Long
 
LastCol = 11 'Cells(ActiveCell.Row, Cells.Columns.Count).End(xlToLeft).Column - 4
UltLig = ThisWorkbook.Sheets("ENVOI").Range("A500000").End(xlUp).Row
 
ThisWorkbook.Sheets("ENVOI").Range(Cells(1, 1), Cells(UltLig, LastCol)).Select
 
Selection.Copy
 
 
 
 
Application.Wait (Now + TimeValue("0:00:05"))
 
 
 
SendKeys "{DOWN 9}"
 
 
 
    SendKeys ("^+O")
 Application.Wait (Now + TimeValue("0:00:05"))
 
 
 
SendKeys "^{ENTER}", True
 
Application.ThisWorkbook.Activate
If NumLock = False Then NumLock = True
 
 
 
 
Application.EnableEvents = True
 
End Sub

Problème sur:

Code :

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

Call Shell(strcommand, vbNormalFocus)

Réponse:

Code :

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

Erreur53: Fichier introuvable

Pourtant le fichier existe bel et bien et le chemin apparaît comme étant le bon.


Quelqu'un y voit il plus clair que moi???

MERCI BEAUCOUP D'AVANCE!!!!

[Kestion100]

Le chemin du

Code :

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

Debug.print

:

Code :

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

S:\DAPEP_PUB\PERSONNE\XXXX\CONTROLES XXXX\REMONTEE MARS\2021\XXXX\PUBLIP\XXXX.xls

Le chemin du fichier rapporté par Explorer:

Code :

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

S:\DAPEP_PUB\PERSONNE\XXXX\CONTROLES XXXX\REMONTEE MARS\2021\XXXX\PUBLIP\XXXX.xls

[Kestion100]

Idem avec:

Code :

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

strcommand = strcommand & "," & "attachment=" & fichierjoint1

[Kestion100]

Désolé:

TROUVE:

Code :

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

strcommand = strcommand & "," & "attachment='" & fichierjoint1 & "'"