Discussion :

[B.REOREV]

Bonjour à tous,
J'ai une macro "Capture_comment()" destinée à insérer une image dans un commentaire sous Excel 2016. Celle ci fonctionnait très bien sous Excel 2010, mais depuis le passage en 2016, elle ne fonctionne qu'en exécution en pas à pas...
Avez vous une solution?
Merci d'avance!!!

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, _
ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
 
Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
 
Function Lien_rep_Valide(MonUrl As String) As Boolean
    Lien_rep_Valide = Dir(MonUrl, vbDirectory) <> ""
End Function
 
Sub Capture_comment()
Dim FL As Worksheet, Limage As String, Shp As Shape
Dim chem_copie As String
 
On Error Resume Next
 
    Set FL = Worksheets.Add
    DoEvents
    Range("A1").Select
    ActiveSheet.Paste
    DoEvents
    Set Shp = ActiveSheet.Shapes(ActiveSheet.Shapes.Count)
 
    chem_copie = "C:\temp"
 
    If Lien_rep_Valide(chem_copie) = False Then
            MkDir (chem_copie)
    End If
 
 
    Limage = chem_copie & "\Limage.jpg"
    Application.ScreenUpdating = False
 
 
       With ActiveSheet.ChartObjects.Add(0, 0, Shp.Width, Shp.Height).Chart
            .Paste
            .Export Limage, "JPG"
 
        End With
        Application.DisplayAlerts = False
            FL.Delete
        Application.DisplayAlerts = False
    Application.ScreenUpdating = True
 
       With ActiveCell
     .ClearComments
     .AddComment
     .Comment.Shape.Fill.UserPicture Limage
    End With
End Sub

[fraflt69]

Bonjour

Merci de préciser votre version d'Office

Si 64 bits prévoir les déclarations (avec PtrSafe, ..) qui vont bien pour ShellExecute et Kbd_Event qui au demeurant ne sont pas utilisées dans cette partie de code, Merci de prévoir de fournir votre fichier Excel en l'anonymisant si possible

Il est possible d'utiliser la balise de code qui le rend plus lisible.
Il aurait été intéressant de savoir sur quelle ligne il y a un problème avec quel contexte de données.

Cdlt

[Ben_L]

Bonjour,

Je puis qu'abonder dans le sens de fraflt69 concernant les balises CODE et l'identification de la ligne en erreur

Concernant votre fonction Capture_comment, je vois en début de fonction la ligne suivante :

Code :

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

ActiveSheet.Paste

Mais vous n'avez rien copié avant...

De façon générale, veillez à éviter d'utiliser les sélections et les objets actifs (ActiveSheet, ActiveCell).
C'est une source d'erreurs sans fin et une catastrophe pour les performances de votre code.
Sans parler du débogage

Cdt

[B.REOREV]

Merci pour ces réponses, je vous joint le fichier qui est un complément (.xlam). La macro concernée est "Capture_comment".
Version d'office utilisée: 2016.

Le but de cette macro est d'encapsuler une copie d'écran dans le commentaire d'une cellule. Le .paste initial est là pour importer cette image dans la nouvelle feuille créée.
J'ai mis en commentaire la gestion d'erreur qui doit gérer le cas de figure pour lequel il n'y a rien à coller...

Cordialement,