Autres Plusieurs adresses mail d'une feuille Excel

[FOUQUET Yves]

Bonjour,

J'ai dans un tableau les adresses mail de quelques personnes.
Feuille "Aides3" et Colonne M3 à Mx... (cela peut s'allonger en fonction d'inscription)

J'ai créé un Userform pour envoyer en pièces jointes deux tableaux Excel à ces destinataires.
Bouton valide = on créé les fichiers et on les envoie via Outlook.

Je ne trouve pas l'astuce pour aller récupérer ces adresses mail et les mettre automatiquement dans la ligne: .To

Option Explicit  'Activation de la déclaration explicite des variables
Dim Ws As Worksheet  'Variable pour un Objet Worksheet en PUBLIC pour tous les Controls de cet UserForm
Dim compt_bon_date As Integer
Dim Rng As Range
'=================================================
'Correspond au programme du bouton QUITTER
Private Sub CommandButton1_Click()
Unload Me
End Sub
'=================================================
Private Sub CommandButton2_Click() '-------------- VALIDER

[B]' Là j'aimerai bien que les deux feuilles soient dans le même tableur "trans_effect" avec  feuille1 = "recept_adhe, feuille2 = recept_arch  en lieu et place de deux fichiers Excel, mais bon on verra plus tard.[/B]
'--- création des fichiers Excel ---
Worksheets("Effectif").Copy
ActiveWorkbook.SaveAs "D:\Gestion AHI\transfer\recept_adhe.xlsx"
ActiveWorkbook.Close True
Worksheets("Adh_arch").Copy
ActiveWorkbook.SaveAs "D:\Gestion AHI\transfer\recept_arch.xlsx"
ActiveWorkbook.Close True

  
  fich1 = "D:\Gestion AHI\transfer\recept_adhe.xlsx"
  fich2 = "D:\Gestion AHI\transfer\recept_arch.xlsx"
  With CreateObject("Outlook.Application").CreateItem(0)
        
    .Attachments.Add "D:\Gestion AHI\transfer\recept_adhe.xlsx"  '--- si on veut mettre le fichier en piéce jointe ----
    .Attachments.Add "D:\Gestion AHI\transfer\recept_arch.xlsx"  '--- si on veut mettre le fichier en piéce jointe ----
    
[B]'Et c'est là que je ne sais comment faire pour intégrer automatiquement toutes les adresses de la colonne M de ma feuille "Aides3"!
'Pour l'instant il y a 6 adresses mail[/B]
  
    .To = "yves.fouquetxxxxx@gmail.com" & ";yves.fouquet@xxxx.fr"   '--- essai pour voir si cela fonctionne et les adresses tapées directement fonctionnent
   
    .Subject = " Transmission fichier A.H.I Effectifs "
    .Display
    .Send

'Attendre 5
'Outlook.Quit
End Sub

Je soumets mon problème...
merci de vos éventuelles réponses.
Yves

 

[FOUQUET Yves]

OK, vu ainsi effectivement cela fonctionne.
Quand quelqu'un ne comprend pas une explication il peut y avoir deux causes à cela:
- l'explication a été mal formulée, présentée,..
- L'élève est borné!

Dans le cas présent je penche pour la deuxième. Lol.

En fait ce n'est quand ayant un exemple qui fonctionne et avec le pas à pas, que j'arrive à comprendre le mécanisme.
J'ai compris que quand on affecté une feuille à Ws alors il fallait ensuite passer par Ws pour la suite... Ws étant Worksheets
Alors que moi je déclaré directement Aides3 en Worksheets

Alors j'ai compris ?

 

[Staple1600]

Re

Déjà avais-tu compris mes macros exemples?
(voir le lien dans mon précédent message)

 

[FOUQUET Yves]

Oui, j'ai regardé avec tous les messages, mais de là à dire que je maîtrise.... Je t'ai dit dans mon précédent message ce que j'ai compris.
Ce n'est quand pratiquant que j'y arriverai.
Sois patient...

 

[FOUQUET Yves]

Set Ws = Sheets("Aides3")
Là j'affecte à Ws la feuille "Aides3"

courriels = Application.Transpose(Ws.Range("Q3:Q" & dl).Value)
Là j'utilise Ws comme si c'était la feuille.

Mais je voudrai comprendre quel est l'intérét de faie cela à la place de:
Worksheets("Aides3").Activate

 

[Staple1600]

Re,

Yves
Tu liras de très nombreuses fois sur le forum (et ailleurs) qu'il est préférable d'éviter les Select et Activate.
(cela ralentit l'éxécution du code)

 

[FOUQUET Yves]

Ok voilà un truc facile à comprendre. Merci.
J'ai un soucis de "copy de feuille et format monétaire. J'ai ouvert un fil pour cela ...

 

[Staple1600]

Re

J'ai bien vu que tu as ouvert à un nouveau fil.
(D'ailleurs, je te l'avais suggéré)

 

[FOUQUET Yves]

Mais c'est toi le webmaster de ce forum?

 

[Staple1600]

Re

???
Non, moi je ne suis qu'un vieux membre
(du forum s'entend)

Il n'y a qu'un seul webmaster, c'est DavidXLD
Tu devrais le savoir puisque tu lui as adressé un MP pour supprimer un fichier avec des données confidentielles