Macro ne fonctionne plus sur Win 11

Bonjour,

J'ai besoin d'aide.
J'ai créer des macros pour mes collègues et moi même qui fonctionne très bien.

A l'arrivé d'un nouveau collaborateur, je lui est transmis la macro personnalisé pour lui (nom dans la signature et image de signature avec ses initial).

Ça bug quand il faut insérer l'image, alors que ça fonctionne chez les autres.

Voila la ligne qui bug.

Seul différence en lui et nous c'est le système Windows. nous somme en 10 et lui en 11.

Est ce qu'il y a un paramétrage a faire pour régler ce problème?

Merci d'avance pour votre aide

Bonjour Florent6744

Avoir la ligne ou sa bug, c'est bien, mais il nous faudrait également le message

Je suppose que le dossier "C:\01_Macro MAI" est bien créé et que le fichier "Signature MBR.png" existe bien

A+

Oui tout est bon dans le dossier.

Je vois avec mon collegue pour qu'il prenne une capture d'écran.

Bonjour, un nouveau windows par défaut n'affiche pas les extensions de fichiers.

IL est donc aussi possible que votre collègue pensant renommer son image "Signature MBR.png" l'a en réalité appelé

"Signature MBR.png.png"

A vérifier dans l'explorateur si l'affichage des extensions est coché et si nom de l'image correcte ?

Bonjour,

Voici le message que cela me mets pour le bug.

Merci X-men pour l'info, je vais regarder ca avec le collegue.

Bonjour Florent6744, Xmenpl

Pour moi ce code à un sérieux souci, c'est qu'il créé un lien (invisible) vers l'image
pour vérifier, renommez l'image et réouvrez votre fichier

Il vaut mieux utiliser, je pense, le code ci-dessous qui potentiellement peut régler le bug (à voir)
Je vous ai mis l'ensemble des lignes que j'utilise parfois, à vous de supprimer ce dont vous n'avez pas besoin

Sub AffImage()
  Dim sPathFic As String
  Dim MonImage As Shape
  Dim Cel As Range
  ' Chemin et nom du fichier
  sPathFic = "D:\Users\PetitDou\Pictures\Coupe de Champagne Leonardo.png"
  ' Ajouter l'image dans la feuille active
  Set MonImage = ActiveSheet.Shapes.AddPicture(sPathFic, False, True, 0, 0, -1, -1) ' Ajout de l'image
  ' Définir la cellule qui devra contenir l'image
  Set Cel = ActiveSheet.Range("A1")
  ' Conserver les proportions
  MonImage.LockAspectRatio = msoTrue
  ' hauteur de l'image
  MonImage.Height = 240
  ' La faire tenir dans la cellule
  If MonImage.Width > Cel.Width Then
    MonImage.Width = Cel.Width - 4
  End If
  If MonImage.Width < Cel.Width Then
    MonImage.Left = Cel.Left + _
      (Cel.Width - MonImage.Width) / 2
  Else
    MonImage.Left = Cel.Left + 2
  End If
  MonImage.Top = Cel.Top + (Cel.Height - MonImage.Height) / 2 'et positionner verticalement
  MonImage.Placement = xlMoveAndSize
End Sub

A+

Bonjour à tous,

Merci X-Menpl le probleme venait bien de l'extention caché et du coup l'image s'appelait .png.png.

Merci pour votre aide.

Probleme réglé

.