Parcourir mes images puis insérer une image
vodkaddict
-
vodkaddict -
vodkaddict -
Bonjour,
Je travaille actuellement sur excel2007. Je souhaite créer une macro qui me permettrait de parcourir mes documents puis, d'insérer l'image que j'ai choisi.
je n'y arrive pas, à chaque fois, j'ai une erreur qui survient... Si quelqu'un a une idée...
Merci d'avance :)
Je travaille actuellement sur excel2007. Je souhaite créer une macro qui me permettrait de parcourir mes documents puis, d'insérer l'image que j'ai choisi.
je n'y arrive pas, à chaque fois, j'ai une erreur qui survient... Si quelqu'un a une idée...
Merci d'avance :)
A voir également:
- Parcourir mes images puis insérer une image
- Insérer une vidéo dans powerpoint - Guide
- Insérer une image dans word sans bouger le texte - Guide
- Image iso - Guide
- Légender une image - Guide
- Insérer signature word - Guide
2 réponses
J'essaye d'adapter un programme trouvé sur le net, je peux choisir l'image, mais c'est quant arrive le moment de l'insérer au tableau excel que cela coince :x
Sub InsererImg()
Dim Obj As OLEObject
Dim Chemin As Variant
Dim T As String
'Choix du fichier PDF
Chemin = Application.GetOpenFilename(Title:="Choisir l'image à insérer")
If Chemin = False Then Exit Sub
Application.ScreenUpdating = False
'Insertion de l'image
Set Obj = .OLEObjects.Add(Filename:=Chemin, Link:=True,
End Sub
Sub InsererImg()
Dim Obj As OLEObject
Dim Chemin As Variant
Dim T As String
'Choix du fichier PDF
Chemin = Application.GetOpenFilename(Title:="Choisir l'image à insérer")
If Chemin = False Then Exit Sub
Application.ScreenUpdating = False
'Insertion de l'image
Set Obj = .OLEObjects.Add(Filename:=Chemin, Link:=True,
End Sub
