Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

insertion de photo dans un commentaire

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion zoef747
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
Z

zoef747

Guest
bonjour,

ca fait toute l'apres midi que je fouille ce forum pour arriver a mes fins...
j'ai deja trouvé quasi tout ce que je voulais, sauf que je voudrais que la macro me propose de choisir la photo dans un repertoir (en locurence D:\DB\) et ca j'y parviens pas !

merci


With ActiveCell
.AddComment
.Comment.Visible = True
.Comment.Shape.Select True
With .Comment.Shape
.Width = 125
.Height = 170
.Fill.UserPicture "D:\BD\alpha08.jpg"
End With
.Comment.Visible = False
End With
 
Trier par date Trier par votes
Re : insertion de photo dans un commentaire

merci,
je comprends pas tout mais je voudrais pouvoir choisir la photo moi meme car les noms de mes photo n'ont pas de correspondance systematique avec les valeur des cellules de mon tableau...
il faudrait donc si possible que je puisse selectionner le bon fichier (d'une fenetre pop up par ex)
 
Vote positif 0 Vote négatif
Re : insertion de photo dans un commentaire

Bonjour Zoef747, Tatiak, le Forum


Voilà ton code auquel j'ai adjoint la méthode "GetOpenFilename" qui devrait faire ce quye tu souhaites :

Code: 
Sub PictureInComment()
Dim PictureParth As Variant
PictureParth = Application.GetOpenFilename("Pictures Files (*.jpg), *.jpg")
    If PictureParth <> False Then
    
        With ActiveCell
        .AddComment
        .Comment.Visible = True
                With .Comment.Shape
                    .Width = 125
                    .Height = 170
                   .Fill.UserPicture PictureParth
                End With
        .Comment.Visible = False
        End With
        
    End If
End Sub




Bonne Fin de Journée
@+Thierry


​
 
Vote positif 0 Vote négatif
Re : insertion de photo dans un commentaire

Salut tout le monde,

Moi j'utilise l'API windows qui me permet d'accéder directement au dossier 😉
Voir le fichier joint

A+
 

Pièces jointes

Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Re : insertion de photo dans un commentaire

merci bruno (et thierry et tatiak)

cela fonctionne aussi ( mais la macro est vachement plus longue) et du coup j'y comprend quasi rien ...

cela me plairait mieux d'arriver directement dans le don dossier avec la methode de Thierry
 
Vote positif 0 Vote négatif
Re : insertion de photo dans un commentaire

Bonjour zoef747, le fil

Modifie le début de la macro de _Thierry comme ceci :

Code: 
Sub PictureInComment()
Dim PictureParth As Variant
ChDir ("D:\DB")
PictureParth = Application.GetOpenFilename("Pictures Files (*.jpg), *.jpg")
    If PictureParth <> False Then
..../....

La boite de dialogue s'ouvrira direcrement sur le dossier DB du disque D.

A+
 
Vote positif 0 Vote négatif
Re : insertion de photo dans un commentaire

Bonsoir à tous

Oui pour le ChDir mais par contre il est toujours préférable de remettre le PC dans l'état où on le trouve avant l'éxécution un code VBA... Car sinon le répertoire du Travail Courant sera changé si on applique uniquement le ChDir.

Je pratique donc ainsi dans ce cas là :

Code: 
Option Explicit
Sub PictureInComment()
Dim PictureParth As Variant
Dim UserDir As String
Dim UserDrive As String
UserDir = CurDir
UserDrive = Left(CurDir, 1)
ChDrive "I"
ChDir ("I:\mc_prod\Cash\")
 
PictureParth = Application.GetOpenFilename("Pictures Files (*.jpg), *.jpg")
    If PictureParth <> False Then
    
        With ActiveCell
        .AddComment
        .Comment.Visible = True
                With .Comment.Shape
                    .Width = 125
                    .Height = 170
                   .Fill.UserPicture PictureParth
                End With
        .Comment.Visible = False
        End With
        
    End If
 
ChDrive UserDrive
ChDir UserDir
End Sub

Bonne Soirée

@+Thierry
​
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

  • Résolu(e)
XL 2019 Insérer un commentaire prêt à saisir de B à X sans limite... (excepté en ligne 1 ; taille de commentaire Ok déjà voir code VB en B*)
Réponses
7
Affichages
263
Nicolas JACQUIN
  • Résolu(e)
XL 2019 Comment modifier ces codes VB de sorte que le clic droit sur un commentaire présent, permette l'édition et non cette erreur (capture) ?
Réponses
6
Affichages
252
anthoYS
  • Question Question
XL 2021 Orientation d'une image dans le commentaire d'une cellule
2 3
Réponses
42
Affichages
3 K
AtTheOne
V
  • Question Question
Microsoft 365 VBA : intégration photo en commentaire de cellule
Réponses
6
Affichages
1 K
VAEA
V
  • Résolu(e)
XL 2016 Photo dans commentaire
Réponses
2
Affichages
915
Claudy
H
  • Question Question
Microsoft 365 Insertion d'une photo dans une cellule avec redimensionnement et tri possible
Réponses
4
Affichages
1 K
Hubert BEDUER
H
J
  • Question Question
Autres Inserer une photo dans un tableau Word depuis Excel en la redimensionnant
Réponses
2
Affichages
1 K
jeremie42
J
  • Question Question
Autres encore un test sur excel 64 bits
3 4 5
Réponses
65
Affichages
8 K
Usine à gaz
T
  • Question Question
Coller une image de cellules dans un commentaire
Réponses
2
Affichages
1 K
DoubleZero
Y
  • Question Question
Insertion de valeur dans un tableau
Réponses
0
Affichages
770
yuplop
Y
R
  • Question Question
Boucle sur Colonne pour Insertion photo
Réponses
7
Affichages
1 K
gromimi
G
K
  • Question Question
Probléme pour inserer plusieurs Photo définitivement d'un coup dans un fichier Excel.
Réponses
10
Affichages
2 K
Karim
K
P
  • Question Question
Besoin aide, insertion de commentaire dans zone fusionnée
Réponses
2
Affichages
37 K
paul87
P
P
  • Question Question
Ajout de commentaire par VBA : Figer sa position
Réponses
2
Affichages
2 K
piratman
P
N
  • Question Question
Insertion de variables dans un lien URL
2
Réponses
20
Affichages
3 K
Natoleza
N
D
  • Question Question
commentaire suivant texte cellule
Réponses
3
Affichages
1 K
Robert
B
  • Question Question
utilisation de PictureFormat
Réponses
4
Affichages
835
benjamin
B
L
  • Question Question
récupération de données dans un tableau ne possédant pas les memes abscisses et ordon
Réponses
4
Affichages
2 K
lio62
L
M
[REF] Wiki Page 7 de MichelXld
Réponses
0
Affichages
52 K
MichelXld
M
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…