Bonjour le Forum
J’ai 1 problème avec une macro qui marchait très bien sur mon micro et celui d’un collègue via un dossier partagé avec :
Microsoft Outlook 2002 SP3
Je dois maintenant la faire fonctionner (suite changement de matos et logiciel) sur le micro de ce collègue doté maintenant de :
Microsoft-Office Outlook 2003
Mais moi je ne change pas!!
En fouillant sur le forum, j’ai essayé ce qui suit, mais je veux faire partir dans le corps du message une partie du tableau excel A2 :I22
La boite Email s’ouvre, mais je ne sais pas joindre cette zone selectionnée pour expédier
Sub monmail()
Dim Retour As Integer
Dim MonOutlook As New Outlook.Application, MonMessage As Object
Set MonOutlook = CreateObject("Outlook.Application")
Set MonMessage = MonOutlook.CreateItem(0)
ThisWorkbook.Sheets("Saisie").Activate
ActiveSheet.Range("A2:I22").Select ' la plage de cellules à envoyer
With MonMessage
.To = Range("M8")
.cc = Range("O8")
.Subject = ThisWorkbook.Sheets("Paramètres").Range("C7") & ThisWorkbook.Sheets("Saisie").Range("C3") ''& " au " & Date & "."
.Body = ThisWorkbook.Sheets("Paramètres").Range("C8") & vbLf _
& ThisWorkbook.Sheets("Paramètres").Range("C9") & Date & "." & vbLf _
& ThisWorkbook.Sheets("Paramètres").Range("C10")
.Display ' on affiche juste le message
End With
Set MonMessage = Nothing
Set MonOutlook = Nothing
End Sub
Deuxième PB : De plus, une fois le fichier utilisé (en réseau) par mon collègue, cela ne fonctionne plus du tout sur mon micro, même la partie sans Email. Je diagnostique un pb de bibliothèque que je ne sais pas résoudre.(Manquant : Microsoft Outlook 11.0 Object Library)
Si quelqu’un peut m’aider…MERCI
J’ai 1 problème avec une macro qui marchait très bien sur mon micro et celui d’un collègue via un dossier partagé avec :
Microsoft Outlook 2002 SP3
Je dois maintenant la faire fonctionner (suite changement de matos et logiciel) sur le micro de ce collègue doté maintenant de :
Microsoft-Office Outlook 2003
Mais moi je ne change pas!!
En fouillant sur le forum, j’ai essayé ce qui suit, mais je veux faire partir dans le corps du message une partie du tableau excel A2 :I22
La boite Email s’ouvre, mais je ne sais pas joindre cette zone selectionnée pour expédier
Sub monmail()
Dim Retour As Integer
Dim MonOutlook As New Outlook.Application, MonMessage As Object
Set MonOutlook = CreateObject("Outlook.Application")
Set MonMessage = MonOutlook.CreateItem(0)
ThisWorkbook.Sheets("Saisie").Activate
ActiveSheet.Range("A2:I22").Select ' la plage de cellules à envoyer
With MonMessage
.To = Range("M8")
.cc = Range("O8")
.Subject = ThisWorkbook.Sheets("Paramètres").Range("C7") & ThisWorkbook.Sheets("Saisie").Range("C3") ''& " au " & Date & "."
.Body = ThisWorkbook.Sheets("Paramètres").Range("C8") & vbLf _
& ThisWorkbook.Sheets("Paramètres").Range("C9") & Date & "." & vbLf _
& ThisWorkbook.Sheets("Paramètres").Range("C10")
.Display ' on affiche juste le message
End With
Set MonMessage = Nothing
Set MonOutlook = Nothing
End Sub
Deuxième PB : De plus, une fois le fichier utilisé (en réseau) par mon collègue, cela ne fonctionne plus du tout sur mon micro, même la partie sans Email. Je diagnostique un pb de bibliothèque que je ne sais pas résoudre.(Manquant : Microsoft Outlook 11.0 Object Library)
Si quelqu’un peut m’aider…MERCI