Sujet Précédent Sujet Suivant

Help script VBA

Résolu/Fermé
Mon6760 Messages postés 3 Date d'inscription mardi 8 mai 2018 Statut Membre Dernière intervention 9 mai 2018 - Modifié le 8 mai 2018 à 18:01
yg_be Messages postés 22698 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 18 avril 2024 - 9 mai 2018 à 12:47
Bonjour,

Je suis actuellement en train de coder pour essayer de créer un mail. Je vous explique, chaque semaine je dois faire un rapport a partir d'un ficher Excel sous forme de mail. Je voudrais me faciliter la vie en créant la forme du mail. J'ai réussi a le faire en sélectionnant une ligne mais je n'y arrive pas avec tout le fichier... De plus je voudrait additionner les "Amount" qui on les mêmes références. Pouvez-vous m'aider ou me donner des pistes ? Merci 

Sub Mail_Workbook_1()

Dim Type As String
Dim Region As String
Dim Impact As String
Dim Reference As String
Dim JourdeCreation As String
Dim SumEUR As String
Dim Amount As String

Dim FL As Worksheet              'stocker la valeur du classeur actif
Dim LineNB, ColNB As Long        'récupérer la ligne sélectionnée

Set FL = Worksheets("Weekly")
Set FL = ActiveSheet
LineNB = ActiveCell.Row

Type = FL.Cells(LineNB, 9)
Region = FL.Cells(LineNB, 4)
Impact = FL.Cells(LineNB, 7)
Reference = FL.Cells(LineNB, 2)
JourdeHICreation = FL.Cells(LineNB, 10)
SumEUR = FL.Cells(LineNB, 1)
Amount = FL.Cells(LineNB, 11)
    
    Dim OutApp As Object
    Dim OutMail As Object


    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)

    On Error Resume Next

    With OutMail
        .To = ""
        .CC = ""
        .BCC = ""
        .Subject = ""
        .Body = Reference & " " & "(" & JourdeHICreation & "/" & " " & "/" & Type & "/" & "EUR " & Amount & " K" & ")"
           
        .Display
    
    End With
    On Error GoTo 0

    Set OutMail = Nothing
    Set OutApp = Nothing

End Sub

3 réponses

Réponse 1 / 3
yg_be Messages postés 22698 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 18 avril 2024 1 471
8 mai 2018 à 20:47
bonsoir, une piste: 
Option Explicit

Sub Mail_Workbook_1()
Dim Tyype As String
Dim Region As String
Dim Impact As String
Dim Reference As String
Dim JourdeHICreation As String
Dim SumEUR As String
Dim Amount As String
Dim textemsg As String
Dim lig As Range
Dim FL As Worksheet              'stocker la valeur du classeur actif
 Dim OutApp As Object
    Dim OutMail As Object
Set FL = Worksheets("Weekly")
For Each lig In FL.UsedRange.Rows
    Tyype = lig(1, 9)
    Region = lig(1, 4)
    Impact = lig(1, 7)
    Reference = lig(1, 2)
    JourdeHICreation = lig(1, 10)
    SumEUR = lig(1, 1)
    Amount = lig(1, 11)
    textemsg = textemsg _
        & Reference & " " & "(" & JourdeHICreation & "/" & " " & "/" & Tyype & "/" & "EUR " & Amount & " K" & ")"
Next lig
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    On Error Resume Next
    With OutMail
        .To = ""
        .CC = ""
        .BCC = ""
        .Subject = ""
        .Body = textemsg
        .Display
    End With
    On Error GoTo 0
    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub
0
Réponse 2 / 3
Mon6760 Messages postés 3 Date d'inscription mardi 8 mai 2018 Statut Membre Dernière intervention 9 mai 2018
Modifié le 9 mai 2018 à 11:48
Merci bcp, effectivement c'est plus logique comme cela. Le problème est que je n'arrive pas a récupérer la valeur des autres lignes... j'ai essayer ca: 

Option Explicit
Sub Mail_Workbook_1()


Dim Tyype As String
Dim Region As String
Dim Impact As String
Dim Reference As String
Dim JourdeCreation As String
Dim SumEUR As String
Dim Amount As String

Dim LineNB, ColNB As Long

Dim textemsg As String
Dim lig As Range
Dim FL As Worksheet              'stocker la valeur du classeur actif
    
Set FL = Worksheets("Weekly_breakdown_crosstab")

LineNB = ActiveCell.Row


For Each lig In FL.UsedRange.Rows

    Tyype = FL.Cells(LineNB, 9).Value
    Region = FL.Cells(LineNB, 4).Value
    Impact = FL.Cells(LineNB, 8).Value
    Reference = FL.Cells(LineNB, 2).Value
    JourdeCreation = FL.Cells(LineNB, 10).Value
    SumEUR = FL.Cells(LineNB, 1).Value
    Amount = FL.Cells(LineNB, 11).Value

    textemsg = textemsg _
        & Reference & " " & "(" &JourdeCreation& "/" & " " & "/" & Impact & "/" & "EUR " & Amount & ")"

Next lig

    Dim OutApp As Object
    Dim OutMail As Object
    
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    
    On Error Resume Next
    
    With OutMail
        .To = ""
        .CC = ""
        .BCC = ""
        .Subject = ""
        .Body = textemsg
        .Display
    
    End With
    
    On Error GoTo 0
    
    Set OutMail = Nothing
    Set OutApp = Nothing

End Sub



Mais cela ne sélectionne que la ligne et l'écrit plusieurs fois...

Merci beaucoup pour votre aide!
0
Réponse 3 / 3
Mon6760 Messages postés 3 Date d'inscription mardi 8 mai 2018 Statut Membre Dernière intervention 9 mai 2018
9 mai 2018 à 12:11
J'ai reussi, merci bcp pour la piste !
0
yg_be Messages postés 22698 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 18 avril 2024 1 471
9 mai 2018 à 12:47
super! peux-tu alors marquer le sujet comme résolu, via la roue dentée à droite du titre?
0

Discussions similaires

"L'indice n'appartient à la sélection" + VBA
fleur.31 -
geosevda -

2 réponses
VBA : Range avec références variables..
Antoine -
MIKE59 -

7 réponses
VBA erreur 1004
séverine -
Floroan -

9 réponses
ouverture d'un fichier excel à partir d'un code VBA
TraderAS -
pijaku -

3 réponses
Méthode find dans VBA - Recherche de données sous Excel
baissaoui -
baissaoui -

0 réponse