Workbooks.Open Filename:="C:\test fitt\SuiviFitt.xlsm" '
'Ici sur nos PC ce dossier et ce fichier sont inexistants!
Range("J6").Select
'donc on a pas à disposition cette macro!
Application.Run "SuiviFitt.xlsm!Feuil2.oterdoublons"
ActiveWorkbook.Save
ActiveWindow.Close
If MsgBox("Êtes vous sur de vouloir envoyer le bon de préparation par email au format PDF ?", vbQuestion + vbYesNo, "ENVOYER LE BON DE PREPARATION ...") = vbYes Then
'ici les doubles parenthèses ??
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ActiveWorkbook.Path & "\" & "FITT VIERGE " & " " & (Range("a1")) & ".pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
piece_jointe = ActiveWorkbook.Path & "\" & "FITT VIERGE " & " " & (Range("a1")) & ".pdf" ' bon de préparation en pdf
'objMessage fait référence à un objet Outlook sauf qu'il manque un bout de code et les déclarations de variables
objMessage.AddAttachment (piece_jointe)
On Error Resume Next
Err = 0
'ici tu n'utilises plus Outlook, alors quid de objMessage !
ActiveWorkbook.FollowHyperlink Address:="mailto:" & _
"?subject= Bon de préparation pour le chantier" & " " & (Range("a1")) & _
"&body=Bonjour, veuillez trouver en pièce jointe le bon de préparation pour le chantier" & " " & (Range("a1"))
If Err <> 0 Then MsgBox "Une Erreur s'est produite..."
End If