Bonjour,
Je m'arrache les cheveux avec une gestion d'erreur en If/Then/Else
J'aimerais que s'il ne trouve pas le fichier demandé, il passe à l'incrémentation suivante... or si je fais ça, j'ai une "Compile Error: Next Without For" alors que j'ai bien un For lié à ce Next...
Quelqu'un a-t-il des yeux et un cerveau que je n'ai plus?
Merci d'avance!
Salutations
Je m'arrache les cheveux avec une gestion d'erreur en If/Then/Else
J'aimerais que s'il ne trouve pas le fichier demandé, il passe à l'incrémentation suivante... or si je fais ça, j'ai une "Compile Error: Next Without For" alors que j'ai bien un For lié à ce Next...
Code:
Private Sub Test()
Dim sCopy As Variant
Set sCopy = ThisWorkbook.Sheets(14)
For i = 2 To sCopy.Cells(1, 17).Value
filenam = ThisWorkbook.Path & "\" & sCopy.Cells(i, 3) & ".jpg"
On Error Resume Next
sCopy.Pictures.Insert (filenam)
If Err.Number = 1004 Then
Next i
Else
'Reste du code ici
End If
Next i
End Sub
Quelqu'un a-t-il des yeux et un cerveau que je n'ai plus?
Merci d'avance!
Salutations