Copier image.

Le
Guy85
Bonjour,
Avec 2 fichiers, on peut faire les liaisons par exemple :
A1 du Classeur2 = F4 du Classeur1 en texte ça fonctionne.
Mais à la place du texte j'ai une image.
Donc est-il possible de faire la liaison avec une image ?
Merci de votre aide.
--
Cordialement
Guy
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Guy85
Le #21078951
Ou alors, est-il possible de modifier ce code pour avoir l'image suivante
avec une cellule de décalage ?
Ci-joint : http://www.cijoint.fr/cjlink.php?file=cj201001/cijDZnCi8z.xls

Private Sub Worksheet_Change(ByVal Target As Range)
Dim ResAdr As String
If Target.Row <> 3 Then Exit Sub
Application.EnableEvents = False
image = Application.Index([A20:A29], Application.Match(Target, [A20:A29],
0), 1)
If Target.Column = 10 Then
For i = 5 To 37
On Error Resume Next
Set Sh = ActiveSheet.Shapes(Cells(i, 10).Address(0, 0))
If Err.Number <> 0 Then
Err.Clear
ActiveSheet.Shapes.Range(image).Select
Selection.Copy
Cells(i, 10).Select
ActiveSheet.Paste
Selection.ShapeRange.Name = (Cells(i, 10).Address(0, 0))
On Error GoTo 0
Exit For
End If
Next i
With ActiveSheet.Shapes(Cells(i, 10).Address(0, 0))
.Left = Cells(i, 10).Left
.Top = Cells(i, 10).Top
End With
End If
.....................
Application.EnableEvents = True
End Sub
Merci de votre aide
Cordialement
Guy

"Guy85"
Bonjour,
Avec 2 fichiers, on peut faire les liaisons par exemple :
A1 du Classeur2 = F4 du Classeur1 en texte ça fonctionne.
Mais à la place du texte j'ai une image.
Donc est-il possible de faire la liaison avec une image ?
Merci de votre aide.
--
Cordialement
Guy



FdeCourt
Le #21080341
Salut,

Essayes en ajoutant Step 2 après le For i = 5 to 37
(sur la meme ligne, exemple : "For i = 5 To 37 Step 2")

Cordialement,

F.
Guy85
Le #21080551
Bonjour,
Impeccable, c'est bon.
Merci de ton aide
Cordialement
Guy

"FdeCourt"
Salut,

Essayes en ajoutant Step 2 après le For i = 5 to 37
(sur la meme ligne, exemple : "For i = 5 To 37 Step 2")

Cordialement,

F.
Publicité
Poster une réponse
Anonyme