Lecture fichier

Bonjour à tous,

voilà mon pb.

je dois grâce à un bouton exécuter ce scénario:

1 - ouvrir l'explorateur de fichier afin d'aller chercher un fichier texte.
2 - ouvrir le fichier texte.
3 - sélectionner tout son contenu.

4 - faire un copier

5 - faire un collé à partir de la case A30.

6 - fermer le fichier texte.

voilà ça fait deux jour que je tourne en rond et ç ne marche pas du tout.

Par avance merci pour votre aide toujours très précieuse.

Cordialement,

Hello,

PowerQuery se connecte directement à ton fichier, tu peux lui dire d'ignorer les 29 premières lignes et récupérer tes données le tout en 1 minute de développement

@+

ok mais je ne connais pas et comme c'est un fichier destiné à voyager je préfére qu'il soit qu'avec du VBA.

j'arrive à ouvrir l'explorateur de fichier donc je peux me déplacer dedans.
là ou j'ai un doute c'est si j'ouvre un fichier txt et que je fais copier va t'il garder la copie si je ferme mon fichier?

deuxièmement il faudrait que la macro se mette en pause et ne redémarre que quand je ferme le fichier texte par exemple afin de procéder au collage des données.

Bonjour,

personne pour m'aider?

de mon coté je cherche mais j'ai tjrs rien de valable.

Bonne journée à tous

Bonjour,

J'ai trouvé mon bonheur grâce à chat GPT je met si dessous la solution afin d'aider une personne dans le besoin.

merci de m'avoir lu.

Sub CopierContenuFichierTexte()

    Dim FichierTexte As String
    Dim CheminFichierExcel As String
    Dim FichierExcel As Workbook
    Dim FichierTexteOuvert As String
    Dim Ligne As String
    Dim FichierTexteLignes() As String
    Dim i As Integer

' Demander à l'utilisateur de choisir un fichier texte
FichierTexte = Application.GetOpenFilename("Fichiers texte (*.txt), *.txt")

' Vérifier si l'utilisateur a sélectionné un fichier
If FichierTexte <> "Faux" Then
    ' Ouvrir le fichier texte
    Open FichierTexte For Input As #1

    ' Lire le contenu du fichier texte ligne par ligne et stocker dans un tableau
    i = 1
    Do Until EOF(1)
        Line Input #1, Ligne
        ReDim Preserve FichierTexteLignes(1 To i)
        FichierTexteLignes(i) = Ligne
        i = i + 1
    Loop

    ' Fermer le fichier texte
    Close #1

    ' Référencer la feuille Excel dans laquelle coller le contenu
    Set FichierExcel = ThisWorkbook ' Ou utilisez Workbooks("NomDuFichier.xlsx") pour faire référence à un fichier Excel spécifique

    ' Coller chaque ligne du fichier texte dans une cellule de la première feuille du fichier Excel
    For i = 1 To UBound(FichierTexteLignes)
        FichierExcel.Sheets(1).Cells(i, 1).Value = FichierTexteLignes(i)
    Next i

    MsgBox "Le contenu du fichier texte a été copié dans la feuille Excel avec succès."
End If

End Sub