Bonjour,

J'ai une erreur de syntaxe sur la phrase en gras et italique, pourriez vous me dire comment y remédier ?
La cellule N2 c'est le chemin d'accès.

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
Private Sub CommandButton2_Click()


Set F1 = Sheets("menu")


Dim LeMail As Variant
Dim ligne As Integer

fin_bdd = Worksheets("bdd").Range("A3000").End(xlUp).Row
'Excel -> PDF
msgbox F1.Range("N2").Value & "\Planning Semaine " & Worksheets("planning").Range("H1").Value & ".pdf"
 
Worksheets("planning").Activate
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        F1.Range("N2").Value & "\Planning Semaine " & Worksheets("planning").Range("H1").Value & ".pdf" _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False

Worksheets("bdd").Activate

Set LeMail = CreateObject("Outlook.Application") 'création d'un objet outlouk

'For ligne = 2 To fin_bdd
For ligne = 2 To 4 'pour les tests

With LeMail.CreateItem(olMailItem) 'informe le programme que nous voulons envoyer un mail
    .Subject = "Planning semaine " & Worksheets("planning").Range("H1").Value & " " & Range("b" & ligne) & " " & Range("a" & ligne)  'le sujet + le nom
    .To = Range("i" & ligne) 'placer l'adresse mail de la ligne
    .Body = "Bonjour," & Chr(13) & Chr(13) & Range("N6") & Worksheets("planning").Range("H1").Value & Chr(13) & Chr(13) & F1.Range("N7") 'Corps de texte
    .Attachements.Add "F1.Range(N2).Value & "\Planning Semaine " & Worksheets("planning").Range("H1").Value & ".pdf""
    
    
Dim MaPJ
        MaPJ = F1.Range("N2").Value & "\Planning Semaine " & Worksheets("planning").Range("H1").Value & ".pdf"
        'on verifie d'abord qu'elle existe.
        If Dir(MaPJ) <> "" Then
            .Attachments.Add MaPJ
        End If
    .display
    '.Send
End With
    
Next ligne
        
Set F1 = Nothing

End Sub