Macro copy/send qui fonctionnait sur XP et plus sur Windows 7

Macro copy/send qui fonctionnait sur XP et plus sur Windows 7 - VB/VBA/VBS - Programmation

Marsh Posté le 18-07-2016 à 09:52:38    

Bonjour à tous,
 
Voilà, pour le travail, j'avais une macro qui copiait un tableau et l'envoyait via Outlook mais depuis que j'ai migré de XP à Wds 7, elle fonctionne plus. Le bug arrive au moment où le tableau doit être copié.  Je reçois un message plutôt général comme "method or data member not found".
 
J'ai essayé de chercher des pistes sur le net mais je ne trouve pas, je vous remercie pour votre aide.
 
Apparemment il y a des balises C/C pour les codes mais honnêtement, je ne comprends pas de quoi il s'agit, si vous m'expliquez, je modifierai le codes dans le format désiré.
 
Voici le code:
 

Code :
  1. Option Explicit
  2. Sub CreateEmail()
  4. 'create picture files
  6. Dim rng As Range
  7. Dim strFolder As String
  9. strFolder = ActiveWorkbook.path & "\"
  11. Set rng = Sheet5.Range("v_report" )
  12. If Not ExportRangeToPicture(rng, strFolder & "profile_vol.png" ) Then
  13.     MsgBox "Error while creating png files"
  14.     GoTo ExitProc
  15. End If
  17. 'prepare email
  19. Dim strHTML As String
  20. Dim myOlApp As Variant, myItem As Variant, olMailItem As Variant
  22. Set myOlApp = CreateObject("Outlook.Application" )
  23. Set myItem = myOlApp.CreateItem(olMailItem)
  25. myItem.Subject = Sheet5.Range("em_subject" ).Value
  26. myItem.To = Sheet5.Range("em_to" ).Value
  27. myItem.CC = Sheet5.Range("em_cc" ).Value
  29. 'myItem.Importance = Outlook.OlImportance.olImportanceLow
  31. myItem.Attachments.Add strFolder & "profile_vol.png"
  33. strHTML = "<html><img src='profile_vol.png'><br><br>"
  35. strHTML = strHTML + "</html>"
  37. myItem.HTMLBody = strHTML
  38. myItem.Display
  40. ExitProc:
  42. End Sub
  45. Function ExportRangeToPicture(rng As Excel.Range, img As String) As Boolean
  46. ' save a range from Excel as a picture
  47. ' rng = Range to export
  48. ' img = filename & path
  49. ' basic error checking
  50. ' check for valid filetypes
  51. ' from http://peltiertech.com/WordPress/e [...] mage-file/
  53. 'Const FILE_EXT As String = "gif,png,jpg,jpe,jpeg"
  54. 'If InStr(FILE_EXT, LCase$(Right$(img, 3))) = 0 Then
  55. 'GoTo ExitProc
  56. 'End If
  58. ' check for valid path
  59. 'Dim path As String
  60. 'path = Left(img, InStrRev(img, "\" ))
  61. 'If Dir(path, vbDirectory) = "" Then GoTo ExitProc
  63. ' check for valid range
  64. Dim rRng As Range
  65. On Error Resume Next
  66. Set rRng = rng
  67. On Error GoTo 0
  68. If rRng Is Nothing Then GoTo ExitProc
  70. ' check for protected worksheet
  71. If ActiveSheet.ProtectContents Then GoTo ExitProc
  73. ' copy range to picture, put into chart, export it
  74. 'Application.ScreenUpdating = False
  75. rRng.CopyPicture xlScreen, xlBitmap
  76. Dim cht As ChartObject
  77. Set cht = Sheet1.ChartObjects.Add(0, 0, rRng.Width + 1, rRng.Height + 1)
  78. With cht
  79. .Chart.ChartArea.Border.LineStyle = xlLineStyleNone
  80. .Chart.PasteSpecial.xlPasteValues
  81. .Chart.Export img, Filtername:="png"
  82. .Delete
  83. End With
  85. ' if we got this far, assume success
  86. ExportRangeToPicture = True
  88. ExitProc:
  89. 'Application.ScreenUpdating = True
  90. Set cht = Nothing
  91. Set rRng = Nothing
  92. End Function


 
Bien à vous


Message édité par Coellophysis le 19-07-2016 à 09:40:35
Reply

Marsh Posté le 18-07-2016 à 09:52:38   

Reply

Marsh Posté le 19-07-2016 à 08:45:45    

Salut,
 
Les balises [ cpp ][ /cpp ] s'utilisent très simplement : Tu mets ton code entre les deux et c'est tout.
 
Exemple :  [ cpp ]Toto[ /cpp ]  affichera
 

Code :
  1. Toto


 
Sinon, pour ton problème qu'appelle-tu le moment où le tableau doit être copié ?
C'est l'instruction rRng.CopyPicture xlScreen, xlBitmap qui plante ?
 
Si oui, est-ce que ca marche en pas à pas (Débogage puis F8) ?

Reply

Marsh Posté le 19-07-2016 à 09:42:41    

Bonjour Chelmi18,
 
Je te remercie pour ton explication cpp /cpp, j'ai pu édité le message.
 
Pour le code, non il ne fonctionne pas étape par étape via le F8, lors du bug, la surbrillance se trouve ici ".Chart.PasteSpecial.xlPasteValues"  
 
Bien à toi.
 

Reply

Marsh Posté le 19-07-2016 à 13:09:32    

Je ne comprends pas bien ce que tu cherches à faire : un objet Chart est un graphique pas une image.
Je ne suis donc pas sûr que tu puisses agir sur un graphique avec l'instruction .PasteSpecial.xlPasteValues.
 
Si tu cherches juste à sauvegarder un graphique déjà existant en tant qu'image, tu peux essayer en enlevant cette instruction je pense.
Sinon, essaye en passant plutôt par un objet de type Shape qui sera plus approprié à mon avis.
 
 
 

Reply

Marsh Posté le 19-07-2016 à 14:34:51    

Mon but est de copier un chart vers un email, cette méthode a fonctionné pendant 2 ans jusqu'à je migre vers Windows 7.

Reply

Marsh Posté le 20-07-2016 à 09:13:24    

Dans ce cas, remplace la ligne 80
 

Code :
  1. .Chart.PasteSpecial.xlPasteValues


 
par
 

Code :
  1. .Chart.Paste

Reply

Marsh Posté le 20-07-2016 à 09:57:01    

Bonjour,
 
Ca n'a pas fonctionné mais c'était bien tenté.

Reply

Marsh Posté le 20-07-2016 à 13:15:26    

C'est curieux, cela a fonctionné nickel chez moi ?!
 
J'avais bien une image de mon range dans le mail (Windows 7, Excel 2010).
 
Ça fait quoi chez toi ? même erreur ?

Reply

Marsh Posté le 20-07-2016 à 15:45:12    

Voici ce que je reçois comme message d'erreur:
 
Run time error '1004': Method Paste of Object_Chart failed
 
bien à toi

Reply

Marsh Posté le 21-07-2016 à 08:21:34    

Apparemment, ce problème semble se produire si la copy n'a pas fonctionné comme prévue, par exemple si le Range copié déborde de la partie visible de l'écran.
Est-ce ton cas ?
 
Si oui, regarde la solution expliquée là : http://stackoverflow.com/questions [...] creen-area
Notamment la partie ZoomToRange.
 
Hope this helps.

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed