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
|
Sub ChargeTrombinoscope()
Dim Chemin As String, Fichier As String
Dim Nom, Prénom As String
Dim splitArr() As String
Dim Ligne As Integer
Worksheets("Pix").Activate
'Définit le répertoire contenant les fichiers
Chemin = "C:\test-20160928\MyPH\"
'Boucle sur tous les fichiers du répertoire (photos).
Ligne = 3
Fichier = Dir(Chemin & "*")
Do While Len(Fichier) > 0
'Extraction prénom
splitArr = Split(Fichier, ".")
Prénom = splitArr(0)
Range("H" & Ligne).Value = Prénom
'insertion de la photo dans la colonne C
Largeur = ActiveSheet.Cells(Ligne, 11).Width
Hauteur = ActiveSheet.Cells(Ligne, 11).Height
GaucheI = ActiveSheet.Cells(Ligne, 11).Left
HautI = ActiveSheet.Cells(Ligne, 11).Top
ActiveSheet.Shapes.AddPicture Chemin & Fichier, False, True, GaucheI, HautI, Largeur, Hauteur
'Fichier suivant
Fichier = Dir()
Ligne = Ligne + 1
Loop
End Sub |
Partager