Discussion :

[laviro18]

Bonjour,

Je cherche à envoyer dans le corps d'un mail une plage de cellule définie par une macro qui génère l'adresse de cette plage de cellules. Je souhaite que le mail soit envoyé au président délégué qui gère la section.

Par exemple pour la section de l'AIN (N°1) j'aimerais envoyer dans le corps d'un mail la plage de cellules (A1:G6) au président délégué de l'AIN, monsieur MEGE (bonjour@gmail.com2). Pour la section de l'AISNE (N°2) j'aimerais envoyer dans le corps d'un mail la plage de cellules (A7:G11) au président délégué de l'AISNE, monsieur BERTRAND (bonjour@gmail.com8).

Et ainsi de suite, j'ai environ 80 sections différentes, donc 80 plages de celulles à insérer dans des mails à envoyer aux présidents délégués de chaque section (donc 80 mails au total à envoyer).

J'ai fait 2 macros : une première qui détermine les coordonnées des plages de cellule à envoyer et une seconde qui doit normalement envoyer par mail au président délégué de la section la bonne plage de cellule.



J'ai 2 problèmes :

Dans ma seconde macro, je ne pense pas avoir la bonne syntaxe pour incorporer une plage de cellules dans un mail
Je ne suis pas sûr de pouvoir relier les 2 macros entre elles (je ne sais pas bien si je dois créer des procédures ou des fonctions et comment récupérer les variables de la première macro dans la seconde).
Voici mon fichier :

mail-et-plage-de-cellules.xlsm

Cela fait plusieurs jours que je regarde des tutos sur YT pour essayer de comprendre comment faire, mais toutes mes tentatives sont infructueuses. Si vous pouviez me donner un coup de pouce, ça m'aiderait beaucoup

Merci d'avance pour votre aide,

Romain

[Guy7700]

Bonjour,

Vous trouverez certainement votre bonheur ici : https://excel.developpez.com/faq/?page=Messagerie

Bàv,

[joe.levrai]

Bonjour,

partant du principe que tu utilises Outlook pour l'envoi, adresser une cellule s'effectue ainsi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.HTMLBody = Range("MaCellule")   ' ou .Body éventuellement

en revanche, si la plage comporte plus d'une cellule, il va falloir convertir ta plage en html pour ensuite l'intégrer au HTMLBody de ton mail :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.HTMLBody = RangetoHTML(MaPlage)

avec la fonction RangetoHTML comme-ci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Function RangetoHTML(ByVal Rng As Range)
    Dim fso As Object
    Dim ts As Object
    Dim TempFile As String
    Dim TempWB As Workbook
 
    TempFile = VBA.Environ$("temp") & "\" & VBA.Format(Now, "dd-mm-yy h-mm-ss") & ".htm"
    Rng.Copy
    Set TempWB = Workbooks.Add(1)
    With TempWB.Sheets(1)
        .Cells(1).PasteSpecial Paste:=12
        .Cells(1).PasteSpecial Paste:=-4122
        .Cells(1).Select
        Application.CutCopyMode = False
        On Error Resume Next
            .DrawingObjects.Visible = True
            .DrawingObjects.Delete
            .Columns.AutoFit
        On Error GoTo 0
    End With
 
    With TempWB.PublishObjects.Add(SourceType:=xlSourceRange, Filename:=TempFile, Sheet:=TempWB.Sheets(1).Name, Source:=TempWB.Sheets(1).UsedRange.Address, HtmlType:=xlHtmlStatic)
        .Publish (True)
    End With
 
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set ts = fso.GetFile(TempFile).OpenAsTextStream(1, -2)
    RangetoHTML = ts.ReadAll
    ts.Close
    RangetoHTML = Replace(RangetoHTML, "align=center x:publishsource=", "align=left x:publishsource=")
    TempWB.Close savechanges:=False
    Kill TempFile
 
    Set ts = Nothing
    Set fso = Nothing
    Set TempWB = Nothing
End Function

[Invité]

Bonjour Pierre,

Il y a quelques mois, tu me demandais d’apporter un commentaire sur un de tes blogs consacré à Power Query. Je m’y suis mis très dernièrement. Pour cela, j’ai voulu comparer son fonctionnement avec la méthode du filtre avancé que j’utilise jusqu’à présent.

Le mode opératoire que tu as mis en ligne est très bien fait Power-query-excel-alternative-efficace-filtre-avance-dynamique. En conclusion, essayer, c'est l'adopter.

Après plusieurs exemples, j’ai regardé comment je pouvais répondre à ce billet dans lequel se trouve une structure de données un peu étonnant (Laviro18 : ne vous vexez pas). Le résultat est dans le fichier joint.

J’ai ensuite automatisé l’envoi des mails comme il était demandé. Pour cela, j’ai créé un événement Change dans l’onglet qui contient la table Power Query et j’ai ajouté un bouton pour lancer une boucle comme je l’aurais fait avec ma méthode Filtre avancé.
Pièce jointe 585647

Lorsque la valeur du département change par action manuelle, tout fonctionne correctement, la table Power Query est bien mise à jour.

En revanche, lorsque la valeur change via la macro enclenchée par le bouton Lancer le mailing, la table Power Query n’est pas mise à jour. Alors qu’avec la méthode du filtre avancé, cela fonctionne sans problème.
Aurais-tu répondu déjà à ce problème ?

Cordialement.

[Invité]

Comme suite à mon dernier message : problème résolu. Il faut décocher Activer l'actualisation en arrière plan.
Pièce jointe 585670

[Pierre Fauconnier]

Salut Eric

J'étais en train d'essayer de comprendre le problème lorsque tu y as apporté la solution

[Invité]

Bonjour,

Merci Pierre,

Peut être devrais-tu compléter un de tes modes opératoires pour informer de cette particularité.

[mfoxy]

Bonjour Pierre, Eric,

J'utilise Power Query dans un dev très similaire à celui expliqué ici.
Envois de plusieurs tables filtrées via PQ et Vba.

Pour éviter ce souci de refresh, on peut lors de l'événement changement de cellule par exemple, faire le refresh de la table en utilisant la ligne de code ( pas testé, je suis sur mon smartphone):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("nomTable").Listobject.QueryTable.Refresh BackgroundQuery:=False

Avec cette méthode, tant que le refresh n'est pas complet, l'instruction de code suivante (envois de mail) ne se fera pas.
Ça évite, de devoir modifier dans les paramètres PQ.

Je me suis construit une petite fonction, qui reçois en paramètre les différentes tables qui doivent subir un refresh, et ainsi j'actualise mes tables liées à PQ, dans l'ordre que je souhaite, on peut donc utiliser des tables dépendantes plus facilement.


Bav,

[Invité]

Bonjour Mickaël,

Merci, je vais regarder cela de plus près.

Cordialement.