> Tous les forums > Forum Bureautique
 modification codeSujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
massjipe
  Posté le 09/10/2015 @ 08:14 
Aller en bas de la page 
Petit astucien

Bonjour

je veux aller chercher une liste de contact dans une autre feuille comment faire

peut on créer une liste dans autre classeur et comment procéder dans le code ci dessous

.Item.To = Sheets("Feuil1").Select = Range("D17").Value

Sub EnvoimailA()
' envoi d'une plage de cellules via Outlook
' Outlook doit être démarré.

Dim Plage As Range
On Error Resume Next
derLig = Cells(Rows.Count, 2).End(xlUp).Row
Set Plage = Range("A1:E" & derLig)
If Err.Number <> 0 Then
Err.Clear
MsgBox "Aucune plage sélectionnée"
Exit Sub
End If
On Error GoTo 0
Plage.Select
' Affiche le message dans le classeur
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
'"Item" représente un objet Outlook "MailItem".
.Item.To = Sheets("Feuil1").Select = Range("D17").Value
.Item.Cc = Range("D24").Value
.Item.Subject = Range("A19").Value
.Item.display
End With
End Sub

Merci

Publicité
Yaloo
 Posté le 10/10/2015 à 19:09 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour massjipe,

Comme ça : .Item.To = Sheets("Feuil1").Range("D17").Value

A+

Martial

massjipe
 Posté le 11/10/2015 à 06:07 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour Il y avait pas grand chose à changer

avez vous une idée pour réaliser ceci

Pour le moment j'ai fait une concaténation en A1 de mes contacts de A2 à A10 (toto@re.fr;titi@re.com)

j'ai une feuille destinataire et une feuille pour un envoi plage sur cellule modulable en ligne, dans la feuille destinataire en colonne A destinataire principal, B ily une croix et C en copie et D une croix
Quant il y à une croix c'est pour sélectionner les contacts
mais je ne sais pas comment faire et mettre ca dans le code en .Item.To et .Item.Cc

Et merci

Yaloo
 Posté le 11/10/2015 à 14:50 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour,

Quand tu dis avoir une croix pour sélection des contacts, tu as quoi exactement dans les cellules ? Un x ou un X ou ????

A te relire

Martial

Yaloo
 Posté le 11/10/2015 à 15:02 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Re,

Voici la macro que j'utiliserai si c'est un x (changer dans la macro suivante avec le bon caractère) :

Dim PlageTo As Range, PlageCc As Range, Cel As Range, ToutTo$, ToutCc$
Set PlageTo = Sheets("Feuil1").Range("A2:A" & [A65536].End(3).Row)
Set PlageCc = Sheets("Feuil1").Range("C2:C" & [A65536].End(3).Row)
For Each Cel In PlageTo
If Cel(, 2) = "x" Then ToutTo = ToutTo & ";" & Cel(, 1)
Next
ToutTo = Right(ToutTo, Len(ToutTo) - 1)
For Each Cel In PlageCc
If Cel(, 2) = "x" Then ToutCc = ToutCc & ";" & Cel(, 1)
Next
ToutCc = Right(ToutCc, Len(ToutCc) - 1)
'et ensuite
.Item.To = ToutTo
.Item.Cc = ToutCc

A+

Martial

massjipe
 Posté le 11/10/2015 à 17:01 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

re

Un x mini je test et je reviens

Une bon fin WE

massjipe
 Posté le 11/10/2015 à 17:20 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour

je viens de tester mais une erreur maintenant reste à savoir si j'ai bien mis votre code à la bonne place

le fichier pour teste

http://www.cjoint.com/c/EJlpsnam2yn

Sub Envoimail()
Dim PlageTo As Range, PlageCc As Range, Cel As Range, ToutTo$, ToutCc$
Dim Plage As Range
On Error Resume Next
derLig = Cells(Rows.Count, 2).End(xlUp).Row
Set Plage = Range("A1:E" & derLig)
On Error GoTo 0
Plage.Select
' Affiche le message dans le classeur
ActiveWorkbook.EnvelopeVisible = True
Set PlageTo = Sheets("Destinataires").Range("A2:A" & [A65536].End(3).Row) =>> sheets destinaires c'est la feuille ou ce trouve les contacts?
Set PlageCc = Sheets("Destinataires").Range("C2:C" & [A65536].End(3).Row)

For Each Cel In PlageTo
If Cel(, 2) = "x" Then ToutTo = ToutTo & ";" & Cel(, 1)
Next
ToutTo = Right(ToutTo, Len(ToutTo) - 1)

For Each Cel In PlageCc
If Cel(, 2) = "x" Then ToutCc = ToutCc & ";" & Cel(, 1)
Next
ToutCc = Right(ToutCc, Len(ToutCc) - 1)

With ActiveSheet.MailEnvelope
'"Item" représente un objet Outlook "MailItem".
.Item.ToutTo
.Item.ToutCc
.Item.Subject
.Item.display
End With
End Sub

Yaloo
 Posté le 11/10/2015 à 21:53 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Re,

Sub Envoimail()
Dim PlageTo As Range, PlageCc As Range, Cel As Range, ToutTo$, ToutCc$
Dim Plage As Range
On Error Resume Next
derLig = Cells(Rows.Count, 2).End(xlUp).Row
Set Plage = Range("A1:E" & derLig)
On Error GoTo 0
Plage.Select
' Affiche le message dans le classeur
ActiveWorkbook.EnvelopeVisible = True
With Sheets("Destinataires")
Set PlageTo = .Range("A2:A" & .[A65536].End(3).Row)
Set PlageCc = .Range("C2:C" & .[C65536].End(3).Row)
End With
For Each Cel In PlageTo
If Cel(, 2) = "x" Then ToutTo = ToutTo & ";" & Cel(, 1)
Next
If ToutTo <> "" Then ToutTo = Right(ToutTo, Len(ToutTo) - 1) Else MsgBox "Pas de destinataires": Exit Sub

For Each Cel In PlageCc
If Cel(, 2) = "x" Then ToutCc = ToutCc & ";" & Cel(, 1)
Next
If ToutCc <> "" Then ToutCc = Right(ToutCc, Len(ToutCc) - 1)
With ActiveSheet.MailEnvelope
'"Item" représente un objet Outlook "MailItem".
.Item.To = ToutTo
.Item.CC = ToutCc
.Item.Subject = "Ce que tu veux ou la cellule que tu souhaites !"
.Item.display
End With
End Sub

massjipe
 Posté le 12/10/2015 à 06:27 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour

du bon travail

merci et une bonne semaine

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


Sujets relatifs
Excel / Voir le code d'une Private Sub
code erreur 0xC00CEE2D
modification automatique valeur cellule
Outlook.com - Modification des Informations personnelles.
Pb modification fonds message mail
modification
Modification de fichiers Word avec office 2013
Lecteur de code barre LS2208
Modification de PDF
modification de photos
Plus de sujets relatifs à modification code
 > Tous les forums > Forum Bureautique