David62800
XLDnaute Nouveau
bonjour les amis
j essaye de créer un code vba pour envoyé la sélection par mail
mais ca bloque sur
Set oOutlook = CreateObjet("Outlook.application")
ou est le problème svp
Sub test5()
'selection par mail faire avant()
Dim oOutlook As Object
Set oOutlook = CreateObjet("Outlook.application")
Dim oMail As objet
Set oMail = oOutlook.createItem(o)
With oMail
.to = "*********@gmail.com"
.Subject = "Extrait tableau" & Thisworbook.Name
.body = ActiveCell
.Display
End With
End Sub
exemple pour la sélection A6:R20
merci de votre aide
david
j essaye de créer un code vba pour envoyé la sélection par mail
mais ca bloque sur
Set oOutlook = CreateObjet("Outlook.application")
ou est le problème svp
Sub test5()
'selection par mail faire avant()
Dim oOutlook As Object
Set oOutlook = CreateObjet("Outlook.application")
Dim oMail As objet
Set oMail = oOutlook.createItem(o)
With oMail
.to = "*********@gmail.com"
.Subject = "Extrait tableau" & Thisworbook.Name
.body = ActiveCell
.Display
End With
End Sub
exemple pour la sélection A6:R20
merci de votre aide
david