Discussion :

[DiDier7]

Bonjour,
je ne peux pas insérer une image comme commentaire.
je fais insérer un commentaire/puis click sur la bordure, format de commentaire/couleurs et traits/puis menu déroulant de Couleur, effets de remplissage/Image/ et enfin sélectionner une image et là Excel plante, je suis obligé de passer par fin de tâche
du gestionnaire.

J'ai MS office LTSC pro + 2024 depuis peu mais j'avais le même problème avec Excel 2019 avant et j'espérais que cela serait résolu avec 2024.

Merci d'avance pour votre aide

[tototiti2008]

Bonjour Didier,

Tout ce que je peux dire c'est que je viens de le faire sur Excel 2021 Pro Plus et que ça a marché sans planter

[tototiti2008]

Re,

une macro à tester pour voir si VBA arrive à le faire (chemin du fichier image à adapter, vérifier qu'en D6 il n'y a pas encore de commentaire)

Code :

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

1
2
3
4
5
6
7
8
Sub Macro1()
Dim Cm As Comment
    With Range("D6")
        Set Cm = .AddComment
        Cm.Shape.Fill.UserPicture "C:\Users\Toto\Pictures\Image1.jpg"
        Set Cm = Nothing
    End With
End Sub

[tototiti2008]

Re,

Peut-être essayer avec d'autres images pour vois si ce n'est pas le format d'une image en particulier qui pose soucis

[DiDier7]

Re,

une macro à tester pour voir si VBA arrive à le faire (chemin du fichier image à adapter, vérifier qu'en D6 il n'y a pas encore de commentaire)

Code :

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

1
2
3
4
5
6
7
8
Sub Macro1()
Dim Cm As Comment
    With Range("D6")
        Set Cm = .AddComment
        Cm.Shape.Fill.UserPicture "C:\Users\Toto\Pictures\Image1.jpg"
        Set Cm = Nothing
    End With
End Sub

Merci de cette réponse mais je ne connais absolument rien en VBA, et la méthode directe paraît bien plus simple (quand elle fonctionne, bien sûr)

[DiDier7]

Re,

Peut-être essayer avec d'autres images pour vois si ce n'est pas le format d'une image en particulier qui pose soucis

Bonjour, je ne peux pas essayer avec d'autres images, le processus bloque à partir de "sélectionner une image".

[tototiti2008]

Bonjour,

Merci de cette réponse mais je ne connais absolument rien en VBA, et la méthode directe paraît bien plus simple (quand elle fonctionne, bien sûr)

La question est : est-ce que le problème qui fait planter Excel a aussi lieu quand on lance le processus par VBA
Si non : peut-être qu'il y a un soucis avec le sélecteur de fichier permettant de choisir l'image

Savez vous insérer un module, coller le code fourni et exécuter la Macro1 ?

[DiDier7]

Bonjour,



La question est : est-ce que le problème qui fait planter Excel a aussi lieu quand on lance le processus par VBA
Si non : peut-être qu'il y a un soucis avec le sélecteur de fichier permettant de choisir l'image

Savez vous insérer un module, coller le code fourni et exécuter la Macro1 ?

Pour tout dire, je suis entrain d'essayer le code que vous m'avez envoyé, ça bug ....
Le message est erreur de compilation, erreur de syntaxe
Voilà ce que j'ai fait ouverture Excel/Développeur/Macro, dans la fenêtre qui s'est ouverte, j'ai donné le nom Insertion/puis créer.
Dans la nouvelle fenêtre, j'ai copié votre code, remplacé Sub de départ par sub insertion() (surligné en jaune) puis "D6" par "N17" et le chemin d'accès par " Cm.Shape.Fill.UserPicture "C:\Users\DL\Desktop\Saison des fleurs.jpg" (écrit en rouge)

[tototiti2008]

Re,

Le code est dans un module ?
Quand vous voyez le code, c'est écrit dans la barre des titres (du Type "Module1 (Code)", si c'est ça c'est bon)

Pouvez-vous me coller votre code résultant (après modifs) ici avec le bouton # pour insérer du code

[tototiti2008]

Re,

sinon une autre question : arrivez-vous à insérer cette image directement dans la feuille de calcul ?

[tototiti2008]

Re,

En cherchant un peu des problèmes similaires, il semblerait que certains on des plantages parfois si l'image est stockée sur OneDrive
Je n'ai pas OneDrive, est-il possible de le désactiver et de réessayer ?

[DiDier7]

Re,

sinon une autre question : arrivez-vous à insérer cette image directement dans la feuille de calcul ?

J'ai tout recommencé dans un nouveau classeur, je peux insérer la photo directement, ET le code VBA a fonctionné.
#Sub insertion()
Dim Cm As Comment
With Range("N17")
Set Cm = .AddComment
Cm.Shape.Fill.UserPicture "C:\Users\DL\Desktop\Saison des fleurs.jpg"
Set Cm = Nothing
End With
End Sub

A priori j'ai PAS bien compris l'utilisation du #

[tototiti2008]

Pour info (mais ce n'est pas grave) le bouton # c'est un bouton pour coller du code sur le forum

[DiDier7]

Re,

En cherchant un peu des problèmes similaires, il semblerait que certains on des plantages parfois si l'image est stockée sur OneDrive
Je n'ai pas OneDrive, est-il possible de le désactiver et de réessayer ?

Je n'utilises pas OneDrive, pas d'abonnement et pas de synchro.
Je vois pour le bouton # merci

[DiDier7]

Re,

sinon une autre question : arrivez-vous à insérer cette image directement dans la feuille de calcul ?

Je n'utilise pas OneDrive, pas d'abonnement, pas de synchro.

Je vois pour le bouton # merci

[tototiti2008]

Re,

Pas d'autre idée désolé
Après si ça plante vraiment Excel, je ne vois pas d'autre solution que de demander sur le forum Microsoft
S'ils sont au courant, peut-être qu'ils sortiront un correctif (ou pas...)

[DiDier7]

Re,

Pas d'autre idée désolé
Après si ça plante vraiment Excel, je ne vois pas d'autre solution que de demander sur le forum Microsoft
S'ils sont au courant, peut-être qu'ils sortiront un correctif (ou pas...)

OK, en tout cas merci pour le temps passé. bonne continuation

[Franc]

Bonjour, j'ai la même version LTSC 2024 Pro +.
J'ai testé l'insertion manuelle et avec macro vba avec différents formats d'image et chez moi tout fonctionne nickel !

[DiDier7]

Bonjour, j'ai la même version LTSC 2024 Pro +.
J'ai testé l'insertion manuelle et avec macro vba avec différents formats d'image et chez moi tout fonctionne nickel !

Bonjour,
J'ai regardé sur le forum Microsoft, le problème semble connu, j'ai testé les solutions proposées, sans résultat. Je pense essayer de les contacter, dès que possible.

Merci pour votre avis

[riton00]

Bonjour,

Un essai avec code VBA explication dans le fichier

Slts