Discussion :

[alex_95]

Bonjour à tous,

Tout d’abord, meilleurs vœux pour cette nouvelle année.

Pour bien la débuter, j’ai un souci avec une macro et plus particulièrement avec la fonction Plage.CopyPicture

En effet, je cherche à envoyer par mail quotidiennement des résultats à des agences: le mail marche nickel sauf que tous les 5-6 envois la macro plante avec La méthode CopyPicture de la classe Range a échoué...

J'ai beau vider le presse papier, ajouter une tempo: rien n'y fait.
Pire en pas à pas la macro remarche...

Voici la partie du code en question:

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
        Set Plage = Sheets("Recap par site").Range("A1:K" & ligne_max)
        'Workbooks.Add:
        'nom = ActiveWorkbook.Name
        'Windows(nom).Activate
        'newHour = Hour(Now())
        'newMinute = Minute(Now())
        'newSecond = Second(Now()) + 10
        'waitTime = TimeSerial(newHour, newMinute, newSecond)
        'Application.Wait waitTime
        'Plage.CopyPicture: Workbooks(nom).activesheet.Paste
        Workbooks.Add: Plage.CopyPicture: activesheet.Paste
        With activesheet.ChartObjects.Add(0, 0, Selection.Width, Selection.Height).Chart
            .Paste
            .Export "U:\suivi.gif", "GIF"
        End With
        ActiveWorkbook.Close False
        Application.CutCopyMode = False
        Call ViderPressePapier

Merci de vos lumières
A+
Alex

[mercatog]

Essaies comme ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Set Plage = ThisWorkbook.Worksheets("Recap par site").Range("A1:K" & Ligne_Max)
 
With Workbooks.Add(1)
    With .Worksheets(1).ChartObjects.Add(0, 0, Plage.Width, Plage.Height).Chart
        Plage.CopyPicture
        .Paste
        .Export "C:\Users\user\Desktop\suivi.gif", "GIF"
    End With
    .Close False
End With
 
Set Plage = Nothing
Application.CutCopyMode = False
Call ViderPressePapier

[alex_95]

Merci pour ta réactivité mais hélas ça ne marche pas non plus...
En effet, j'ai exactement le même problème...

Et dès que je fais F8, ça marche tout en replantant au mail d'après avec le même message.

As tu une autre idée ?

Merci d'avance

[mercatog]

Non je n'ai pas d'autre idée sauf que j'avais testé le code de ma précédente réponse sans pour autant rencontrer de problème particulier.

[alex_95]

Je viens de retester à nouveau et à la 5e occurrence, la macro plante de nouveau.

Connais tu un autre moyen d'afficher dans un mail Outlook un tableau Excel défini par une plage:

Code :

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

Sheets("Recap par site").Range("A1:K" & ligne_max)

En effet, je sais attaché un pdf mais pour la lecture, il serait mieux d'avoir le tableau directement dans le mail

Merci d'avance
Alex

[alex_95]

J'ai essayé de remodifier le code en "remontant" la purge du presse papier comme ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
        Call ViderPressePapier
        Plage.CopyPicture
        With Workbooks.Add(1)
            With .Worksheets(1).ChartObjects.Add(0, 0, Plage.Width, Plage.Height).Chart
                .Paste
                .Export "U:\suivi.gif", "GIF"
            End With
            .Close False
        End With
 
        Set Plage = Nothing
        Application.CutCopyMode = False

Sachant que viderpressepapier est défini comme tel:

Code :

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

1
2
3
4
5
6
7
Sub ViderPressePapier()
Dim Cible As DataObject
Set Cible = New DataObject
Cible.SetText ""
Cible.PutInClipboard
Set Cible = Nothing
End Sub