Dim i As Integer For i 0 To i 3 If InStr(Chemin, RefDossier(i)) > 0 Then RepertRef = RefDossiers(i) Else Next i End If Exit For
Dim i As Integer For i 0 To i 3 If InStr(Chemin, RefDossier(i)) > 0 Then RepertRef = RefDossiers(i) Else End If Next i Exit For
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionDim i As Integer For i 0 To i 3 If InStr(Chemin, RefDossier(i)) > 0 Then RepertRef = RefDossiers(i) Else Next i End If Exit For
Dim i As Integer For i 0 To i 3 If InStr(Chemin, RefDossier(i)) > 0 Then RepertRef = RefDossiers(i) Exit For 'ici Else Exit For 'ou ici End If Next i
Dim i As Integer For i = 0 To 3 If InStr(Chemin, RefDossier(i)) > 0 Then RepertRef = RefDossiers(i) Exit For 'ici Else Exit For 'ou ici End If Next i
aboutit à l'affichage d'une boîte de message vide.
RepertRef = RefDossiers(i) MsgBox (RepertRef)
MsgBox (RefDossiers(i))
Dim RepertRef As String