Discussion :

[locweb]

Bonjour,
on m'avait créé une macro qui permettait la copie d'une plage Xls, et de la transformer en image jpeg.
Depuis le passage à office 2013 il y a une erreur 1004 sur LeGraph.Chart.Paste.
Je n'y connais rien en programmation, quelqu'un pourrait-il m'aider à corriger ce bug ?

Merci d'avance.

Une image de la macro est aussi en fichier joint.

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
27
Sub export_hiver_jpg()
'
' export_hiver_jpg Macro
''1 Nommer les plages à sélectionner
'Par mapeh
Dim NomPlage, NomFich
Dim LeGraph As Object
Dim Rep As String
Dim i As Byte
Application.ScreenUpdating = False
Rep = "G:\sites web\locweb\images\"   'Répertoire de sauvegarde
NomPlage = Array("tarifrdcpleneyhiver", "tarifduplexnyonhiver", "tarifduplexavoriazhiver", "tarifchaletarthurhiver", "tarifchaletlenidhiver", "tarifarthursaisonhiver")                       'Nom de tes plages
NomFich = Array("tarifrdcpleneyhiver", "tarifduplexnyonhiver", "tarifduplexavoriazhiver", "tarifchaletarthurhiver", "tarifnidhiver", "tarifarthursaisonhiver")                    'Nom des fichiers de sortie correspondants
' "tarifrdcpleneyhiver", "tarifduplexnyonhiver", "tarifduplexavoriazhiver", "tarifchaletarthurhiver", "tarifchaletlenidhiver"
' "tarifrdcpleneyete", "tarifduplexnyonete", "tarifduplexavoriazete", "tarifchaletarthurete", "tarifchaletlenidete"
With Sheets("HIVER")     'nom de la feuille ou sont les plages
   For i = LBound(NomPlage) To UBound(NomPlage)
      .Range(NomPlage(i)).CopyPicture
      Set LeGraph = .ChartObjects.Add(0, 0, .Range(NomPlage(i)).Width, .Range(NomPlage(i)).Height)
     LeGraph.Chart.Paste
      LeGraph.Chart.Export Filename:=Rep & NomFich(i) & ".jpg"
      LeGraph.Delete
   Next i
End With
 
'
End Sub

[Darkzinus]

Bonjour, as-tu pensé ajouter la collection adéquate ?
Dans visual basic editor, Outils puis référence. Notamment la collection Ole Automation.

[locweb]

Merci pour l'info, j'ai essayé, j'ai même installé des compléments depuis le site microsoft, mais le problème reste inchangé.

[Invité]

Bonjour,

Je n'ai pas Excel 2013, mais j'ai voulu essayer votre code sur mon Excel 2010. Tout est OK.

J'ai ensuite fait manuellement l'essai suivant :

- J'ai d'abord créé une capture d'écran que j'ai collée sur la feuille. Puis j'ai copié l'image.

- Puis avec l'enregistreur de macro (créer une macro)

-J'ai créé un graphe (n'importe lequel)
-J'ai fait un coller sur le graphe. L'image s'est bien déversée dans le graphe.

-J'ai terminé la macro.

J'ai transposé le résultat de la macro dans dans celle-ci :

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
 
Sub SansPlageAvecShapesAddChartAEssayer()
 
Dim Rep As String
 
    Rep = "C:\Users\Eric\Documents\VBA Excel\Développez-Com\Images\Export Jpeg\"
 
    With ActiveSheet
 
         .Shapes.Range(Array("Picture 1")).Select
         Selection.Copy
         .Shapes.AddChart.Select
 
         'Application.DisplayAlerts = False
         With ActiveChart
            .Paste
            .Export Filename:=Rep & "tarifrdcpleneyhiver" & ".jpg"
         End With
         'Application.DisplayAlerts = True
 
    End With
 
End Sub

Et cela a fonctionné.

Regardez ce que vous obtenez avec cette méthode.


Cordialement.