Discussion :

[SuperKikinou]

Bonjour à tous,

Je suis un petit nouveau dans le VBA, veuillez m'excusez par avances.

J'ai quelques petit soucis sur la récupération d'information. J'ai inséré un image sur une feuille de mon classeur grace a une boite de dialogue mais je n'arrive ni a récupéré le nom du fichier, ni son chemin une fois celle ci inséré.

Pourriez vous m'aider svp.

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Sub Insert_image()
 
    Dim Emplacement As Range
    Dim Img As Object
    'Dim Repertoire As FileDialog'
    Dim ShapeObj As Shape
    Dim Nom_img As String
    Dim Chemin_img As String
 
    'Boucle pour supprimer l'ancienne image
    For Each ShapeObj In ActiveSheet.Shapes
    If ShapeObj.Name = "ImageActive" Then ActiveSheet.Shapes("ImageActive").Delete
    Next ShapeObj
 
        'Ouverture de la boite de dialogue'
        If Application.Dialogs(xlDialogInsertPicture).Show Then
 
        'Définit l'emplacement de l'image
        Set Emplacement = Range("F2:M25")
        Set Img = ActiveSheet.DrawingObjects(ActiveSheet.Shapes.Count)
 
        'Récupération du nom de l'image
        Nom_img = Img.Name
 
        'Récupération du chemin
        Chem_img = Img.Path
 
        With Img.ShapeRange
            .LockAspectRatio = msoFalse
            .Left = Emplacement.Left
            .Top = Emplacement.Top
            .Height = Emplacement.Height
            .Width = Emplacement.Width
        End With
 
        MsgBox "Insertion d'image effectué - Image insertion performed."
    Else
        MsgBox "Insertion d'image interrompue / Interrupted image insertion."
 
    End If

[Menhir]

Si c'est une insertion classique, c'est comme un clonage : la copie ne garde pas la mémoire du fichier qui l'a créée.

Essaye éventuellement de chercher du côté de la propriété LinkFormat ou OLEFormat de Shape.
https://msdn.microsoft.com/fr-fr/vba...property-excel
https://msdn.microsoft.com/fr-fr/vba...property-excel

[unparia]

Bonjour
Une image insérée est conservée sous la forme d'un tableau de dibits et non d'un chemin d'accès.
Et d'ailleurs, une fois insérée et conservée : on pourrait supprimer carrément le fichier ayant été utilisé --->> l'image sera toujours là.

[patricktoulon]

sert toi d'un autre dialogue et de picture.insert
un peu comme cici

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
Sub Insert_image()
    Dim shap, Nom_img As String, Chemin_img As String
    fileToOpen = Application.GetOpenFilename("Image Files (*.jpg), *.jpg"): If fileToOpen = False Then Exit Sub
    Nom_img = Mid(fileToOpen, InStrRev(fileToOpen, "\") + 1, Len(fileToOpen))
    Chemin_img = Replace(fileToOpen, Nom_img, "")
    ms = "nom de l'image :" & Nom_img & vbCrLf
    ms = ms & "dossier  de l'image :" & Chemin_img & vbCrLf
    ActiveSheet.Pictures.Insert (fileToOpen)
    Set shap = ActiveSheet.Shapes(ActiveSheet.Shapes.Count)
    ms = ms & "sur le sheets l'image s'appelle :" & shap.Name & vbCrLf
    ms = ms & " sa position topleft approximative est :" & shap.TopLeftCell.Address & vbCrLf
    ms = ms & "sont top est :" & shap.Top & vbCrLf
    ms = ms & "sont left est :" & shap.Left & vbCrLf
    ms = ms & "sont width est :" & shap.Width & vbCrLf
    ms = ms & "sont height est :" & shap.Height & vbCrLf
    MsgBox ms
End Sub

[SuperKikinou]

Tout d'abord, merci à tous pour vos réponses.

J'ai repris et modifier ton code patricktoulon. J'avais déja tenté l'utilisation du GetOpenFile avec AddPicture mais sns y parvenire.
Un peu de mal a bien suivre ta méthode pour le Nom_img... Mais ca fonctionn correctement.

Merci à tous .

[patricktoulon]

re
c'est simple pour le nom de l'image
instrRev te donne l index de la position du caractere en parametre avec mid tu a ce que tu veux
len te donne le nombre de caracteres
exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
chaine="membre du forum\SuperKikinou"
index =instrRev(chaine,"\")+1
msgbox mid(chaine,index,len(chaine))' te donnera SuperKikinou