Discussion :

[N_icolas]

Bonjour à tous,

Je suis nouveau sur le forum, et j'ai besoin de votre aide. Dans le cadre de mon travail, je dois réaliser une base de données extraites de quelques milliers de fichiers Excel. Jusque la pas de soucis, sauf lorsque je me suis penché sur l'importation des images contenues dans ces fichiers.

Le plus gros problème étant que je ne connais pas le nom de ces images, que je ne sait pas toujours s'il y a une image dans ces fichier, et que je dois chercher ces images sur un plage de cellules bien particulière...



Merci d'avance pour vos réponse !

[Menhir]

Je ne comprends pas pourquoi tu parles de classeur "fermé" dans ton titre puisque tu ouvres le classeur dans ta macro de façon classique.

je me suis penché sur l'importation des images contenues dans ces fichiers.
Le plus gros problème étant que je ne connais pas le nom de ces images, que je ne sait pas toujours s'il y a une image dans ces fichier, et que je dois chercher ces images sur un plage de cellules bien particulière...

Petite remarque liminaire non constructive : mon gars, tu es dans de sales draps.
Ton truc, ça va pas être simple.

A ta place, je commencerai par faire, pour le fichier courant, un bilan des images contenues dans le fichier et par mettre leur noms et propriétés dans des variables.
Un truc du style :

Code :

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

1
2
3
4
5
6
7
8
9
Dim ImgNb As Long
Dim Img(1000) As String
Dim ImgCur As Picture
 
ImgNb = 0
For Each ImgCur In ActiveSheet.Pictures
    ImgNb = ImgNb + 1
    Img(ImbNb) = ImgCur.Name
Next ImgCur

Avec ça, tu aurais déjà la liste de toutes les images avec leurs noms et leur nombre (donc la présence ou non d'image dans la feuille).

Bien sûr, en fonction de ce que tu veux faire, il faudrait récupérer d'autres informations pour les identifier plus précisément.
Je pense (sans certitude) que les propriété de Picture doivent être à peu près les mêmes que celles de Shape.
https://msdn.microsoft.com/fr-fr/vba...e-object-excel
A toi de fouiller dedans.

[N_icolas]

Merci Menhir pour ta réponse rapide !
En effet ce n'est pas simple, surtout que je ne connais pas beaucoup de choses sur les propriétés shape. Je vais creuser un peu plus la dessus avec ton lien !

[N_icolas]

Bon finalement j'ai opté pour une solution beaucoup plus radical :
Je copie la plage de cellule qui m'interreseur dans le classeur, et je le colle dans la base de données.
Ce n'est pas ultra propre mais ca conviendra.

Je laisse le code si quelqu'un est intéressé

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
 
Sub importPicture(MyFile As String, MyPath As String, Curr_Row As Long, name_IDS_sheet As String, cutArea As String, rowHeight As Double)
 
Dim title  As String
title = MyPath & MyFile 'path
 
Workbooks.Open title    'Open wb where images are
 
    Windows(MyFile).Activate        'We activate this ids workbook (just to be sure)
    Sheets(name_IDS_sheet).Select   'go to injection sheet of the ids
 
    Range(cutArea).Select       'we select the range where images are
    Application.CutCopyMode = False
    Selection.Copy                  'cut the range (AND SO THE IMAGES)
 
 
    Windows("Database de travail3.xlsm").Activate   'Go back to database
    Sheets("PictureEssai").Select                   'The sheet where we past the range
    Range("A" & Curr_Row).Select                   'Cell where we past
 
    ActiveSheet.Paste           'Past
 
Application.DisplayAlerts = False   'to close without pop up to save
    Windows(MyFile).Close     'Closing workbook
Application.DisplayAlerts = True
 
End Sub