insérer une photo dans un fichier excel (macro photo) Fermé

Question

Bonjour, 
Novice de la macro, je cherche à crée un fichier excel.
Je souhaiterai crée une macro permettant de récupérer l'image de image situé dans mon dossier image grâce au nom du fichier. 
Je souhaiterai l'insérer dans ma feuille excel (n'importe où dans la feuille). 
En gros je souhaiterais cliquer sur la cellule contenant le nom de l'image, (exemple ctrl +J sur la case) et que ça m'insère la photo dans ma feuille de calcul.
Jéspere que quelqu'un va pouvoir m'aider 
Merci d'avance 
bRAZU

cs_Le Pivert · Answer

Bonjour,

Voici un exemple

 http://www.cjoint.com/c/EFqnog5Yn7Q

michel_m · Answer

Bonjour à tous

Un autre exemple
https://www.cjoint.com/c/EFqnPWkYpcz

brazu · Answer

J'ai trouvé une macro photo qui fait ce dont j'ai besoin mais elle ne fonctionne pas sur mon ordi:(
Quelqu'un peut il m'aider à trouver où est l'erreur s'il vous plait?

Je ne pense pas que ça soit qu'au niveau du chemin d'accès de mon dossier non?

Sub Photo()

'
'
' Touche de raccourci du clavier: Ctrl+a
'
'===============================================================================================================================
' Déclaration des variables et constantes
Dim temp                                         ' Variable temporaire qui va conserver la valeur de la cellule sélectionnée
Const DOSSIER_PHOTOS As String = "C:\pictos\" ' Répertoire dans lequel se trouve les photos
Const EXTENSION_PHOTOS As String = ".JPG"        ' Extension des photos
'Const CELLULE_PHOTOS As String = "I2"            ' Cellule dans laquelle doit s'afficher les photos

'===============================================================================================================================
' Début du programme
On Error GoTo NonTrouve

    ' Conservation de la valeur de la cellule et retrait des éventuels espaces avant ou après la valeur
    If IsNumeric(ActiveCell.Value) Then
        temp = Trim(Str(ActiveCell.Value))
    Else
        temp = Trim(ActiveCell.Value)
    End If
    
    
    ' positionnement sur la cellule où doit être la photo
   ' Range(CELLULE_PHOTOS).Select
    ' insertion de la photo
    ActiveSheet.Pictures.Insert(DOSSIER_PHOTOS + temp + EXTENSION_PHOTOS).Select
Exit Sub
NonTrouve:
MsgBox ("Aucune photo n'a été trouvée")

' Fin du programme

End Sub

michel_m · Answer

Bonjour,
Je viens d'esayer chez moi XL2007 sur classeur fait à l'époque avec XL2000
et ca marche
Attention: il faut dézipper et ouvrir le zip car en ouvrant directement, les macros ne fonctionnent pas

Insérer une photo dans un fichier excel (macro photo)

4 réponses