Renommer photos

Bonjour , j'ai concu le bout de code suivant , il marche parfaitement en mode "pas à pas" seulement lorsque je passe à l’exécution

normale via un bouton de formulaire l'importation de la photo à modifier vers ma feuille active ne se fait plus , après avoir cherché je n'en vois pas la cause c'est un peu comme si le temps d’exécution nécessaire à l'importation de la photo ne se fait plus en mode normale car la machine " ne trouve pas le temps" d'effectuer cette opération dans le déroulement rapide des lignes de codes "

voici le code que j'ai ecris :

Sub RENOMMER_PHOTO()
Dim FSO As Object
Set FSO = CreateObject("scripting.filesystemobject")
Dim pic As Variant

  chemin = "C:\Users\flight\Pictures\PHOTOS EN COMMUN"
    Set Image = FSO.getfolder(chemin).Files
      For Each Image In Image

          Set zone_affectation = ActiveSheet.Range("a1:g20")
              pic = Image
              DoEvents
              ActiveSheet.Pictures.Insert (pic)  ' [b]cette ligne ne s’exécute bien en mode "pas à pas" mais pas en mode normal [/b]
              With ActiveSheet.Shapes(ActiveSheet.Shapes.Count)
               .Left = zone_affectation.Left
               .Top = zone_affectation.Top
               .Width = zone_affectation.Width
               .Height = zone_affectation.Height
              End With

                MsgBox "Il s'agit de l'image nommée :" & FSO.Getfilename(Image)
                souhait = MsgBox("Veux tu changer le nom de cette photo", vbYesNo)
                  If souhait = vbYes Then
                     ancien_nom = Image
                     nouveau_nom = chemin & "\" & InputBox("Saisir le nouveau nom") & "." & FSO.GetExtensionName(Image)
                     Name ancien_nom As nouveau_nom
                     ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Delete
                     MsgBox "Changements effectués"
                         Else
                    MsgBox "Parfait, alors photo suivante!"
                    ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Delete
                  End If
      Next
  End Sub

En verriez vous la cause ? Merci pour votre expertise

purrée je viens de trouver .... 2s de reflexion et la solution apparait par magie

tout simplement le Application.screenupdating = true en debut de code Merci quand meme !

Rechercher des sujets similaires à "renommer photos"