Boucle "tant que"

Version imprimable

14/02/2023, 11h09
Rotax27

Boucle "tant que"

Bonjour à tous!
comment écrire en VBA une bouche "tant que" puis exécuter une routine jusqu'à la fin du fichier qui contient un nombre de lignes variable.
Merci !

Essaye ceci:

Code:

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
28
29
30
31
 
    Dim fso As Object
    Dim fichier As Object
    Dim ligne As String
 
    Dim NbLigne As Long
 
    NbLigne = 0
 
    ' Créer un objet FileSystemObject
    Set fso = CreateObject("Scripting.FileSystemObject")
 
    ' Ouvrir le fichier en lecture
    Set fichier = fso.OpenTextFile("C:\NomFichier.txt", 1)
 
    ' Boucler sur chaque ligne du fichier
    While Not fichier.AtEndOfStream
        ' Lire la ligne suivante
        ligne = fichier.ReadLine
 
        NbLigne = NbLigne + 1
        ' Exécuter la routine ici
        '
 
    Wend
 
    ' Fermer le fichier
    fichier.Close
 
 
MsgBox NbLigne

Citation:

Envoyé par Boulatwo

Essaye ceci:

Code:

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
28
29
30
31
 
    Dim fso As Object
    Dim fichier As Object
    Dim ligne As String
 
    Dim NbLigne As Long
 
    NbLigne = 0
 
    ' Créer un objet FileSystemObject
    Set fso = CreateObject("Scripting.FileSystemObject")
 
    ' Ouvrir le fichier en lecture
    Set fichier = fso.OpenTextFile("C:\NomFichier.txt", 1)
 
    ' Boucler sur chaque ligne du fichier
    While Not fichier.AtEndOfStream
        ' Lire la ligne suivante
        ligne = fichier.ReadLine
 
        NbLigne = NbLigne + 1
        ' Exécuter la routine ici
        '
 
    Wend
 
    ' Fermer le fichier
    fichier.Close
 
 
MsgBox NbLigne

Merci pour votre réponse, je vais tester çà cet apres midi !

Salut,
Et si tu veux le faire avec les méthodes intégrées à VBA voici la réponse de ChatGPT (C'est toujours rigolo de l'utiliser)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Sub LireFichier() Dim Fichier As Integer Dim Texte As String Fichier = FreeFile 'Ouvrir le fichier Open "chemin\vers\fichier.txt" For Input As #Fichier 'Lire le contenu du fichier ligne par ligne Do Until EOF(Fichier) Line Input #Fichier, Texte Debug.Print Texte Loop 'Fermer le fichier Close #Fichier End Sub
Et les explications associées :

Dans ce code, la variable Fichier représente le numéro du fichier ouvert, et la variable Texte est utilisée pour stocker chaque ligne lue.
La commande FreeFile permet de récupérer un numéro de fichier libre pour l'ouverture du fichier.
La commande Open permet d'ouvrir le fichier en mode lecture (For Input), en spécifiant le chemin d'accès au fichier.
La boucle Do Until lit le contenu du fichier ligne par ligne jusqu'à la fin du fichier (EOF), en stockant chaque ligne dans la variable Texte.
Enfin, la commande Close permet de fermer le fichier une fois que toutes les lignes ont été lues.

On peut aussi vérifier que le fichier existe bien, avec un Dir(). si le fichier est déjà ouvert une erreur se produit.
Un peu de lecture : Instruction Open (VBA) | Microsoft Learn

Voili voilou,

15/02/2023, 13h05
Rotax27

Boucle "tant que" en VBA

Bonjour,
J'ai préparé un petit tuto de ce que je cherche a faire avec un fichier joint et zut comment envioyer un fichier jpeg dans ce forum?
15/02/2023, 13h15
Rotax27

Citation:

Envoyé par Rotax27

Bonjour,
J'ai préparé un petit tuto de ce que je cherche a faire avec un fichier joint et zut comment envioyer un fichier jpeg dans ce forum?

je comprends rien j'abandonne !!
15/02/2023, 13h15
Tête de chat

Re,

déjà poster une demande en double c'est pas top, mais poursuivre la conversation alternativement sur les deux topics c'est pas top pour ceux qui répondent.

https://www.developpez.net/forums/d2...l/boucle-tant/
Je suggère de ne garder qu'un seul sujet et de renvoyer l'autre dessus.
15/02/2023, 13h18
Rotax27

Citation:

Envoyé par Tête de chat

Re,

déjà poster une demande en double c'est pas top, mais poursuivre la conversation alternativement sur les deux topics c'est pas top pour ceux qui répondent.

https://www.developpez.net/forums/d2...l/boucle-tant/
Je suggère de ne garder qu'un seul sujet et de renvoyer l'autre dessus.

Désolé c'est independant de mla volonté suis un peu perdu dans les manips !!