*Est-ce qu'il peut fermer / ouvrir un 2eme lecteur ?:

item = 1

*Est-ce qu'il peut fermer / ouvrir un 3eme lecteur ?:

item = 2 .....

-------------------------

Private Sub ejecter_Click()
Dim variable As Variant
Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMS = oWMP.cdromCollection
        colCDROMS.Item(1).Eject
variable = MsgBox("Cliquez sur OK lorsque que le cd est insérez", vbOKCancel)
If variable = 1 Then colCDROMS.Item(1).Eject
ejecter.Visible = False
End Sub

steve

Oeps :

Pour lire des fichiers sans boucles c'est encore plus facile comme ca :

Function ReadTxT(Chemin As String, Fichier As String) As String

    Open Chemin & Fichier For Input As #1
    
    ReadTxT = Input(LOF(1), #1)
    
    Close #1

End Function

Private Sub Lecture()
    
    Dim FileBuffer1 As String
    
    FileBuffer1 = ReadTxT("C:", "BootLog.txt")
    
End Sub

Pour lire des fichiers sans boucles c'est encore plus facile comme ca :

Function ReadTxT(Chemin As String, Fichier As String) As String

    Open Chemin & Fichier For Input As #1
    
    ReadTxT = Input(LOF(1), #1)
    
    Close #1

End Function

Private Sub Lecture()
    
    Dim FileBuffer1 As String
    
    FileBuffer1 = ReadTxT("C:", "BootLog.txt")
    
End Sub

Yo booster !

Pas mal le prog . Mais au lieu de faire

SendKeys "{TAB}" & "+{RIGHT}" & "+{RIGHT}" & "+{RIGHT}" & "+{RIGHT}" & "+{RIGHT}" & "+{RIGHT}" & "+{RIGHT}" & "+{RIGHT}" & "+{RIGHT}" & "+{RIGHT}" & "+{RIGHT}" & "+{RIGHT}" & "+{RIGHT}" & "+{RIGHT}" & "+{RIGHT}" & "+{RIGHT}" + "^{C}"

c'est peut-etre plus facile de faire

With lblColor
    .SelStart = 0
    .SelLength = Len(lblColor.Text)
    .SetFocus
End With

et au lieu de faire

Form3.Show => ici quand tu clique sur form1 tu vois plus form3 mais ca reste encore dans la mémoire

c'est mieux de faire
Form3.Show vbModal

Sorry pour les fautes d'orthographe, je suis encore en train d'apprendre la langue française.

Encore bon prog !

Je ne suis pas sur du SP . je ne pense pas qou j'ai fais un update . Ou est-ce-que je peux retrouver quelle SP est installer ? Quand meme, il le fait chez moi ;-)

chez moi il le fait => VB6

sauf lngStart -1 et lngEnd  -1 . Que 1 détail =>

Ca marche pas comme ca ?

Private Sub Command1_Click()
    
    MsgBox Mot("aa bb cc dd ee", 2, 3)
    
End Sub

Public Function Mot(str As String, lngStart As Long, Optional lngEnd As Long = 0)

    Dim Phrase() As String
    Dim Ret As String
    Dim PosMot As Integer
    
    Phrase = Split(str)
    If lngEnd = 0 Then lngEnd = UBound(Phrase)
    For PosMot = lngStart To lngEnd
        Ret = Ret & Phrase(PosMot) & " "
    Next
    Mot = Trim(Ret)
    
End Function

Pour dimensioner le variable Phrase dans le code de Warny :

Dim Phrase() As String

=> Ca utilese moins de mémoire que Dim Phrase <= Type Variant

C'es que un détail ;-)

stevebelgium

Salut Saros ,

Si tu as envie est si tu a le temps tu peux faire la traduction !
Je vais continuer en Anglais ...

After the translation I could do an update of the source . Maybe with a French and English version in 1 zip-file. I don't know if you only are going to translate the menu or also the the functions , variables , etc ?

Concerning the STOP . With Doevents we could interrupt the program but the problem with Doevents is that it does slow the program ! If you want to you could write the STOP yourself ? That way you could take a part of the program too . Just a suggestion.

Have a nice day ...

Steve

Yo , warny !

Cool ta fonction ! Encore plus facile :-) !

Yo , hexor !

Pas mal ton code mais j'ai fais la meme chose avec la function instr (Instring). Mais quand meme un bon effort.
J'ai ajouter ca aussi :
=> Optional lngEnd As Long = 0 'comme ca on est pas obliger de mettre le parametre

Sorry pour les fautes  d'orthographe . (Je suis encore en train d'apprendre la langue française).

Public Function Mot(str As String, lngStart As Long, Optional lngEnd As Long = 0)

    Dim temp_start, temp_end As Long
    Dim x As Integer
    
    temp_start = 1
    For x = 1 To lngStart - 1
        temp_start = InStr(temp_start + 1, str, " ")
    Next x
    
    temp_end = 1
    For x = 1 To lngEnd
        temp_end = InStr(temp_end + 1, str, " ") + 1
    Next x

    If temp_end - temp_start > 0 Then
        Mot = Mid(str, temp_start, temp_end - temp_start)
    Else
        Mot = Mid(str, temp_start)
    End If
    
End Function