Application.Dialogs(xlDialogInsertPicture).Show ne fonctionne plus

Question

Bonjour,

Depuis ce matin plusieurs utilisateurs (différents PC dans différents pays, donc probablement avec des versions d'Excel différentes aussi) me remontent un problème sur un fichier qui marche bien depuis des mois et des mois.

Voici le code en question :

[debut]
  Sub insert_picture()   Dim Emplacement As Range Dim Img As Object Dim ShapeObj As Shape   For Each ShapeObj In ActiveSheet.Shapes If ShapeObj.Name = "Rivet_picture" Then ActiveSheet.Shapes("Rivet_picture").Delete Next ShapeObj   Largeur_cadre = 817 'pixels Hauteur_cadre = 526 'pixels   If Application.Dialogs(xlDialogInsertPicture).Show() Then   Set Emplacement = Range("B7")   Set Img = ActiveSheet.DrawingObjects(ActiveSheet.Shapes.Count)   With Img.ShapeRange .Name = "Rivet_picture" .LockAspectRatio = msoTrue .Left = Emplacement.Left .Top = Emplacement.Top .Height = Hauteur_cadre   If .Width > Largeur_cadre Then .Width = Largeur_cadre End If   .ZOrder msoSendToBack   'On enregistre les valeurs hauteur, largeur, top et left H_picture = .Height W_picture = .Width Top_picture = .Top Left_picture = .Left   End With   Else MsgBox "Insertion of picture interrupted" End If   End Sub

[fin]

Et la description du problème :

Quand la boite de dialogue s'ouvre pour insérer l'image et que je clique sur 'Parcourir' rien ne se passe :

Est-ce que quelqu'un a déjà rencontré ce problème, svp ? Je cherche depuis ce matin sans succès !

Merci d'avance.

Answer 1

Merci ! J'avais en effet oublié de préciser mais en attendant de trouver mieux on applique la solution de contournement expliquée dans le lien.

Mais j'aimerais avoir une solution plus pérenne et savoir si ce bug n'est que temporaire ou bien permanent !

Answer 2

Voir peut-être cet autre échange (et la solution de contournement)...