Bonjour,
Suite au fil de la semaine passée, et grâce aux réponses reçues, notamment
de Daniel J, j’ai pu écrire cette proc qui :
Envoit le mail aux personnes de la liste devant lesquelles je mets en X en
colonne A.
Sur la feuille j’ai placé 1 cellule E1 pour le sujet et 1 cellule E2 pour le
message.
Sub Tri_si_X_et_envoit() 'ça MARCHE
Dim Cal As Range, cell As Range, Ligne As Long
' effacer la liste des destinataires
Sheets("tri").Select
Range("A3:A200").Select
Selection.ClearContents
Sheets("liste globale").Select
Set Cal = Range("A1:A200")
For Each cell In Cal
If cell = "X" Then
cell.Offset(0, 2).Copy Sheets("tri").Range("A3").Offset(Ligne, 0)
Ligne = Ligne + 1
End If
Next cell
Application.CutCopyMode = False
'envoie les mails aux destinataires
Dim Dest As String
Dim Sujt As String
Dim Msg As String
Dim Shapes As String
Sheets("tri").Select
For Each Lescellules In Range("A1:A20")
If Lescellules.Value <> "" Then
'MsgBox "ça marche "
Dest = Lescellules.Value
Sujt = [E1].Value ' ça marche
'Msg = [E2].Value' ça marche
Msg = Shapes("Zone de texte 1").Value ' là, ça marche pas
End If
Next
Sheets("liste globale").Select
End Sub
Ça marche mais j’aimerais remplacer E2 par une zône de texte (plus facile à
remplir)
Mais je reçois un message SUB ou FONCTION non définie
Ma syntaxte est-elle mauvaise ou ma nullité m’a-t-elle fait oublié kekchose ?
Par ailleurs, j’aimerais e faire une version pour sur une boite qui est sous
hotmail et non sur outlook
Comment formuler le chemin ?
Shell "C:\Program Files\Outlook Express\msimn.exe " & _
"/mailurl:mailto:" & Dest & "?subject=" & Sujt & "&Body=" & Msg & ""
SendKeys "%s"
Merci à ceusses qui ont pitié des bricolos-vba comme moi !!!
A+
gilles
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel.j
Essaie avec cela
Msg = Worksheets("le nom de ta feuille").Shapes("Zone de texte 1").TextFrame.Characters.Text MsgBox Msg Daniel
-- FAQ MPFE FAQ du forum microsoft.public.fr.excel http://dj.joss.free.fr/faq.htm
"gilles" a écrit dans le message de news:
Bonjour, Suite au fil de la semaine passée, et grâce aux réponses reçues, notamment de Daniel J, j'ai pu écrire cette proc qui : Envoit le mail aux personnes de la liste devant lesquelles je mets en X en colonne A. Sur la feuille j'ai placé 1 cellule E1 pour le sujet et 1 cellule E2 pour le message.
Sub Tri_si_X_et_envoit() 'ça MARCHE Dim Cal As Range, cell As Range, Ligne As Long
' effacer la liste des destinataires Sheets("tri").Select Range("A3:A200").Select Selection.ClearContents Sheets("liste globale").Select Set Cal = Range("A1:A200") For Each cell In Cal If cell = "X" Then cell.Offset(0, 2).Copy Sheets("tri").Range("A3").Offset(Ligne, 0) Ligne = Ligne + 1 End If Next cell Application.CutCopyMode = False
'envoie les mails aux destinataires Dim Dest As String Dim Sujt As String Dim Msg As String Dim Shapes As String Sheets("tri").Select For Each Lescellules In Range("A1:A20") If Lescellules.Value <> "" Then 'MsgBox "ça marche " Dest = Lescellules.Value Sujt = [E1].Value ' ça marche 'Msg = [E2].Value' ça marche Msg = Shapes("Zone de texte 1").Value ' là, ça marche pas
End If Next Sheets("liste globale").Select End Sub
Ça marche mais j'aimerais remplacer E2 par une zône de texte (plus facile à remplir) Mais je reçois un message SUB ou FONCTION non définie Ma syntaxte est-elle mauvaise ou ma nullité m'a-t-elle fait oublié kekchose ? Par ailleurs, j'aimerais e faire une version pour sur une boite qui est sous hotmail et non sur outlook Comment formuler le chemin ? Shell "C:Program FilesOutlook Expressmsimn.exe " & _ "/mailurl:mailto:" & Dest & "?subject=" & Sujt & "&Body=" & Msg & "" SendKeys "%s" Merci à ceusses qui ont pitié des bricolos-vba comme moi !!! A+ gilles
-- gilles72
Essaie avec cela
Msg = Worksheets("le nom de ta feuille").Shapes("Zone de texte
1").TextFrame.Characters.Text
MsgBox Msg
Daniel
--
FAQ MPFE
FAQ du forum microsoft.public.fr.excel
http://dj.joss.free.fr/faq.htm
"gilles" <gilles@discussions.microsoft.com> a écrit dans le message de news:
0A15A0A1-8C42-4509-A888-4CCBA407354C@microsoft.com...
Bonjour,
Suite au fil de la semaine passée, et grâce aux réponses reçues, notamment
de Daniel J, j'ai pu écrire cette proc qui :
Envoit le mail aux personnes de la liste devant lesquelles je mets en X en
colonne A.
Sur la feuille j'ai placé 1 cellule E1 pour le sujet et 1 cellule E2 pour
le
message.
Sub Tri_si_X_et_envoit() 'ça MARCHE
Dim Cal As Range, cell As Range, Ligne As Long
' effacer la liste des destinataires
Sheets("tri").Select
Range("A3:A200").Select
Selection.ClearContents
Sheets("liste globale").Select
Set Cal = Range("A1:A200")
For Each cell In Cal
If cell = "X" Then
cell.Offset(0, 2).Copy Sheets("tri").Range("A3").Offset(Ligne, 0)
Ligne = Ligne + 1
End If
Next cell
Application.CutCopyMode = False
'envoie les mails aux destinataires
Dim Dest As String
Dim Sujt As String
Dim Msg As String
Dim Shapes As String
Sheets("tri").Select
For Each Lescellules In Range("A1:A20")
If Lescellules.Value <> "" Then
'MsgBox "ça marche "
Dest = Lescellules.Value
Sujt = [E1].Value ' ça marche
'Msg = [E2].Value' ça marche
Msg = Shapes("Zone de texte 1").Value ' là, ça marche pas
End If
Next
Sheets("liste globale").Select
End Sub
Ça marche mais j'aimerais remplacer E2 par une zône de texte (plus facile
à
remplir)
Mais je reçois un message SUB ou FONCTION non définie
Ma syntaxte est-elle mauvaise ou ma nullité m'a-t-elle fait oublié
kekchose ?
Par ailleurs, j'aimerais e faire une version pour sur une boite qui est
sous
hotmail et non sur outlook
Comment formuler le chemin ?
Shell "C:Program FilesOutlook Expressmsimn.exe " & _
"/mailurl:mailto:" & Dest & "?subject=" & Sujt & "&Body=" & Msg & ""
SendKeys "%s"
Merci à ceusses qui ont pitié des bricolos-vba comme moi !!!
A+
gilles
Msg = Worksheets("le nom de ta feuille").Shapes("Zone de texte 1").TextFrame.Characters.Text MsgBox Msg Daniel
-- FAQ MPFE FAQ du forum microsoft.public.fr.excel http://dj.joss.free.fr/faq.htm
"gilles" a écrit dans le message de news:
Bonjour, Suite au fil de la semaine passée, et grâce aux réponses reçues, notamment de Daniel J, j'ai pu écrire cette proc qui : Envoit le mail aux personnes de la liste devant lesquelles je mets en X en colonne A. Sur la feuille j'ai placé 1 cellule E1 pour le sujet et 1 cellule E2 pour le message.
Sub Tri_si_X_et_envoit() 'ça MARCHE Dim Cal As Range, cell As Range, Ligne As Long
' effacer la liste des destinataires Sheets("tri").Select Range("A3:A200").Select Selection.ClearContents Sheets("liste globale").Select Set Cal = Range("A1:A200") For Each cell In Cal If cell = "X" Then cell.Offset(0, 2).Copy Sheets("tri").Range("A3").Offset(Ligne, 0) Ligne = Ligne + 1 End If Next cell Application.CutCopyMode = False
'envoie les mails aux destinataires Dim Dest As String Dim Sujt As String Dim Msg As String Dim Shapes As String Sheets("tri").Select For Each Lescellules In Range("A1:A20") If Lescellules.Value <> "" Then 'MsgBox "ça marche " Dest = Lescellules.Value Sujt = [E1].Value ' ça marche 'Msg = [E2].Value' ça marche Msg = Shapes("Zone de texte 1").Value ' là, ça marche pas
End If Next Sheets("liste globale").Select End Sub
Ça marche mais j'aimerais remplacer E2 par une zône de texte (plus facile à remplir) Mais je reçois un message SUB ou FONCTION non définie Ma syntaxte est-elle mauvaise ou ma nullité m'a-t-elle fait oublié kekchose ? Par ailleurs, j'aimerais e faire une version pour sur une boite qui est sous hotmail et non sur outlook Comment formuler le chemin ? Shell "C:Program FilesOutlook Expressmsimn.exe " & _ "/mailurl:mailto:" & Dest & "?subject=" & Sujt & "&Body=" & Msg & "" SendKeys "%s" Merci à ceusses qui ont pitié des bricolos-vba comme moi !!! A+ gilles
-- gilles72
gilles
bonjour Daniel, merci de ton aide j'essaie ça Sans vouloir abuser, le fait de passer par hotmail, ça te suggère kekchose? à+ peut-être et félicitations pour ton site -- gilles72
Essaie avec cela
Msg = Worksheets("le nom de ta feuille").Shapes("Zone de texte 1").TextFrame.Characters.Text MsgBox Msg Daniel
-- FAQ MPFE FAQ du forum microsoft.public.fr.excel http://dj.joss.free.fr/faq.htm
"gilles" a écrit dans le message de news:
Bonjour, Suite au fil de la semaine passée, et grâce aux réponses reçues, notamment de Daniel J, j'ai pu écrire cette proc qui : Envoit le mail aux personnes de la liste devant lesquelles je mets en X en colonne A. Sur la feuille j'ai placé 1 cellule E1 pour le sujet et 1 cellule E2 pour le message.
Sub Tri_si_X_et_envoit() 'ça MARCHE Dim Cal As Range, cell As Range, Ligne As Long
' effacer la liste des destinataires Sheets("tri").Select Range("A3:A200").Select Selection.ClearContents Sheets("liste globale").Select Set Cal = Range("A1:A200") For Each cell In Cal If cell = "X" Then cell.Offset(0, 2).Copy Sheets("tri").Range("A3").Offset(Ligne, 0) Ligne = Ligne + 1 End If Next cell Application.CutCopyMode = False
'envoie les mails aux destinataires Dim Dest As String Dim Sujt As String Dim Msg As String Dim Shapes As String Sheets("tri").Select For Each Lescellules In Range("A1:A20") If Lescellules.Value <> "" Then 'MsgBox "ça marche " Dest = Lescellules.Value Sujt = [E1].Value ' ça marche 'Msg = [E2].Value' ça marche Msg = Shapes("Zone de texte 1").Value ' là, ça marche pas
End If Next Sheets("liste globale").Select End Sub
Ça marche mais j'aimerais remplacer E2 par une zône de texte (plus facile à remplir) Mais je reçois un message SUB ou FONCTION non définie Ma syntaxte est-elle mauvaise ou ma nullité m'a-t-elle fait oublié kekchose ? Par ailleurs, j'aimerais e faire une version pour sur une boite qui est sous hotmail et non sur outlook Comment formuler le chemin ? Shell "C:Program FilesOutlook Expressmsimn.exe " & _ "/mailurl:mailto:" & Dest & "?subject=" & Sujt & "&Body=" & Msg & "" SendKeys "%s" Merci à ceusses qui ont pitié des bricolos-vba comme moi !!! A+ gilles
-- gilles72
bonjour Daniel,
merci de ton aide
j'essaie ça
Sans vouloir abuser, le fait de passer par hotmail, ça te suggère kekchose?
à+ peut-être
et félicitations pour ton site
--
gilles72
Essaie avec cela
Msg = Worksheets("le nom de ta feuille").Shapes("Zone de texte
1").TextFrame.Characters.Text
MsgBox Msg
Daniel
--
FAQ MPFE
FAQ du forum microsoft.public.fr.excel
http://dj.joss.free.fr/faq.htm
"gilles" <gilles@discussions.microsoft.com> a écrit dans le message de news:
0A15A0A1-8C42-4509-A888-4CCBA407354C@microsoft.com...
Bonjour,
Suite au fil de la semaine passée, et grâce aux réponses reçues, notamment
de Daniel J, j'ai pu écrire cette proc qui :
Envoit le mail aux personnes de la liste devant lesquelles je mets en X en
colonne A.
Sur la feuille j'ai placé 1 cellule E1 pour le sujet et 1 cellule E2 pour
le
message.
Sub Tri_si_X_et_envoit() 'ça MARCHE
Dim Cal As Range, cell As Range, Ligne As Long
' effacer la liste des destinataires
Sheets("tri").Select
Range("A3:A200").Select
Selection.ClearContents
Sheets("liste globale").Select
Set Cal = Range("A1:A200")
For Each cell In Cal
If cell = "X" Then
cell.Offset(0, 2).Copy Sheets("tri").Range("A3").Offset(Ligne, 0)
Ligne = Ligne + 1
End If
Next cell
Application.CutCopyMode = False
'envoie les mails aux destinataires
Dim Dest As String
Dim Sujt As String
Dim Msg As String
Dim Shapes As String
Sheets("tri").Select
For Each Lescellules In Range("A1:A20")
If Lescellules.Value <> "" Then
'MsgBox "ça marche "
Dest = Lescellules.Value
Sujt = [E1].Value ' ça marche
'Msg = [E2].Value' ça marche
Msg = Shapes("Zone de texte 1").Value ' là, ça marche pas
End If
Next
Sheets("liste globale").Select
End Sub
Ça marche mais j'aimerais remplacer E2 par une zône de texte (plus facile
à
remplir)
Mais je reçois un message SUB ou FONCTION non définie
Ma syntaxte est-elle mauvaise ou ma nullité m'a-t-elle fait oublié
kekchose ?
Par ailleurs, j'aimerais e faire une version pour sur une boite qui est
sous
hotmail et non sur outlook
Comment formuler le chemin ?
Shell "C:Program FilesOutlook Expressmsimn.exe " & _
"/mailurl:mailto:" & Dest & "?subject=" & Sujt & "&Body=" & Msg & ""
SendKeys "%s"
Merci à ceusses qui ont pitié des bricolos-vba comme moi !!!
A+
gilles
bonjour Daniel, merci de ton aide j'essaie ça Sans vouloir abuser, le fait de passer par hotmail, ça te suggère kekchose? à+ peut-être et félicitations pour ton site -- gilles72
Essaie avec cela
Msg = Worksheets("le nom de ta feuille").Shapes("Zone de texte 1").TextFrame.Characters.Text MsgBox Msg Daniel
-- FAQ MPFE FAQ du forum microsoft.public.fr.excel http://dj.joss.free.fr/faq.htm
"gilles" a écrit dans le message de news:
Bonjour, Suite au fil de la semaine passée, et grâce aux réponses reçues, notamment de Daniel J, j'ai pu écrire cette proc qui : Envoit le mail aux personnes de la liste devant lesquelles je mets en X en colonne A. Sur la feuille j'ai placé 1 cellule E1 pour le sujet et 1 cellule E2 pour le message.
Sub Tri_si_X_et_envoit() 'ça MARCHE Dim Cal As Range, cell As Range, Ligne As Long
' effacer la liste des destinataires Sheets("tri").Select Range("A3:A200").Select Selection.ClearContents Sheets("liste globale").Select Set Cal = Range("A1:A200") For Each cell In Cal If cell = "X" Then cell.Offset(0, 2).Copy Sheets("tri").Range("A3").Offset(Ligne, 0) Ligne = Ligne + 1 End If Next cell Application.CutCopyMode = False
'envoie les mails aux destinataires Dim Dest As String Dim Sujt As String Dim Msg As String Dim Shapes As String Sheets("tri").Select For Each Lescellules In Range("A1:A20") If Lescellules.Value <> "" Then 'MsgBox "ça marche " Dest = Lescellules.Value Sujt = [E1].Value ' ça marche 'Msg = [E2].Value' ça marche Msg = Shapes("Zone de texte 1").Value ' là, ça marche pas
End If Next Sheets("liste globale").Select End Sub
Ça marche mais j'aimerais remplacer E2 par une zône de texte (plus facile à remplir) Mais je reçois un message SUB ou FONCTION non définie Ma syntaxte est-elle mauvaise ou ma nullité m'a-t-elle fait oublié kekchose ? Par ailleurs, j'aimerais e faire une version pour sur une boite qui est sous hotmail et non sur outlook Comment formuler le chemin ? Shell "C:Program FilesOutlook Expressmsimn.exe " & _ "/mailurl:mailto:" & Dest & "?subject=" & Sujt & "&Body=" & Msg & "" SendKeys "%s" Merci à ceusses qui ont pitié des bricolos-vba comme moi !!! A+ gilles
-- gilles72
gilles
Daniel, Apparemment ta syntaxe est bonne Nickel merci -- gilles72
Essaie avec cela
Msg = Worksheets("le nom de ta feuille").Shapes("Zone de texte 1").TextFrame.Characters.Text MsgBox Msg Daniel
-- FAQ MPFE FAQ du forum microsoft.public.fr.excel http://dj.joss.free.fr/faq.htm
"gilles" a écrit dans le message de news:
Bonjour, Suite au fil de la semaine passée, et grâce aux réponses reçues, notamment de Daniel J, j'ai pu écrire cette proc qui : Envoit le mail aux personnes de la liste devant lesquelles je mets en X en colonne A. Sur la feuille j'ai placé 1 cellule E1 pour le sujet et 1 cellule E2 pour le message.
Sub Tri_si_X_et_envoit() 'ça MARCHE Dim Cal As Range, cell As Range, Ligne As Long
' effacer la liste des destinataires Sheets("tri").Select Range("A3:A200").Select Selection.ClearContents Sheets("liste globale").Select Set Cal = Range("A1:A200") For Each cell In Cal If cell = "X" Then cell.Offset(0, 2).Copy Sheets("tri").Range("A3").Offset(Ligne, 0) Ligne = Ligne + 1 End If Next cell Application.CutCopyMode = False
'envoie les mails aux destinataires Dim Dest As String Dim Sujt As String Dim Msg As String Dim Shapes As String Sheets("tri").Select For Each Lescellules In Range("A1:A20") If Lescellules.Value <> "" Then 'MsgBox "ça marche " Dest = Lescellules.Value Sujt = [E1].Value ' ça marche 'Msg = [E2].Value' ça marche Msg = Shapes("Zone de texte 1").Value ' là, ça marche pas
End If Next Sheets("liste globale").Select End Sub
Ça marche mais j'aimerais remplacer E2 par une zône de texte (plus facile à remplir) Mais je reçois un message SUB ou FONCTION non définie Ma syntaxte est-elle mauvaise ou ma nullité m'a-t-elle fait oublié kekchose ? Par ailleurs, j'aimerais e faire une version pour sur une boite qui est sous hotmail et non sur outlook Comment formuler le chemin ? Shell "C:Program FilesOutlook Expressmsimn.exe " & _ "/mailurl:mailto:" & Dest & "?subject=" & Sujt & "&Body=" & Msg & "" SendKeys "%s" Merci à ceusses qui ont pitié des bricolos-vba comme moi !!! A+ gilles
-- gilles72
Daniel,
Apparemment ta syntaxe est bonne
Nickel
merci
--
gilles72
Essaie avec cela
Msg = Worksheets("le nom de ta feuille").Shapes("Zone de texte
1").TextFrame.Characters.Text
MsgBox Msg
Daniel
--
FAQ MPFE
FAQ du forum microsoft.public.fr.excel
http://dj.joss.free.fr/faq.htm
"gilles" <gilles@discussions.microsoft.com> a écrit dans le message de news:
0A15A0A1-8C42-4509-A888-4CCBA407354C@microsoft.com...
Bonjour,
Suite au fil de la semaine passée, et grâce aux réponses reçues, notamment
de Daniel J, j'ai pu écrire cette proc qui :
Envoit le mail aux personnes de la liste devant lesquelles je mets en X en
colonne A.
Sur la feuille j'ai placé 1 cellule E1 pour le sujet et 1 cellule E2 pour
le
message.
Sub Tri_si_X_et_envoit() 'ça MARCHE
Dim Cal As Range, cell As Range, Ligne As Long
' effacer la liste des destinataires
Sheets("tri").Select
Range("A3:A200").Select
Selection.ClearContents
Sheets("liste globale").Select
Set Cal = Range("A1:A200")
For Each cell In Cal
If cell = "X" Then
cell.Offset(0, 2).Copy Sheets("tri").Range("A3").Offset(Ligne, 0)
Ligne = Ligne + 1
End If
Next cell
Application.CutCopyMode = False
'envoie les mails aux destinataires
Dim Dest As String
Dim Sujt As String
Dim Msg As String
Dim Shapes As String
Sheets("tri").Select
For Each Lescellules In Range("A1:A20")
If Lescellules.Value <> "" Then
'MsgBox "ça marche "
Dest = Lescellules.Value
Sujt = [E1].Value ' ça marche
'Msg = [E2].Value' ça marche
Msg = Shapes("Zone de texte 1").Value ' là, ça marche pas
End If
Next
Sheets("liste globale").Select
End Sub
Ça marche mais j'aimerais remplacer E2 par une zône de texte (plus facile
à
remplir)
Mais je reçois un message SUB ou FONCTION non définie
Ma syntaxte est-elle mauvaise ou ma nullité m'a-t-elle fait oublié
kekchose ?
Par ailleurs, j'aimerais e faire une version pour sur une boite qui est
sous
hotmail et non sur outlook
Comment formuler le chemin ?
Shell "C:Program FilesOutlook Expressmsimn.exe " & _
"/mailurl:mailto:" & Dest & "?subject=" & Sujt & "&Body=" & Msg & ""
SendKeys "%s"
Merci à ceusses qui ont pitié des bricolos-vba comme moi !!!
A+
gilles
Daniel, Apparemment ta syntaxe est bonne Nickel merci -- gilles72
Essaie avec cela
Msg = Worksheets("le nom de ta feuille").Shapes("Zone de texte 1").TextFrame.Characters.Text MsgBox Msg Daniel
-- FAQ MPFE FAQ du forum microsoft.public.fr.excel http://dj.joss.free.fr/faq.htm
"gilles" a écrit dans le message de news:
Bonjour, Suite au fil de la semaine passée, et grâce aux réponses reçues, notamment de Daniel J, j'ai pu écrire cette proc qui : Envoit le mail aux personnes de la liste devant lesquelles je mets en X en colonne A. Sur la feuille j'ai placé 1 cellule E1 pour le sujet et 1 cellule E2 pour le message.
Sub Tri_si_X_et_envoit() 'ça MARCHE Dim Cal As Range, cell As Range, Ligne As Long
' effacer la liste des destinataires Sheets("tri").Select Range("A3:A200").Select Selection.ClearContents Sheets("liste globale").Select Set Cal = Range("A1:A200") For Each cell In Cal If cell = "X" Then cell.Offset(0, 2).Copy Sheets("tri").Range("A3").Offset(Ligne, 0) Ligne = Ligne + 1 End If Next cell Application.CutCopyMode = False
'envoie les mails aux destinataires Dim Dest As String Dim Sujt As String Dim Msg As String Dim Shapes As String Sheets("tri").Select For Each Lescellules In Range("A1:A20") If Lescellules.Value <> "" Then 'MsgBox "ça marche " Dest = Lescellules.Value Sujt = [E1].Value ' ça marche 'Msg = [E2].Value' ça marche Msg = Shapes("Zone de texte 1").Value ' là, ça marche pas
End If Next Sheets("liste globale").Select End Sub
Ça marche mais j'aimerais remplacer E2 par une zône de texte (plus facile à remplir) Mais je reçois un message SUB ou FONCTION non définie Ma syntaxte est-elle mauvaise ou ma nullité m'a-t-elle fait oublié kekchose ? Par ailleurs, j'aimerais e faire une version pour sur une boite qui est sous hotmail et non sur outlook Comment formuler le chemin ? Shell "C:Program FilesOutlook Expressmsimn.exe " & _ "/mailurl:mailto:" & Dest & "?subject=" & Sujt & "&Body=" & Msg & "" SendKeys "%s" Merci à ceusses qui ont pitié des bricolos-vba comme moi !!! A+ gilles