[herve80]

Bonjour,

Désolé de ce sujet déjà vu, mais ...

1° Comment ouvrir un fichier texte dans le bloc-notes via Excel ?

2° Y a-t-il moyen en + de supprimer les 2 premières lignes du fichier texte dans ce bloc-notes ?

Je serais TRES content d'avoir une réponse à la première question.

Merci de m'aider

[PascalXLD]

Bonjour

essaies

MyAppID = Shell("notepad.EXE C:\tmp\aa.txt", 4)

[herve80]

C'est exactement ça, super !
Merci PascalXLD, tu es vraiment gentil d'avoir pris le temps de me répondre.

Je te souhaite une bonne soirée et une excellent semaine

[MichelXld]

bonsoir Hervé, bonsoir cher Pascal


Pour supprimer les lignes, tu peux tester

Option Explicit
Option Base 1

Sub SuppressionLignes()
    Dim objCol As New Collection
    Dim x As Integer, i As Integer
    Dim strLigne As String, Fichier As String
    Dim Tableau As Variant
    
    'Définit les lignes à supprimer, par
    'ordre décroissant impérativement !
    Tableau = Array(2, 1)
    Fichier = "C:\dossier\monFichier.txt"
    
    x = FreeFile
    'Transfère des infos du fichier txt vers une collection.
    Open Fichier For Input As #x
        While Not EOF(x)
            Line Input #x, strLigne
            objCol.Add strLigne
        Wend
    Close #x
    
    'Suppression des lignes spécifiées dans la collection.
    For i = 1 To UBound(Tableau)
        If objCol.Count > Tableau(i) Then _
            objCol.Remove Tableau(i)
    Next i
    
    'Transfère la collection vers le fichier txt.
    Open Fichier For Output As #x
        For i = 1 To objCol.Count
            Print #x, objCol(i)
        Next
    Close #x
End Sub

Bonne soirée
MichelXld