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

10 réponses

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
Guido
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
























Avatar
LSteph
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




























Avatar
Guido
LSteph,
Voici donc une version corrigée qui propose d'abord le choix de
répertoire.http://cjoint.com/?kjxlvxJ6oV
J'avais recopié le lien hypertext, pour le fichier.

Il est vraiment excellent.
Mais comment intégrer les autres extentions images, gif, bmp etc...
mes essais ne sont pas concluents. (voir messages précédents)

Merci de ton aide.
Guido



"LSteph" a écrit dans le message de
news:%
;o) c'est déjà dans un userform si tu notes bien
En fait j'ai donné une version où il y a un truc à corriger dans
l'initialize
combobox1.clear à rajouter au début
Sinon voir http://cjoint.com/?kjxlvxJ6oV corrigé et qui propose de
changer

de répertoire (sinon annuler)

"G. " <sugere~KillPub~@online.fr> a écrit dans le message de news:

Bonsoir LSteph,
Un vrai bijou ton joujou !
Adopté ! Bravo
Comme on est dans les images, pour insérer dans un userform il doit bien
avoir une astuce ? J'avoue ne pas avoir pris le temps de chercher, ne
"m'engueule" pas ;)
Cordialement
Gérard



"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
















Avatar
Guido
Merveilleux.
C'est ça. Il ne me reste maintenant plus qu'a corriger ma base de donnée.
Je vais abusé de votre gentillesse à vous deux, mais je me demande si...
il y a moins, d'avoir le choix de :
soit d'inscrire le nom du fichier image directement sur le UserForm
ou, d'utiliser la liste déroulante.
Je vous remercie encore infiniment.
Guido



"LSteph" a écrit dans le message de
news:uQXC%
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
































Avatar
LSteph
.. je t'ai mis solution sur l'autre fil avec
un do while... loop pour chaque extension!

on pourrait faire un seul dir avec *.* mais pb tu n'aurais pas que des
images!

(le principe qd 1er dir appelle un fichier * avec une extension, le suivant
dir sans extension sera traité avec la même mais sur le fichier suivant du
chemin en cours).

a+

lSteph


"Guido" a écrit dans le message de news:
%
LSteph,
Voici donc une version corrigée qui propose d'abord le choix de
répertoire.http://cjoint.com/?kjxlvxJ6oV
J'avais recopié le lien hypertext, pour le fichier.

Il est vraiment excellent.
Mais comment intégrer les autres extentions images, gif, bmp etc...
mes essais ne sont pas concluents. (voir messages précédents)

Merci de ton aide.
Guido



"LSteph" a écrit dans le message de
news:%
;o) c'est déjà dans un userform si tu notes bien
En fait j'ai donné une version où il y a un truc à corriger dans
l'initialize
combobox1.clear à rajouter au début
Sinon voir http://cjoint.com/?kjxlvxJ6oV corrigé et qui propose de
changer

de répertoire (sinon annuler)

"G. " <sugere~KillPub~@online.fr> a écrit dans le message de
news:

Bonsoir LSteph,
Un vrai bijou ton joujou !
Adopté ! Bravo
Comme on est dans les images, pour insérer dans un userform il doit
bien
avoir une astuce ? J'avoue ne pas avoir pris le temps de chercher, ne
"m'engueule" pas ;)
Cordialement
Gérard



"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




















Avatar
Guido
Merci LSteph,
Je vais essayé de suivre correctement les fils de discutions.
Et me contenter de rester sur celui d'en dessus.
Peux-tu me dire, avant que j'aille me coucher (je dois me lever à 5.30) si
ma demande est faisable en double, soit nom de fichier (direct) ou par le
chemin est un problème ?
Encore merci.
Guido

"LSteph" a écrit dans le message de
news:
.. je t'ai mis solution sur l'autre fil avec
un do while... loop pour chaque extension!

on pourrait faire un seul dir avec *.* mais pb tu n'aurais pas que des
images!

(le principe qd 1er dir appelle un fichier * avec une extension, le
suivant

dir sans extension sera traité avec la même mais sur le fichier suivant du
chemin en cours).

