Discussion :

[big1]

Bonsoir,
Quand j'exécute le code suivant je reçois le message d'erreur "Boucle sans Do":

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Sub Buffer_Cache()
Dim intFile As Integer
Dim strFile As String
Dim strIn As String
Dim strOut As String
Dim MyStr1 As String
  strOut = vbNullString
  intFile = FreeFile()
  strFile = "D:\oracle\STATPACK\*.lst"
  Open strFile For Input As #intFile
  Do While Not EOF(intFile)
    Line Input #intFile, strIn
    If Left(strIn, 12) = "Buffer Cache" Then
      strOut = Mid(strIn, 8)
      booFound = True
      Exit Do
  Loop

  Close #intFile

  If Len(strOut) > 0 Then
    MsgBox "Your Data is " & strOut
  Else
    MsgBox "Buffer Cache Not Found"
  End If
End Sub

Je ne comprends pas.
Merci pour votre aide.

[f-leb]

Bonsoir,

avant le loop, il manque un end if.

[big1]

Merci.
Ça a marché en ajoutant END IF.