XL 2010 récupérér nom photo

Staple1600

XLDnaute Barbatruc

• 4 Juillet 2018

• #2

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

 

Vote positif 0 Vote négatif

L

laplayast

XLDnaute Occasionnel

• 4 Juillet 2018

• #3

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 4 Juillet 2018

• #4

Re

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

 

Vote positif 0 Vote négatif

L

laplayast

XLDnaute Occasionnel

• 4 Juillet 2018

• #5

Re

C'est quoi une feuille data?
Merci

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 4 Juillet 2018

• #6

Re Jean Marie, bonsoir laplayast


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

 

Vote positif 0 Vote négatif

L

laplayast

XLDnaute Occasionnel

• 4 Juillet 2018

• #7

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 4 Juillet 2018

• #8

Re

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

VB:

 '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]

 

Vote positif 0 Vote négatif

L

laplayast

XLDnaute Occasionnel

• 4 Juillet 2018

• #9

Bonsoir,

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

Merci.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 4 Juillet 2018

• #10

Re

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

 

Vote positif 0 Vote négatif

L

laplayast

XLDnaute Occasionnel

• 4 Juillet 2018

• #11

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 4 Juillet 2018

• #12

Re

Le véritable nom est en colonne A.

 

Vote positif 0 Vote négatif

L

laplayast

XLDnaute Occasionnel

• 4 Juillet 2018

• #13

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

Merci.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 4 Juillet 2018

• #14

Re

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

VB:

        '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

 

Vote positif 0 Vote négatif

L

laplayast

XLDnaute Occasionnel

• 4 Juillet 2018

• #15

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

 

Vote positif 0 Vote négatif