XL 2010 récupérér nom photo

[laplayast]

bonjour,

Je reviens après une longue absence, et je retrouve votre site avec plaisir. Je travaille sur un fichier que j'ai récupéré et qui me convient en parti, et pour cela j'ai besoin de votre aide.
Je souhaiterai récupérer le nom de la photo en même temps que celle-ci et l'ajouter sur la ligne du dessus.
Je n'ai pas assez de connaissances, et je demande votre aide.

Merci.

 

[Staple1600]

Bonsoir le fil, le forum

@laplayast
Quand on lit le code VBA du fichier joint, on peut remarquer ceci
Sheets("Data")
(à plusieurs endroits dans le code)
Or sauf erreur de ma part, nulle trace de feuille nommée Data dans ce fichier Excel...

NB: Avec présence d'une feuille Date, il y a déjà cette ligne de code qui fait ce que tu souhaites
Sheets("Data").Cells(Lig, 1) = f1.ParentFolder & "\" & f1.Name

 

[laplayast]

Bonsoir,
Ok je comprend bien, sauf quand on fait le traitement du fichier il ne récupéré que le s photos. Il y a un autre élément de mon point de vue qui ne fonctionne pas ou mal.
Merci de votre aide

 

[Staple1600]

Re

Tu as testé en ajoutant une feuille Data dans ton classeur de test ?

 

[laplayast]

Re

C'est quoi une feuille data?
Merci

 

[Lone-wolf]

Re Jean Marie, bonsoir laplayast


@laplayast: tu rajoute une feuille en la nommant Data, c'est tout simple.

 

[laplayast]

Merci,

Impossible de créer la feuille en tant que tel, elle existe en feuille cachée dans le dossier visual Basic racine. Je n'ai pas plus d'idée et je reviens ver vous.
merci

 

[Staple1600]

Re

Exact, avec cette chaleur ceci m'avait échappé
(dans le code de la feuille)

 'Voir si la feuille Data existe
    For i = 1 To Sheets.Count
        If Sheets(i).Name = "Data" Then Exit For
    Next
    If i > Sheets.Count Then
        If MsgBox("La feuille Data n'existe pas" & Chr(10) & _
        "Faut-il la créer ? ", vbQuestion + vbYesNo, "Feuille données") = 6 Then
            Sheets.Add After:=Sheets(Sheets.Count)
            With ActiveSheet
                .Name = "Data"
                .Visible = False
            End With
        Else
            Exit Sub
        End If
    End If

Désolé

EDITION:
[private joke]
Lone-Wolf, moi aussi j'ai des problèmes de vision (lol)
[/private joke]

 

[laplayast]

Bonsoir,

Quelle suite je donne avec votre aide, au blocage de l'affichage du nom de la photo.

Merci.

 

[Staple1600]

Re

Les noms sont sur la feuille Data
Il suffit de rendre celle-ci visible pour les lire non ?

 

[laplayast]

Re

Pas tout à fait, le nom récupéré " Picture 1 et ainsi de suite" ne correspond pas au véritable nom. Comment faire ?
Merci

 

[Staple1600]

Re

Le véritable nom est en colonne A.

 

[laplayast]

OK, merci pour l'info, mais comment je le lis à chaque image de la feuille images.

Merci.

 

[Staple1600]

Re

Modifie comme suit la fin (en gardant le reste identique) de la macro insere_image_ratio

        'Ajouter les images en commentaires
        For Lig = LigneUN To Sheets("Data").Range("A65536").End(xlUp).Row
            Ad = Sheets("Data").Cells(Lig, 3).Value
            FeuilDesti.Range(Ad).Select
            With Selection
            .AddComment
            .Comment.Visible = True
'modif Staple
            .Comment.Text Text:=VBA.Dir(Sheets("Data").Cells(Lig, 1).Text)
'            .Comment.Shape.Select True
'            .Comment.Shape.Height = Sheets("Data").Cells(Lig, 5).Value * Zoom 'hauteur
'            .Comment.Shape.Width = Sheets("Data").Cells(Lig, 4).Value * Zoom ' largeur
'            Selection.ShapeRange.LockAspectRatio = msoFalse
'            Selection.ShapeRange.Fill.UserPicture Sheets("Data").Cells(Lig, 1).Value
'            .Comment.Visible = False
' fin modif Staple
            End With
        Next Lig
        Application.DisplayCommentIndicator = xlCommentIndicatorOnly
    End If
End Sub

C'est juste une début de piste

 

[laplayast]

Bonsoir,
L'ajout de la ligne:
.Comment.Text Text:=VBA.Dir(Sheets("Data").Cells(Lig, 1).Text)
Ne donne aucun résultat. Il ne récupére pas le nom.
Merci