Neophyte excel: nouvelle aide sur fichier excel?

Bonjour,

Après avoir pris gout à l'aide efficace sur ce forum, je souhaiterais avoir une aide (en VBA) sur le fichier excel ci-joint (dont le contributeur était h2so4):

dans ce fichier apparaissent colonne E des noms de personnes sur fond jaune ou rouge; je souhaiterais:

1) comptabiliser respectivement en D:1 et E:1 le nombre total de personnes en fond jaune et rouge;

2) envoyer automatiquement aux personnes uniquement sur fond rouge depuis une boite mail générique (du type ZZZadministrateur dont je possède les login et mdpasse de connexion) un mail standardisé à leur adresse mail pro figurant colonne F;

3) ce mail est standardisé sauf le début personnalisé du mail du type: "Bonjour, à l'attention de Mr/Mme NOM PRENOM".

4) enfin, à partir des noms des personnes en rouge de la colonne E, créer dans un dossier paramétrable du disque dur, les répertoires nommés sous la forme "NOM PRENOM" (ex: dossiers à créer tirés du fichier joint: "ADAMS ARNAUD", "ALBERT JACQUES",...etc).

Ces répertoires seront donc vides (ne comportant aucun fichier) lors de leur création dans le dossier paramétrable du disque dur.

Merci aux contributeurs qui voudront m'apporter leur savoir sur ce problème.

Bien cordialement

Rebonjour,

pas de réponse de personnes???

merci

bonsoir,

une proposition

Sub envoimsg()
    rep = "d:\downloads\"
    dl = Cells(Rows.Count, 1).End(xlUp).Row
    Set ol = CreateObject("outlook.application")
    nr = 0
    ny
    For i = 3 To dl
        If Cells(i, 5).Interior.Color = vbRed Then
            Set ml = ol.createitem(0)
            With ml
                .to = Cells(i, 6)
                .Subject = "sujet"
                .body = "Bonjour, " & vbCrLf & "A l'attention de Mr/Mme " & Cells(i, 5) & vbCrLf
                .body = .body & " texte standard"
                .display 'mettre en commentaires pour supprimer l'affichage du message avant l'envoi
                '.send 'enlever le ' pour envoyer le mail
            End With
            On Error Resume Next
            MkDir rep & Cells(i, 5).Value
            On Error GoTo 0
            nr = nr + 1
        ElseIf Cells(i, 5).Interior.Color = vbYellow Then
            ny = ny + 1
        End If
    Next i
    Cells(1, 4) = ny
    Cells(1, 5) = nr
End Sub

Merci pour ta proposition! je vais la regarder de près et je te dirai si elle répond au pbme posé.

A l'avenir j'appliquerai les consignes que tu m'as fait relire....

rebjr

1- voila j'ai fait l'essai de la subroutine "envoimsg" sur le fichier test: j ai un message d'erreur compilation "sub ou fonction non definie" et le debogueur s'arret à la 5eme ligne de la subroutine à l'instruction "ny"....

2-il me semble que la subroutine ne prend pas en compte le point 4 de ma question initiale sur la création de dossiers vides avec nom_prenoms (ceux qui sont en fond rouge col E) dans un endroit du hdd à choisir par l'utilisateur.

A bientôt et merci

bonjour,

le copier/coller semble avoir bouffé des caractères.

l'instruction en ligne 5 doit être

ny=0

la création de dossiers vides est bien prévue. Tu as demandé à ce que ce soit paramétrable, le paramètre est rep en début de macro.

Merci de tes réponses

je teste et te fait un retour. Merci.

Bonjour,

j'ai testé et je suis toujours aussi impressioné quand les macros vba s'executent!! c'est super! pbme résolu!

merci

PS: qu'est ce que j'aimerais arriver à écrire tout seul une macro vba à la volée comme tu le fais....