Bonjour,
J'ai une image (jpeg) sur la feuille 1 de mon classeur. Je souhaiterai la copier sur la feuille 2, cellule(2,2). Comment faire ?
Merci
Bonjour,
J'ai une image (jpeg) sur la feuille 1 de mon classeur. Je souhaiterai la copier sur la feuille 2, cellule(2,2). Comment faire ?
Merci
tiens un exemple :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23 Sub CopyImage() ' ' Bon le probléme c'est la sélection de l'image Dans fichier source... ' .. je prends la 1° Dim s As Shape Dim bOK As Boolean For Each s In Sheets("Feuil1").Shapes If s.Type = msoPicture Then bOK = True Exit For End If Next If bOK Then s.Copy Sheets("Feuil2").Activate Range("B2").Select ActiveSheet.Paste End If End Sub
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager