XL 2013 Problème gestion erreur dans boucle

yeti_yeti · 11 Juin 2018

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...

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

pierrejean · 11 Juin 2018

Bonjour

A tester:

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
'Reste du code ici
End If
Next i
End Sub

Dranreb · 11 Juin 2018

Bonjour pierrejean.
Il me semble qu'il faudrait soit un On Error GoTo 0 après, soit mettre le On Error Resume Next au début, mais un Err.Clear avant, sinon l'erreur va resté positionnée lors du traitement des suivants.

yeti_yeti · 11 Juin 2018

Bonjour,

Merci pour vos réponses. J'ai finalement réussi à faire ce que je voulais faire:

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 GoTo EH
        sCopy.Pictures.Insert (filenam)
       
           'Reste du code ici
           
EH:
    If Err Then
        Err.Clear
    End If
    Next i

End Sub

XL 2013 Problème gestion erreur dans boucle

yeti_yeti

XLDnaute Junior

pierrejean

XLDnaute Barbatruc

Dranreb

XLDnaute Barbatruc

yeti_yeti

XLDnaute Junior

Discussions similaires

XL 2013 Problème gestion erreur dans boucle

yeti_yeti

XLDnaute Junior

pierrejean

XLDnaute Barbatruc

Dranreb

XLDnaute Barbatruc

yeti_yeti

XLDnaute Junior

Discussions similaires

Privacy & Transparency

Privacy & Transparency