Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Utiliser un classeur pour stocker des images, et les afficher aill

7 réponses
Avatar
fifigim
Bonjour,

J'ai un morceau d'une macro, avec des conditions, qui me permet d'afficher
des images
d'une feuille à l'autre :

If Range("a1").Value = 1 Then

Application.ScreenUpdating = False
Set Sh = Worksheets("fifi").Shapes("Image 1").Duplicate
Sh.CopyPicture

With Worksheets("loulou")
.Activate
.Paste
With .Range("a2:k50")
Selection.Top = .Top
Selection.Left = .Left
Selection.Height = .Height
Selection.Width = .Width
.Select
End With
End With

End If

Sh.Delete
Sheets(Nom).Select

Je voudrais stocker les images dans un autre classeur, et donc, les appeler
de ce nouveau classeur, sans l'ouvrir, pour les afficher toujours sur la
bonne feuille.

Que dois-je ajouter ou modifier ?

Merci

7 réponses

Avatar
anonymousA
Bonjour,

sans l'ouvrir, c'est impossible.

A+


Bonjour,

J'ai un morceau d'une macro, avec des conditions, qui me permet d'afficher
des images
d'une feuille à l'autre :

If Range("a1").Value = 1 Then

Application.ScreenUpdating = False
Set Sh = Worksheets("fifi").Shapes("Image 1").Duplicate
Sh.CopyPicture

With Worksheets("loulou")
.Activate
.Paste
With .Range("a2:k50")
Selection.Top = .Top
Selection.Left = .Left
Selection.Height = .Height
Selection.Width = .Width
.Select
End With
End With

End If

Sh.Delete
Sheets(Nom).Select

Je voudrais stocker les images dans un autre classeur, et donc, les appeler
de ce nouveau classeur, sans l'ouvrir, pour les afficher toujours sur la
bonne feuille.

Que dois-je ajouter ou modifier ?

Merci


Avatar
fifigim
Ah ok, bon, et en l'ouvrant alors ?

Le but est de diminuer le "poids" du fichier, car il y a beaucoup de photos
dans le classeur, et donc, pour l'ouvrir, ça rame un peu...




Bonjour,

sans l'ouvrir, c'est impossible.

A+


Bonjour,

J'ai un morceau d'une macro, avec des conditions, qui me permet d'afficher
des images
d'une feuille à l'autre :

If Range("a1").Value = 1 Then

Application.ScreenUpdating = False
Set Sh = Worksheets("fifi").Shapes("Image 1").Duplicate
Sh.CopyPicture

With Worksheets("loulou")
.Activate
.Paste
With .Range("a2:k50")
Selection.Top = .Top
Selection.Left = .Left
Selection.Height = .Height
Selection.Width = .Width
.Select
End With
End With

End If

Sh.Delete
Sheets(Nom).Select

Je voudrais stocker les images dans un autre classeur, et donc, les appeler
de ce nouveau classeur, sans l'ouvrir, pour les afficher toujours sur la
bonne feuille.

Que dois-je ajouter ou modifier ?

Merci





Avatar
anonymousA
Ben, j'ai pas trop regardé ton code, mais pour ce que j'en ai vu ,une
fois qu'un fichier est ouvert , en faisant un peu de code, on y arrive
toujours.

A+


Ah ok, bon, et en l'ouvrant alors ?

Le but est de diminuer le "poids" du fichier, car il y a beaucoup de photos
dans le classeur, et donc, pour l'ouvrir, ça rame un peu...




Bonjour,

sans l'ouvrir, c'est impossible.

A+


Bonjour,

J'ai un morceau d'une macro, avec des conditions, qui me permet d'afficher
des images
d'une feuille à l'autre :

If Range("a1").Value = 1 Then

Application.ScreenUpdating = False
Set Sh = Worksheets("fifi").Shapes("Image 1").Duplicate
Sh.CopyPicture

With Worksheets("loulou")
.Activate
.Paste
With .Range("a2:k50")
Selection.Top = .Top
Selection.Left = .Left
Selection.Height = .Height
Selection.Width = .Width
.Select
End With
End With

End If

Sh.Delete
Sheets(Nom).Select

Je voudrais stocker les images dans un autre classeur, et donc, les appeler
de ce nouveau classeur, sans l'ouvrir, pour les afficher toujours sur la
bonne feuille.

Que dois-je ajouter ou modifier ?

Merci






Avatar
anonymousA
Ah, au fait, tes problèmes peuvent peut-être résolus hors fichier Excel
si tu livres avec ton aplpi les fichiers images au format .gif ou autre
dans le même répertoire que celui dans lequel se situe ton programme.
Auquel cas, il suffit de faire de l'insertion/Image par programmation (
tu peux tester les instructions en faisant une macro automatique ), ce
qui ne nécessite plus d'avoir un fichier Excel à ouvrir et est du coup
extrêmement rapide.
A+


Ben, j'ai pas trop regardé ton code, mais pour ce que j'en ai vu ,une
fois qu'un fichier est ouvert , en faisant un peu de code, on y arrive
toujours.

A+


Ah ok, bon, et en l'ouvrant alors ?

Le but est de diminuer le "poids" du fichier, car il y a beaucoup de
photos dans le classeur, et donc, pour l'ouvrir, ça rame un peu...




Bonjour,

sans l'ouvrir, c'est impossible.

A+


Bonjour,

J'ai un morceau d'une macro, avec des conditions, qui me permet
d'afficher des images d'une feuille à l'autre :
If Range("a1").Value = 1 Then

Application.ScreenUpdating = False
Set Sh = Worksheets("fifi").Shapes("Image 1").Duplicate
Sh.CopyPicture

With Worksheets("loulou")
.Activate
.Paste
With .Range("a2:k50")
Selection.Top = .Top
Selection.Left = .Left
Selection.Height = .Height
Selection.Width = .Width
.Select
End With
End With

End If

Sh.Delete
Sheets(Nom).Select

Je voudrais stocker les images dans un autre classeur, et donc, les
appeler de ce nouveau classeur, sans l'ouvrir, pour les afficher
toujours sur la bonne feuille.

Que dois-je ajouter ou modifier ?

Merci








Avatar
JB
Bonjour,


Il est + simple de laisser les images externes et d'importer seulement
celles dont on à besoin.

http://www.excelabo.net/compteclic.php?nom=jb-shapes

JB
On 19 fév, 15:21, fifigim wrote:
Ah ok, bon, et en l'ouvrant alors ?

Le but est de diminuer le "poids" du fichier, car il y a beaucoup de phot os
dans le classeur, et donc, pour l'ouvrir, ça rame un peu...




Bonjour,

sans l'ouvrir, c'est impossible.

A+

Bonjour,

J'ai un morceau d'une macro, avec des conditions, qui me permet d'aff icher
des images
d'une feuille à l'autre :

If Range("a1").Value = 1 Then

Application.ScreenUpdating = False
Set Sh = Worksheets("fifi").Shapes("Image 1").Duplicate
Sh.CopyPicture

With Worksheets("loulou")
.Activate
.Paste
With .Range("a2:k50")
Selection.Top = .Top
Selection.Left = .Left
Selection.Height = .Height
Selection.Width = .Width
.Select
End With
End With

End If

Sh.Delete
Sheets(Nom).Select

Je voudrais stocker les images dans un autre classeur, et donc, les a ppeler
de ce nouveau classeur, sans l'ouvrir, pour les afficher toujours sur la
bonne feuille.

Que dois-je ajouter ou modifier ?

Merci- Masquer le texte des messages précédents -



- Afficher le texte des messages précédents -




Avatar
fifigim
Bonjour, et merci.

Le site ne fonctionne pas.

Cependant, est-il possible d'afficher des images regroupées dans un dossier,
et pas forcement dans un fichier Excel ?



Bonjour,


Il est + simple de laisser les images externes et d'importer seulement
celles dont on à besoin.

http://www.excelabo.net/compteclic.php?nom=jb-shapes

JB
On 19 fév, 15:21, fifigim wrote:
Ah ok, bon, et en l'ouvrant alors ?

Le but est de diminuer le "poids" du fichier, car il y a beaucoup de photos
dans le classeur, et donc, pour l'ouvrir, ça rame un peu...




Bonjour,

sans l'ouvrir, c'est impossible.

A+

Bonjour,

J'ai un morceau d'une macro, avec des conditions, qui me permet d'afficher
des images
d'une feuille à l'autre :

If Range("a1").Value = 1 Then

Application.ScreenUpdating = False
Set Sh = Worksheets("fifi").Shapes("Image 1").Duplicate
Sh.CopyPicture

With Worksheets("loulou")
.Activate
.Paste
With .Range("a2:k50")
Selection.Top = .Top
Selection.Left = .Left
Selection.Height = .Height
Selection.Width = .Width
.Select
End With
End With

End If

Sh.Delete
Sheets(Nom).Select

Je voudrais stocker les images dans un autre classeur, et donc, les appeler
de ce nouveau classeur, sans l'ouvrir, pour les afficher toujours sur la
bonne feuille.

Que dois-je ajouter ou modifier ?

Merci- Masquer le texte des messages précédents -



- Afficher le texte des messages précédents -









Avatar
JB
Bonjour,

http://boisgontierj.free.fr/fichiers/jb-shapes.zip
http://boisgontierj.free.fr/fichiers/jb-images.zip

JB

On 20 fév, 08:46, fifigim wrote:
Bonjour, et merci.

Le site ne fonctionne pas.

Cependant, est-il possible d'afficher des images regroupées dans un dos sier,
et pas forcement dans un fichier Excel ?




Bonjour,

Il est + simple de laisser les images externes et d'importer seulement
celles dont on à besoin.

http://www.excelabo.net/compteclic.php?nom=jb-shapes

JB
On 19 fév, 15:21, fifigim wrote:
Ah ok, bon, et en l'ouvrant alors ?

Le but est de diminuer le "poids" du fichier, car il y a beaucoup de photos
dans le classeur, et donc, pour l'ouvrir, ça rame un peu...




Bonjour,

sans l'ouvrir, c'est impossible.

A+

Bonjour,

J'ai un morceau d'une macro, avec des conditions, qui me permet d 'afficher
des images
d'une feuille à l'autre :

If Range("a1").Value = 1 Then

Application.ScreenUpdating = False
Set Sh = Worksheets("fifi").Shapes("Image 1").Duplicate
Sh.CopyPicture

With Worksheets("loulou")
.Activate
.Paste
With .Range("a2:k50")
Selection.Top = .Top
Selection.Left = .Left
Selection.Height = .Height
Selection.Width = .Width
.Select
End With
End With

End If

Sh.Delete
Sheets(Nom).Select

Je voudrais stocker les images dans un autre classeur, et donc, l es appeler
de ce nouveau classeur, sans l'ouvrir, pour les afficher toujours sur la
bonne feuille.

Que dois-je ajouter ou modifier ?

Merci- Masquer le texte des messages précédents -



- Afficher le texte des messages précédents -- Masquer le texte d es messages précédents -



- Afficher le texte des messages précédents -