copier coller adresse mail

Staple1600

XLDnaute Barbatruc

• 14 Octobre 2017

• #2

Bonjour le fil, le forum

@castor30
Un fichier Excel exemple avec une cinquantaine d'emails à fictifs à nos fournir?
Non ?

Ok, alors allons voir dans un autre post, s'il y a un fichier exemple fourni par le demandeur qui facilite toujours la résolution des questions...

 

Vote positif 0 Vote négatif

castor30

XLDnaute Occasionnel

• 14 Octobre 2017

• #3

Bonjour Staple,
Merci de me répondre
Voici un classeur exemple

 

Pièces jointes

• Problème.xls

  117 KB · Affichages: 39

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 14 Octobre 2017

• #4

Re
@castor30
Inscrit depuis 2014 et ce point crucial de la charte ne t'es pas resté en mémoire...

5 – La possibilité de joindre des fichiers est donnée sur ce forum. Ne pas hésiter à utiliser cette fonction, tout en veillant que les données soient bidons et donc qu’aucune donnée confidentielle, nominative ne soit dans le fichier.

Cliquez pour agrandir...

​

Sinon, les liens sont actifs (passe ta souris dessus et tu verras)

 

Vote positif 0 Vote négatif

castor30

XLDnaute Occasionnel

• 14 Octobre 2017

• #5

Re,
Désolé, oubli de ma part.
Les liens ne sont pas actifs dans les colonnes N et O

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 14 Octobre 2017

• #6

Re

Difficile de tester puisque...


Essaie cette modif

VB:

Sub ExportDestDuMail_V2()
Columns("E:G").AutoFilter 1, "X"
[ExportDestMailCc].Copy [ReceptDestMailCc]
Columns("E:G").AutoFilter 1
Columns("E:G").AutoFilter 3, "X"
[ExportDestMailCci].Copy [ReceptDestMailCci]
Columns("E:G").AutoFilter
Columns("E:G").Select
CmdRazSelection_Click
[H3].Select
End Sub

ou celle-ci

VB:

Sub ExportDestDuMail_V_avec_Endvies()
With Columns("E:G")
    .AutoFilter 1, "X"
    [ExportDestMailCc].Copy [ReceptDestMailCc]
    .AutoFilter 1
    .AutoFilter 3, "X"
    [ExportDestMailCci].Copy [ReceptDestMailCci]
    .AutoFilter
    .Select
    End With
CmdRazSelection_Click
[H3].Select
End Sub

 

Vote positif 0 Vote négatif

castor30

XLDnaute Occasionnel

• 14 Octobre 2017

• #7

Re,
Merci beaucoup pour ton code qui fonctionne parfaitement et plus court que le mien.
Je te souhaite un excellent Week-end.

 

Vote positif 0 Vote négatif