Re : Insertion image jpg a partir d'une reference
C'est reMoi!
Voilà ce que j'ai "en boutique" comme code que j'ai repris dans tes
posts (<<<Tatiak).
Sub Catalogue()
Dim derligne As Integer, i As Integer
Dim chemin As String
Dim tatiak As Object
Dim Col As Byte
Dim FeuilleMericc As String
FeuilleMericc = "Feuil1" ' traitement dans l'onglet nommé Feuil1
Col = 4 ' affichage des photos en colonne E (5ème colonne)
For Each tatiak In Sheets(FeuilleMericc).Shapes
If tatiak.Name <> "Bouton" Then tatiak.Delete
Next tatiak
derligne = Range(FeuilleMericc & "!A65536").End(xlUp).Row
For i = 2 To derligne
With Sheets(FeuilleMericc).Range("A" & i)
If Not .Value = "" Then 'gestion cellule vide
chemin = ActiveWorkbook.Path & "\" & .Text & ".gif"
' si le gif n'existe pas, test de l'existence d'un jpg :
If Not ExisteGIF(chemin) Then chemin = ActiveWorkbook.Path & "\" & .Text & ".JPG"
' si le jpg n'existe pas, test de l'existence d'un bitmap :
If Not ExisteGIF(chemin) Then chemin = ActiveWorkbook.Path & "\" & .Text & ".BMP"
' s'il existe un jgp ou un gif on l'importe :
If ExisteGIF(chemin) Then
Set tatiak = Sheets(FeuilleMericc).Pictures.Insert(chemin)
tatiak.Left = .Offset(0, 1).Left '+ (.Offset(0, 2).Left - .Offset(0, 1).Left - tatiak.Width) / 2
tatiak.Top = .Top '+ (.Offset(1, 0).Top - .Top - tatiak.Height) / 2
tatiak.Width = .Offset(0, 1).Width
tatiak.Height = .Offset(0, 1).Height
End If
End If
End With
Next i
End Sub
Public Function ExisteGIF(Image As String) As Boolean
Dim Mericc As Object
Set Mericc = CreateObject("Scripting.FileSystemObject")
ExisteGIF = Mericc.FileExists(Image)
End Function
Pour les tailles photos, ca y est, c est bon.
Par contre, je comprends pas, les photos apparaissent toujours
dans la colonne B et non pas la E????
Et là, le dernier problème, rien à voir avec ta programmation,
quand j affecte ta macro à un bouton, juste après avoir cliqué
sur le bouton et lorsque la macro a terminé son travail...le
bouton de la macro a .............. disparu??
c est "kouillon", je l avoue, mais bon "supernewbie" est de
retour! LOL
Voilà mes dernières interrogations du jour!
Merciiiiiii encore pour les réponses attendues comme le "messie"
(mais si, mais si!
)
Eric
ps: franchement, c est vraiment du sacré beau boulot ca..
le site devrait faire un chti concours pour élire par exemple
les 3 meilleures solutions trouvées ....du mois...