olivemotard
XLDnaute Junior
Bonjour a Tous.
Je reviens a nouveau vers vous les XLDnautes...
J'ai fait une macro qui va chercher des adresses mails, les place en bcc, inscrit le sujet, et un message.
Le probleme c'est ce message, je souhaiterai faire apparaitre une plage de cellules et je n'y arrive pas...
Il faut que je remplace "message" par une commande qui va chercher sheets("consultation").Range("A1:I53") (j'arrive a le copier en auto mais pas a le coller dans lotus (en gardant la mise en forme tableau si possible.
Voici ma macro
Le debut de mon code est la sauvegarde dans un fichier annexe d'un tableau comparatif.
Merci d'avance, je suis vraiement bloqué, cela fait trois jours que je retourne le problème dans tous les sens et je suis au bout de mes compétences (trés limitées).
Je reviens a nouveau vers vous les XLDnautes...
J'ai fait une macro qui va chercher des adresses mails, les place en bcc, inscrit le sujet, et un message.
Le probleme c'est ce message, je souhaiterai faire apparaitre une plage de cellules et je n'y arrive pas...
Il faut que je remplace "message" par une commande qui va chercher sheets("consultation").Range("A1:I53") (j'arrive a le copier en auto mais pas a le coller dans lotus (en gardant la mise en forme tableau si possible.
Voici ma macro
Code:
Private Sub CommandButton4_Click()
Sheets("Feuil1").Select
Sheets("Feuil1").Copy
ActiveWorkbook.UpdateLinks = xlUpdateLinksNever
ActiveWorkbook.SaveAs Filename:=[B1].Value & [B2].Value & [B3].Value & ".xls"
ActiveWorkbook.Saved = True
ActiveWorkbook.Close
Dim obj As String
Dim strbody As String
Dim myStr As String
Dim myStr1 As String
obj = "consultation"
strbody = [COLOR="Red"]"message"[/COLOR]
For I = 1 To 100
If InStr("@", Trim(Cells(I, 26))) = 0 Then
myStr = Cells(I, 26)
If InStr("@", Trim(Cells(I, 27))) = 0 Then
myStr1 = Cells(I, 27) & Cells(I, 28) & Cells(I, 29) & Cells(I, 30) & Cells(I, 31) & Cells(I, 32) & Cells(I, 33) & Cells(I, 34) & Cells(I, 35) & Cells(I, 36) & Cells(I, 37) & Cells(I, 38) & Cells(I, 39) & Cells(I, 40) & Cells(I, 41) & Cells(I, 42) & Cells(I, 43) & Cells(I, 44)
End If
myStr = Left(myStr, Len(myStr))
myStr1 = Left(myStr1, Len(myStr1))
copie = myStr1
URLto = "mailto:" & Adresse & "?subject=" & obj & "&body=" & strbody & "&Bcc=" & copie
ActiveWorkbook.FollowHyperlink Address:=URLto
myStr = ""
myStr1 = ""
End If
Next
Unload UserForm5
Unload UserForm4
Unload UserForm3
Unload UserForm2
Unload UserForm1
UserForm6.Show
End Sub
Le debut de mon code est la sauvegarde dans un fichier annexe d'un tableau comparatif.
Merci d'avance, je suis vraiement bloqué, cela fait trois jours que je retourne le problème dans tous les sens et je suis au bout de mes compétences (trés limitées).