Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Recherche Image et coller image

Recherche Image et coller image

21 réponses
Avatar
Guido
Bonsoir,
En insérant le nom du fichier image (zaza01) dans la cellule A1, est-il
possible de coller cette image se trouvant dans le répertoire
C:\image\tintin\tintin01 dans un cadre définit automatiquement. Mais plus
dur, c'est produire ce genre de commande pour d'autres images, mais se
trouvant dans des sous-répertoires différents dans le dossier C:\image\...
Qui pourrait m'aider ?
Merci d'avance ?
Guido
Signaler un problème avec ce contenu

1 réponse

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2 3
Avatar
LSteph
Bon$our GD et GuiDo, et GérarD,

Tous ont du ..G..D...
Merci Modeste de veiller encore sur mes horaires de sommeil

Rassurez vous je GarDe la pêche!
reGarDez mes yeux papillotent à peine

($)-($)
¨
U

Comment cela ..que j'm'y Colle!...moi pas MVP
D'abord je sais même pas faire cela avec des activX .
Et puis si cela me mets trop les Bmp, j'arrête, !

Bon allez vous m'avez bien fait rire .

a+

lSteph

"Modeste" a écrit dans le message de news:
%
;o)))
heu ... ???
j'ai pas les Bmp ????
et puis savoir combien y'a d'images ???
et puis les dimensions ???
et ......pour la musique cela serait bien aussi !!!
(avec réglage du volume , durée, type wav, mid,mp3)

;o)))
un multiviewer en quelque sorte ....
C'est quand même bien MPFE...
tu demandes, Hop ça arrive... près à déguster

Là Coco faut que tu t'y colles !!!!
Désolé, j'ai pas la disponibilité actuellement pour regrouper et mettre en
forme tout ça !!!
nb:
ne pas oublier : AVI avec ActiveX Animation
;o))))

LSteph wrote:
ainsi cela devrait le faire:

Private Sub UserForm_Initialize()
Dim f As String


ChDir chemin
ComboBox1.Clear
f = Dir("*.gif")
Do While Len(f) > 0
ComboBox1.AddItem f
f = Dir
Loop
f = Dir("*.jpg")
Do While Len(f) > 0
ComboBox1.AddItem f
f = Dir
Loop


End Sub



"Guido" a écrit dans le message de news:
%
Je te remrecie pour l'info,
Encore merci. Pour ce qui est de la taille. C'est génial.
question proportionnalité. En fait, l'image n'est destinée qu'à être
insérée
et à voir ce que c'est (sorte d'aperçu avant impression). Ce n'est
vraiment
pas destiné à y avoir la plus grande résolution. Juste voir ce que
l'image représente.
Et question des extentions images ?
j'ai essayé de corriger avec
f = Dir("*.jpg" ".gif")
f = Dir("*.jpg" , ".gif")
f = Dir("*.jpg" ; ".gif")
rien n'y fait
Comment dois-je corriger ceci ?
Guido

"LSteph" a écrit dans le message de
news:%
...
f = Dir("*.jpg") <----- ici


Oui c'est bien là!
Depuis un autre classeur vide du moment que visioxl3 est ouvert dans
excel
tu appelle la macro visioxl3.xls!showform
Pour la taille pas sûr, on pourrait remplacer
Selection.ShapeRange.Name = "cetici"
'par

With Selection.ShapeRange
.Name = "cetici"
.Width = 350
.Height = 425
End With

mais cela dépend de l'image car quand on la colle , il y a une
question de
proportionalité à respecter.
Sinon pour l'emplacement tu choisis la cellule tout simplement.

Bonne nuit.

lSteph
"Guido" a écrit dans le message de news:

Je me rends compte que c'est abuser de demander, mais c'est
vraiment un truc
génial.
Le truc pour chercher les images gifs, j'ai pas vraiment bien
compris. la commande

Private Sub UserForm_Initialize()
Dim f
ChDir chemin
f = Dir("*.jpg") <----- ici
ComboBox1.Clear
Do While Len(f) > 0
ComboBox1.AddItem f
f = Dir
Loop
End Sub

n'est pas ce qui empèche l'affichage des autres formats usuels
d'images.

Et là, je voudrais savoir, comment attribuer une dimention
standart à l'image qui sera affichée puis imprimée avec tout le
reste. Désolé, je reprendrais un texte écris précédemment à Gérard:
Mais voilà. Les images, les codes en Excel c'est vraiment pas mon
fort. L'image s'insère donc dans un cadre, qui devrait rester fixe
dans la taille visuelle (env. 6cm sur 4.5cm) en bas de page.
Un grand merci encore
Guido



"LSteph" a écrit dans le message de
news:
Bonsoir,
Content que cela te plaise.
(C'est comme indiqué dans le code inspiré d'un code de DJ avec
des jaquettes de films)
Pour un usage simple je l'ai destiné au répertoire où on
l'enregistre de préférence Mes Images
l'objectif étant de pouvoir visualiser ce que ne propose
pas forcément de la même façon insérer une image
sinon mais rien empeche de changer
de même, peu importe où tu le mets,
le tout est de concatèner correctement le nom de fichier avec le
nom de chemin
pour qu'on le retrouve.
...
C'est possible de le faire ?
oui tu noteras que c'est mis à B6 , tu peux changer.

Y-a-t'il un problème, si les images sont stockée dans des
sous-dossiers différents ?
non il suffit de modifier le path.

ceci ChDir ThisWorkbook.Path
voir dans initialize et l'enlever du combobox change ainsi que
dans CommandButton1_Click pour l'insertion d'image
mettre Curdir (pour répertoire courant)
il y a aussi un truc à corriger de je m'en rends compte dans
l'initialize pour vider la combobox avant de la remplir
Voici donc une version corrigée qui propose d'abord le choix de
répertoire.http://cjoint.com/?kjxlvxJ6oV

A+

lSteph

"Guido" a écrit dans le message de news:
%
Bonsoir LSteph,
merci de ton aide, cette application est excellente
Voici ce que je voudrais pouvoir faire avec (ou par un autre
moyen) insérer le nom de l'image directement, (ex: tintin01)
et l'insérer directement dans un petit cadre destiné à cet effet.
Y-a-t'il un problème, si les images sont stockée dans des
sous-dossiers différents ?
C'est possible de le faire ?
Guido

"LSteph" a écrit dans le message de
news:uy%
Bonjour,
pas sûr mais me suis fait ce joujou
à enregistrer dans un rep d'images
http://cjoint.com/?kjvBRA1viE

lSteph
"Guido" a écrit dans le message de news:

Bonsoir,
En insérant le nom du fichier image (zaza01) dans la cellule
A1, est-il possible de coller cette image se trouvant dans le
répertoire C:imagetintintintin01 dans un cadre définit
automatiquement. Mais plus dur, c'est produire ce genre de
commande pour d'autres images, mais se trouvant dans des
sous-répertoires différents dans le dossier C:image... Qui
pourrait m'aider ? Merci d'avance ?
Guido









--
n'oubliez pas les FAQ :
http://www.excelabo.net http://dj.joss.free.fr/faq.htm
http://www.faqoe.com http://faqword.free.fr
--
Feed Back
http://viadresse.com/?94912042











1 2 3