Bonjour,
Depuis la mise à jour de notre version d'office, l'envoi de mes rapports renseignés sous excel ne fonctionnent plus.
Habituellement j'envoi la feuille active pour que mes destinataires ne voient pas les autres feuilles, et depuis j'obtiens une erreur d'exécution 7225 file \Classeur1 not found.
Voici le code que j'utilise (réadapté d'une autre code que j'avais trouvé sur la toile.) :
Qui pourrait m'aider ?
Apres quelques investigations de mon coté le chemin fourni pour la variable attachment n'est pas valide...
ActiveWorkbook.Path n'est pas renseigné. Il semble donc normal que Lotus notes n'arrive pas à trouver le chemin fabriquer avec Attachment = ActiveWorkbook.Path + "\" + ActiveWorkbook.Name.
Mais je ne vois pas du tout comment proceder autrement :/
Merci d'avance.
Depuis la mise à jour de notre version d'office, l'envoi de mes rapports renseignés sous excel ne fonctionnent plus.
Habituellement j'envoi la feuille active pour que mes destinataires ne voient pas les autres feuilles, et depuis j'obtiens une erreur d'exécution 7225 file \Classeur1 not found.
Voici le code que j'utilise (réadapté d'une autre code que j'avais trouvé sur la toile.) :
Code:
Public Sub Send_OROP(LIST1 As Boolean, LIST2 As Boolean)
Dim session As Object 'Session Notes
Dim Dir As Object
Dim Doc As Object
Dim AttachME As Object 'Objet richtext
Dim EmbedObj As Object 'Objet embed du richtext
Dim Footpage As Object 'pied de page
Dim Workspace As Object
Dim EditDoc As Object
Dim Attachment As String
Dim cc As String
Dim time As String
Dim strChaine As String
'On Error GoTo TraiteErreur
'Création de la session Notes
Set Workspace = CreateObject("Notes.NotesUIWorkspace")
Set session = CreateObject("notes.NOTESSESSION")
Set Dir = session.GetDatabase("XXX/XXX/XXX", "XXX/XXX/XXX.nsf")
If Not Dir.IsOpen Then Dir.OPENMAIL
'Creation d'un document
Set Doc = Dir.CreateDocument
Set AttachME = Doc.CREATERICHTEXTITEM("BODY")
Doc.form = "Memo"
Doc.Subject = "Rapport OROP de la nuit du " & VBA.Date - 1 & " au " & VBA.Date
Doc.SendTo = ""
'Initialisation des destinataire en copy par défaut
If LIST1 = True Then
strChaine = Sheets("AddressBook").Cells(2, 2).Value
End If
If LIST2 = True Then
strChaine = Sheets("AddressBook").Cells(3, 2).Value
End If
Doc.CopyTo = strChaine
Doc.body = "Bonjour," & vbLf & vbLf & "ci-joint les rapports OROP de la nuit du " & VBA.Date - 1 & " au " & VBA.Date & vbLf & vbLf & "Cordialement," & vbLf & "Team GPMX"
'Joindre le fichier OROP en PJ
'On le sauvegarde pour s'assurer d'avoir la derniere version.
ActiveWorkbook.Save
ActiveSheet.Copy
Attachment = ActiveWorkbook.Path + "\" + ActiveWorkbook.Name ==> La ligne qui ne marche apparemment plus
Set EmbedObj = AttachME.EmbedObject(1454, "", Attachment, "BODY")
'Affichage du mail dans Lotus Notes
Set EditDoc = Workspace.EDITDOCUMENT(True, Doc)
Set session = Nothing
Set Dir = Nothing
Set Doc = Nothing
Set Workspace = Nothing
Set EditDoc = Nothing
Exit Sub
Qui pourrait m'aider ?
Apres quelques investigations de mon coté le chemin fourni pour la variable attachment n'est pas valide...
ActiveWorkbook.Path n'est pas renseigné. Il semble donc normal que Lotus notes n'arrive pas à trouver le chemin fabriquer avec Attachment = ActiveWorkbook.Path + "\" + ActiveWorkbook.Name.
Mais je ne vois pas du tout comment proceder autrement :/
Merci d'avance.
Dernière édition: