Utiliser un classeur pour stocker des images, et les afficher aill
7 réponses
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.
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
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
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.
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
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
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.
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
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
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.
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
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
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.
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
JB
Bonjour,
Il est + simple de laisser les images externes et d'importer seulement celles dont on à besoin.
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 -
Bonjour,
Il est + simple de laisser les images externes et d'importer seulement
celles dont on à besoin.
JB
On 19 fév, 15:21, fifigim <fifi...@discussions.microsoft.com> 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.
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 -
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.
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 -
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.
JB
On 19 fév, 15:21, fifigim <fifi...@discussions.microsoft.com> 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.
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.
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 -
JB
On 19 fév, 15:21, fifigim <fifi...@discussions.microsoft.com> 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 -
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 -