Discussion :

[Hankow]

Bonjour tout le monde !

J'aimerai déja savoir s'il était possible de garder en mémoire une variable qui change (dans une boucle) pour pouvoir après afficher dans une MsgBox les valeurs qu'a eu cette variable.

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
28
29
30
31
NomFichier = Dir(Chemin & "*.txt")                                          'Boucle sur tous les fichiers xls du répertoire.
 
        Do While Len(NomFichier) > 0                                                'Tant qu'un fichier.txt dans le dossier contient un nom avec au minimun 1 caratère, faire :
            n = 1
            NomFeuille = Left(NomFichier, Len(NomFichier) - 4)                      'Suppression de l'extenstion ".txt"
            Set NewFeuille = Sheets.Add(After:=Sheets(Sheets.Count))                'La nouvelle feuille créée se place en dernière position
            NewFeuille.Name = NomFeuille                                            'Renomme la feuille avec le nom que l'on a moifidié intégré à la variable NomFeuille
            Set NewFeuille = Nothing                                                'Libération de l'objet NomFeuille
 
            Worksheets("DONNEES").QueryTables.Add("TEXT;" & Chemin & NomFichier, Worksheets("DONNEES").[A1]).Refresh
                                                                                    '=>Insert le fichier.txt dans la page de calcul DONNEES à partir de la colonne A1
            Moulinette                                                              'Appel de la fonction Moulinette qui regroupe tout le système de traitement des données
 
            Application.DisplayAlerts = False                                       'Inhibition des alertes Excel
            Worksheets("DONNEES").Delete                                            'Suppression de la feuille de calcul DONNEES
            Application.DisplayAlerts = True                                        'Ré-activation des alertes Excel
            Set NewFeuilleBIS = Sheets.Add(After:=Sheets("EXTRACT"))                'Création d'une feuille située après la feuille EXTRACT
            NewFeuilleBIS.Name = "DONNEES"                                          'Nomme la nouvelle feuille
            Set NewFeuilleBIS = Nothing                                             'Libération de l'Objet NewFeuilleBIS
 
            NomFichier = Dir()                                                      'Balayage : Pré-selectionne le fichier.txt suivant du dossier
            n = n + 1
        Loop                                                                        'Fin de la boucle Do While
        ActiveWorkbook.Worksheets("EXTRACT").Select                                 'Affiche la feuille EXTRACT au premier plan
 
        result = MsgBox("- Répertoire : " & Chemin & Chr(10) & Chr(10) & "- Fichiers : " & n & Chr(10) & Chr(10) _
                        & "- STATUE : Fichiers Importés !", , "TRANSFERT ...")        'Message d'information de l'avancement du traitement des données
        Else
        reponse = MsgBox("Veuillez indiquer l'emplacement du dossier où les fichiers.txt sont situés.", _
                    vbInformation, "INFORMATION")                                   'Message d'erreur indiquant qu'il n'a pas ou mal complété l'emplacement du dossier
        Exit Sub

Je voudrai donc savoir comment on pouvait faire afficher le nom des feuilles qui ont été implanté dans mon Classeur dans ma MsgBox "result".

Si vous avez quelques pistes merci d'avance

[Gado2600]

Bonjour,

Tu as 2 options :

• La concaténation d'une variable string
• Utiliser un tableau

La première étant plus adaptée pour l'affichage dans un msgbox mais la seconde est plus "propre" d'un point de vue personnel.

Cordialement,

[Hankow]

Merci je vais essayer et je tiendrai au courant de mon avancement à la communauté.

EDIT :
Voilà j'ai réussi à faire ce que je voulais : parfait !

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
28
29
30
31
32
33
34
    Chemin = TB_Repertoire & "\"                                                    'Affectation, par l'utilisateur via la TextBox, l'emplacement du dossier où les fichiers.txt sont situés
    If Chemin <> "" Then                                                            'SI Chemin n'est pas vide
        NomFichier = Dir(Chemin & "*.txt")                                          'Boucle sur tous les fichiers xls du répertoire.
        nb = 0
        Do While Len(NomFichier) > 0                                                'Tant qu'un fichier.txt dans le dossier contient un nom avec au minimun 1 caratère, faire :
            NomFeuille = Left(NomFichier, Len(NomFichier) - 4)                      'Suppression de l'extenstion ".txt"
            Set NewFeuille = Sheets.Add(After:=Sheets(Sheets.Count))                'La nouvelle feuille créée se place en dernière position
            NewFeuille.Name = NomFeuille                                            'Renomme la feuille avec le nom que l'on a moifidié intégré à la variable NomFeuille
            Set NewFeuille = Nothing                                                'Libération de l'objet NomFeuille
 
            Worksheets("DONNEES").QueryTables.Add("TEXT;" & Chemin & NomFichier, Worksheets("DONNEES").[A1]).Refresh
                                                                                    '=>Insert le fichier.txt dans la page de calcul DONNEES à partir de la colonne A1
            Moulinette                                                              'Appel de la fonction Moulinette qui regroupe tout le système de traitement des données
 
            Application.DisplayAlerts = False                                       'Inhibition des alertes Excel
            Worksheets("DONNEES").Delete                                            'Suppression de la feuille de calcul DONNEES
            Application.DisplayAlerts = True                                        'Ré-activation des alertes Excel
            Set NewFeuilleBIS = Sheets.Add(After:=Sheets("EXTRACT"))                'Création d'une feuille située après la feuille EXTRACT
            NewFeuilleBIS.Name = "DONNEES"                                          'Nomme la nouvelle feuille
            Set NewFeuilleBIS = Nothing                                             'Libération de l'Objet NewFeuilleBIS
 
            NomFichier = Dir()                                                      'Balayage : Pré-selectionne le fichier.txt suivant du dossier
            n = NomFeuille & Chr(10) & n                                            'Concaténation des noms des feuilles crééer
            nb = nb + 1                                                             'Compteur => Indique le nombre total de feuilles traitées
        Loop                                                                        'Fin de la boucle Do While
        ActiveWorkbook.Worksheets("EXTRACT").Select                                 'Affiche la feuille EXTRACT au premier plan
 
        result = MsgBox("- Répertoire : " & Chemin & Chr(10) & Chr(10) & "- Fichiers : " & nb & " au total" & Chr(10) & n & Chr(10) _
                        & "- STATUE : Fichiers Importés !", , "TRANSFERT ...")        'Message d'information de l'avancement du traitement des données
        Else
        reponse = MsgBox("Veuillez indiquer l'emplacement du dossier où les fichiers.txt sont situés.", _
                    vbInformation, "INFORMATION")                                   'Message d'erreur indiquant qu'il n'a pas ou mal complété l'emplacement du dossier
        Exit Sub
    End If