Bonjour à tous,
j'utilise la macro ci-dessous pour importer des photos en fonction des noms et prénoms dans un trombinoscope. Elle a toujours très bien fonctionner mais depuis que j'ai passé mon pc sous windows 10, elle ne semble plus fonctionner et je ne parviens pas à comprendre pourquoi.
Si quelqu'un a une idée je suis preneur
merci d'avance !
j'utilise la macro ci-dessous pour importer des photos en fonction des noms et prénoms dans un trombinoscope. Elle a toujours très bien fonctionner mais depuis que j'ai passé mon pc sous windows 10, elle ne semble plus fonctionner et je ne parviens pas à comprendre pourquoi.
Si quelqu'un a une idée je suis preneur
merci d'avance !
VB:
Sub Import_Photos_2()
Dim Chemin As String
Dim Cell As Range
Dim x As Integer
Dim Pic As Picture
Application.ScreenUpdating = False
With Application.FileDialog(msoFileDialogFolderPicker)
If .Show = -1 Then
Chemin = .SelectedItems(1)
Else
Exit Sub
End If
End With
Sheets("T1").Activate
For Each Cell In Range("A1,E1,I1,M1,Q1,A9,E9,I9,M9,Q9,A17,E17,I17,M17,Q17,A25,E25,I25,M25,Q25,A33,E33,I33,M33,Q33,A41,E41,I41,M41,Q41")
On Error Resume Next
Cell.Select
ActiveSheet.Shapes.AddPicture Filename:=(Chemin & "\" & ActiveCell.Offset(1, 0).Value) & ".jpg", linktofile:=msoFalse, savewithdocument:=msoTrue, Left:=Cell.Left, Top:=Cell.Top, Width:=(Cell.Height * 6) * 400 / 600, Height:=Cell.Height * 6
Next
For Each Pic In ActiveSheet.Pictures
Pic.Select
Selection.Placement = xlMoveAndSize
Next
End Sub