a+

lSteph


"Guido" a écrit dans le message de news:
%
LSteph,
Voici donc une version corrigée qui propose d'abord le choix de
répertoire.http://cjoint.com/?kjxlvxJ6oV
J'avais recopié le lien hypertext, pour le fichier.

Il est vraiment excellent.
Mais comment intégrer les autres extentions images, gif, bmp etc...
mes essais ne sont pas concluents. (voir messages précédents)

Merci de ton aide.
Guido



"LSteph" a écrit dans le message de
news:%
;o) c'est déjà dans un userform si tu notes bien
En fait j'ai donné une version où il y a un truc à corriger dans
l'initialize
combobox1.clear à rajouter au début
Sinon voir http://cjoint.com/?kjxlvxJ6oV corrigé et qui propose de
changer

de répertoire (sinon annuler)

"G. " <sugere~KillPub~@online.fr> a écrit dans le message de
news:

Bonsoir LSteph,
Un vrai bijou ton joujou !
Adopté ! Bravo
Comme on est dans les images, pour insérer dans un userform il doit
bien
avoir une astuce ? J'avoue ne pas avoir pris le temps de chercher, ne
"m'engueule" pas ;)
Cordialement
Gérard



"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
























Avatar
LSteph
Bonjour,
je dois partir,ppas le temps.
oui en t'inspirant du code tu peux adapter et mettre en dur le nom de ton
fichier dans une cellule et t'en servi pour insérer l'image mais pour cela
il faut le chemin.

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

Merveilleux.
C'est ça. Il ne me reste maintenant plus qu'a corriger ma base de donnée.
Je vais abusé de votre gentillesse à vous deux, mais je me demande si...
il y a moins, d'avoir le choix de :
soit d'inscrire le nom du fichier image directement sur le UserForm
ou, d'utiliser la liste déroulante.
Je vous remercie encore infiniment.
Guido



"LSteph" a écrit dans le message de
news:uQXC%
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




































Avatar
Modeste
;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








Avatar
Guido
Ho grand Modeste,
que ton X s'active, que ton Avi tionnados (comme au foot), que ton ta
connaissance soit vénérée.

Je ne peux que remercier LSteph encore infiniment pour ce qu'il a fait. Il
est dommage pour moi de ne pas pouvoir le lui dire de vive voix. Il n'est
pas forcément aisé à tout un chacun de connaître et de pouvoir se porter au
Panthéon des Dieux MVP.

Il est toujours apréciable de lire tes commentaire, Mon cher Modeste, car
ils sont toujours, et c'est mon avis, d'une utilité des plus sages.

Mais là, il ne faut pas oublier que certains sont novices et que la
compréhension du Seigneur VBA, n'est pas chose aisée.
Donc, si je savais ce genre de chose par moi-même, je me serais mis de
l'autre côté de la barrière et non celle du demandeur.

J'espère ne pas avoir pris trop de ton temps et que je puisses continuer à
lire tes autres messages très instructifs, pour moi en tout cas, avec grand
plaisir et assiduité.

Salutations à toi.
Guido





"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











Avatar
G. L
Bonsoir LSteph,
Merci, je vais potassé tout ça.
C'est génial ! Et en plus Guido a de quoi avancer.
Cordialement
Gérard

"LSteph" a écrit dans le message de
news:%
;o) c'est déjà dans un userform si tu notes bien
En fait j'ai donné une version où il y a un truc à corriger dans
l'initialize
combobox1.clear à rajouter au début
Sinon voir http://cjoint.com/?kjxlvxJ6oV corrigé et qui propose de
changer

de répertoire (sinon annuler)

"G. " <sugere~KillPub~@online.fr> a écrit dans le message de news:

Bonsoir LSteph,
Un vrai bijou ton joujou !
Adopté ! Bravo
Comme on est dans les images, pour insérer dans un userform il doit bien
avoir une astuce ? J'avoue ne pas avoir pris le temps de chercher, ne
"m'engueule" pas ;)
Cordialement
Gérard



"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
















1 2 3