lionelserra
XLDnaute Nouveau
Bonjour,
j'ai une macro pour inserer automatiquement des photos dans mes fichiers excel, mais de temps en temps il m'apparait une erreur qui empêche la macro de se faire. Je pense que c'est parce que je met un titre sur l'onglet du fichier excel et la macro ne reconnait pas le titre. Comment puis-je changer la macro pour qu'elle reconnaise n'importe quel titre d'onglet.
Merci bcp
Macro:
Sub ImportImages()
' Prevent screen flashing while drawing calendar.
Application.ScreenUpdating = False
répertoirePhoto = "C:\Users\lserra\Pictures\_Fotos Hamilton\_Relojes\"
For Each c In [a2:k5000]
nf = répertoirePhoto & c & ".jpg"
If Dir(nf) <> "" Then
Set img = ActiveSheet.Pictures.Insert(nf)
img.Left = c.Offset(, 1).Left
img.Top = c.Offset(, 1).Top
c.EntireRow.RowHeight = img.Height
End If
Next
End Sub
Message d'erreur (en español mais je pense qu'il n'y aura pas de problème de comprehension !!)
j'ai une macro pour inserer automatiquement des photos dans mes fichiers excel, mais de temps en temps il m'apparait une erreur qui empêche la macro de se faire. Je pense que c'est parce que je met un titre sur l'onglet du fichier excel et la macro ne reconnait pas le titre. Comment puis-je changer la macro pour qu'elle reconnaise n'importe quel titre d'onglet.
Merci bcp
Macro:
Sub ImportImages()
' Prevent screen flashing while drawing calendar.
Application.ScreenUpdating = False
répertoirePhoto = "C:\Users\lserra\Pictures\_Fotos Hamilton\_Relojes\"
For Each c In [a2:k5000]
nf = répertoirePhoto & c & ".jpg"
If Dir(nf) <> "" Then
Set img = ActiveSheet.Pictures.Insert(nf)
img.Left = c.Offset(, 1).Left
img.Top = c.Offset(, 1).Top
c.EntireRow.RowHeight = img.Height
End If
Next
End Sub
Message d'erreur (en español mais je pense qu'il n'y aura pas de problème de comprehension !!)