cs_maeline
Messages postés6Date d'inscriptionmercredi 13 mai 2009StatutMembreDernière intervention 2 octobre 2012
-
2 oct. 2012 à 16:15
MarcPL
Messages postés172Date d'inscriptionjeudi 8 décembre 2011StatutMembreDernière intervention21 juillet 2013
-
3 oct. 2012 à 16:31
Bonjour à tous, j'aimerai savoir si quelqu'un aurait déjà rencontré ce problème: Je selectionne une plage de cellules sur excel pour ensuite créer une image en Gif. Lorsque j'execute une fois la macro, cela fonctionne mais lorsque je l'execute une seconde fois, un msg "Run-Time Error '-2147417848: Method 'Add' of object 'ChartObjects' failed" apparait. Je suis alors obligé de fermer l'appli afin de pouvoir recommencer. Je ne sait pas si cela vient de windows ou bien d'ailleurs car avec le portable de l'un de mes collègues cela fonctionne (lui tourne avec W7 et moi avec XP tout deux sur Excel 2010)
Voici mon code:
Sub CreaImg()
Dim Plage As Range
Set Plage = Range("A1:B27")
Plage.CopyPicture
With ActiveSheet.ChartObjects.Add(0, 0, _
Selection.Width, Selection.Height).Chart
.Paste
.Export Thisworkbooks.Path & "" & "Test.gif", "GIF"
.Parent.Delete
End With
End Sub
En faisant une boucle j'arrive à créer plusieurs images mais lorsque je relance la macro c'est le meme problème.
Je vous remercie de votre attention
MarcPL
Messages postés172Date d'inscriptionjeudi 8 décembre 2011StatutMembreDernière intervention21 juillet 20132 2 oct. 2012 à 18:15
Bonjour ! Ce serait bien de suivre en mode pas à pas
afin de savoir quelle ligne génère l'erreur ...
___________________________________________________________________________________________________________________
Comme la vitesse de la lumière est supérieure à celle du son, certains ont l'air brillant avant d'avoir l'air con !
cs_maeline
Messages postés6Date d'inscriptionmercredi 13 mai 2009StatutMembreDernière intervention 2 octobre 2012 2 oct. 2012 à 19:34
Bonsoir Marc,
en mode pas a pas c'est la ligne 'ChartObjet.add' qui est en defaut. Entre temps cet après-midi, j'ai trouvé que lorsque j'ote la ligne 'Parent.Delete' cela n'arrete plus la macro mais ça génère autant de chartobjet que de fois que je relance la macro.
J'ai essayé plusieurs façon de pouvoir effacer l'objet mais a chaque fois j'ai une erreur. Il y a-t-il un moyen de contourner cela?
Cdt
MarcPL
Messages postés172Date d'inscriptionjeudi 8 décembre 2011StatutMembreDernière intervention21 juillet 20132 3 oct. 2012 à 16:31
Et la macro fonctionne avec Thisworkbooks.path ?
Ma version plus ancienne (sous W7) de dispose pas de cette propriété ...
Autre chose : pourquoi la création du graphique se fait-elle sur les dimensions
de la sélection et non pas celles de la plage elle-même ?
Sub CreaImg()
Set Plage = [A1:B27]
Plage.CopyPicture
With ActiveSheet.ChartObjects.Add(0, 0, Plage.Width, Plage.Height).Chart
.Paste
.Export ThisWorkbook.Path & "" & "Test.gif", "GIF"
.Parent.Delete
End With
Set Plage = Nothing
End Sub
___________________________________________________________________________________________________________________
Comme la vitesse de la lumière est supérieure à celle du son, certains ont l'air brillant avant d'avoir l'air con !