seff5042

    Sub DebugF()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Wirp_US")
    
    Dim msg As String
    Dim i As Long
    For i = 2 To 15
        If IsError(ws.Cells(i, 6).Value) Then
            msg = msg & "F" & i & " = ERREUR (ex: #N/A)" & vbNewLine

seff5042

    Private Function ExporterTable(nomSheet As String, imgPath As String) As Boolean
    On Error GoTo Erreur
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets(nomSheet)

    ' Dernière ligne avant #N/A en colonne F
    Dim lastRow As Long
    lastRow = 2
    Do While CStr(ws.Cells(lastRow, 6).Value) <> "Error 2042" _

seff5042

    Sub DebugTable2()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Wirp_US")
    
    Dim msg As String
    msg = "B2 = '" & ws.Cells(2, 2).Value & "'" & vbNewLine
    msg = msg & "B3 = '" & ws.Cells(3, 2).Value & "'" & vbNewLine
    msg = msg & "B4 = '" & ws.Cells(4, 2).Value & "'" & vbNewLine
    

seff5042

Sub DebugTable()
    Dim wsMain As Worksheet
    Set wsMain = ThisWorkbook.Sheets("Main")
    
    Dim msg As String
    Dim ws As Worksheet
    msg = "Feuilles disponibles :" & vbNewLine
    For Each ws In ThisWorkbook.Worksheets
        msg = msg & "'" & ws.Name & "'" & vbNewLine
    Next ws

seff5042

'================================================================
' CONFIGURATION GÉNÉRALE
'================================================================

Const SUJET       As String = "Mon rapport"
Const TEXTE_INTRO As String = "Bonjour,<br>Veuillez trouver ci-dessous les graphiques et données.<br><br>"
Const TEXTE_FIN   As String = "<br>Cordialement,"

'================================================================
' NE PAS MODIFIER EN DESSOUS

seff5042

Sub DebugMain()
    Dim wsMain As Worksheet
    Set wsMain = ThisWorkbook.Sheets("Main")
    
    Dim i As Long
    i = 2
    Dim msg As String
    
    Do While wsMain.Cells(i, 21).Value <> ""
        msg = msg & "Ligne " & i & " : '" & wsMain.Cells(i, 21).Value & "' | Rang: '" & wsMain.Cells(i, 22).Value & "' | Table: '" & wsMain.Cells(i, 23).Value & "'" & vbNewLine

seff5042

'================================================================
' CONFIGURATION GÉNÉRALE
'================================================================

Const SUJET       As String = "Mon rapport"
Const TEXTE_INTRO As String = "Bonjour,<br>Veuillez trouver ci-dessous les graphiques et données.<br><br>"
Const TEXTE_FIN   As String = "<br>Cordialement,"

'================================================================
' NE PAS MODIFIER EN DESSOUS