Microsoft 365 Changement de fonctionnement d'une macro suite au passage à windows 10

[francha62]

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 !

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

 

[francha62]

OUps ! erreur de ma part : en fait ça fonctionne toujours !