Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

francha62

XLDnaute Nouveau
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 !

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
 
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…