Discussion :

[Christian_Pfender]

Bonjour à tous,

Après plusieurs recherches sur différents tuto, je n'arrive plus à avancer dans la macro que j'essaie d'écrire

En récapitulatif, j'ai un fichier dans lequel j'ai :

- un onglet "Planification 2022" dans lequel :
en colonne C j'ai une liste de locaux
en colonne D j'ai une date de début d'intervention sur le local en question
en colonne I j'ai l'adresse mail pour le local concerné

- ensuite j'ai des onglets que j'ai nommé avec le numéro de local de la colonne C (la trame de chaque onglet est identique mais le contenu diffère)

Ce que j'essaie d'écrire en VBA :
Etape 1 : enregistrer en pdf l'onglet actif dans le même dossier que le fichier (j'ai écris une macro avec une msgbox pour cette étape qui me positionne sur l'onglet et l'enregistre dans le dossier donc ça marche jusque là)

Etape 2 : Envoyer un mail au client qui figure en colonne I à J-15 par rapport à la date qui figure en colonne D en incluant en PJ la fiche PDF que j'aurai créé pour le local mentionné en colonne C
et qui porte le même nom

Par ex, le local n° 10000 (colonne C) intervention prévue le 31/01/22 (colonne D), il faudrait envoyer un mail au client colonne I avec la pièce jointe (PDF du local 10000) à J-15

J'espère que mes explications seront suffisamment clair

Merci pour votre temps et aide précieuse

[EricDgn]

Bonjour,

Le principe: avoir une macro qui filtre les lignes du "Tableau1" de la feuille "Plan 2022" et sur base de ce tableau filtré envoyer les emails. Un début de solution:

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
Option Explicit
 
Sub Dans15jours()
    With ActiveWorkbook.Worksheets("Plan 2022").ListObjects("Tableau1")
    '--- filtre entre jour +14 et +16 --- à adapter --- quid date est samedi ou dimanche ?
        .Range.AutoFilter Field:=4, _
                          Criteria1:=">=" & Format(Date + 14, "yyyy-mm-dd"), _
                          Operator:=xlAnd, _
                          Criteria2:="<" & Format(Date + 17, "yyyy-mm-dd")
    '--- trie par date
        With .Sort
            .SortFields.Add2 Key:=Range("Tableau1[Colonne D]"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
            .Header = xlYes
            .MatchCase = False
            .Orientation = xlTopToBottom
            .SortMethod = xlPinYin
            .Apply
        End With
    End With
    '--- parcourir les lignes filtrées triées
    Dim rw As Range
    For Each rw In Range("Tableau1").Columns(1).SpecialCells(xlCellTypeVisible)
        '--- exemple de reprise des données de la ligne --- données à utiliser pour composition email (nombreux tutos sur ce sujet)
        Debug.Print rw, rw.Offset(0, 1), rw.Offset(0, 2), rw.Offset(0, 3), rw.Offset(0, 4)
    Next rw
End Sub

Cordialement.