Programmer une appilcation VBA sous excel

Version imprimable

02/03/2015, 23h26
ghita lay

Programmer une appilcation VBA sous excel

bonjour;
je suis stagiaire ingénieure et je veux developper une appilcation de VBA sous excel, le programme doit demander aux utilisateurs de charger un fichier (et puis le programme s'effctuer pour importer un dossier qui contient des fichiers qui ont en .txt en des feuilles excel,chaque fichier dans une feuille,après il dois pointer sur la feuille demander par l'utilisateur et il compare le mot demander par l'utilsateur avec une colonne des mots existant dans le fichier .Aidez moi svp
03/03/2015, 00h25
kiki29

Salut, il te faudra consulter ceci : Manipulation des fichiers en VBA
Pour la suite tu pourras t'inspirer de : fusion fichiers xls* d'un dossier qui sera à adapter à ton contexte bien sur.

Je n'ai pas tout compris mais c'est un début

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
Sub test()
 
    Dim Fichier, strpath As String
 
    'boîte de dialog pour dossier
    intChoice = Application.FileDialog(msoFileDialogFolderPicker).Show
 
    If intChoice <> 0 Then
        strpath = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1)
    End If
 
 
    Fichier = Dir(strpath & "\")
 
    Do While Fichier <> ""
        If UCase(Right(Fichier, 4)) = ".TXT" Then
 
            'créer une feuille pour chaque txt
            Sheets.Add
            ActiveSheet.Name = Fichier
 
            'récupere les txt
            With ActiveSheet.QueryTables.Add(Connection:= _
                "TEXT;" & strpath & "\" & Fichier, Destination:=Range("$A$1"))
                .Name = Fichier
                .FieldNames = True
                .RowNumbers = False
                .FillAdjacentFormulas = False
                .PreserveFormatting = True
                .RefreshOnFileOpen = False
                .RefreshStyle = xlInsertDeleteCells
                .SavePassword = False
                .SaveData = True
                .AdjustColumnWidth = True
                .RefreshPeriod = 0
                .TextFilePromptOnRefresh = False
                .TextFilePlatform = 850
                .TextFileStartRow = 1
                .TextFileParseType = xlDelimited
                .TextFileTextQualifier = xlTextQualifierDoubleQuote
                .TextFileConsecutiveDelimiter = False
                .TextFileTabDelimiter = True
                .TextFileSemicolonDelimiter = False
                .TextFileCommaDelimiter = False
                .TextFileSpaceDelimiter = False
                .TextFileColumnDataTypes = Array(1, 1, 1)
                .TextFileTrailingMinusNumbers = True
                .Refresh BackgroundQuery:=False
            End With
 
        End If
        Fichier = Dir
    Loop
 
End Sub

03/03/2015, 11h58
ghita lay

1 pièce(s) jointe(s)

Mercii Kiki 29 :)
Merci gnain ,il me reste un problème comment changer le nom des feuilles parce qu'il s'affiche cette erreur:
03/03/2015, 12h31
gnain

Le code crée les feuilles avec le nom du fichier. peut-être que tu as 2 fois le même fichier.
Si tu click sur debug, quel ligne est en jaune?
03/03/2015, 17h09
ghita lay

1 pièce(s) jointe(s)

ligne 20, mais le problème depuis le début quand le programme s’exécute, l'image ci dessous s'affiche Pièce jointe 170700
le dossier est toujours vide ;en tout merci pour vos effort
03/03/2015, 18h21
gnain

C'est normal que vous ne voyer rien, cette boîte de dialogue sert seulement à choisir le dossier ou se trouve vos txt.
Ensuite le code récupère tout les txt de ce dossier puis les importe dans votre fichier excel (un txt par feuille)

Avec votre citation de votre premier message

Citation:

Envoyé par ghita lay

(et puis le programme s’effctuer pour importer un dossier qui contient des fichiers qui ont en .txt en des feuilles excel

je croyais avoir compris que vous vouliez choisir un dossier et que la macro importe tout ces txt.

C'est ce que ce code fait.
03/03/2015, 18h31
ghita lay

oui mais le problème quand je choisi le dossier (étape après celle de l'image),le dossier est vide comme s'il y a aucun fichier texte ...Merci en tout cas :)
03/03/2015, 19h01
gnain
Citation:

Envoyé par ghita lay

oui mais le problème quand je choisi le dossier (étape après celle de l'image),le dossier est vide comme s'il y a aucun fichier texte ...Merci en tout cas :)

Il faut choisir le dossier puis clicker sur Ok

Ce code ne trouve pas tout les fichier texte, il trouve seulement les fichier avec comme extension .txt
Si il contient des fichier avec l'extension (.txt) le code les trouvera.

vous avez peut-être enlever le UCase dû à une erreur ?
si oui alors, si vos .txt sont tous en minuscule, le code ne les trouvera pas car dans le code c'est en majuscule.
dans le code j'ai mis un UCase pour être sûr de tout récupérer les .txt, que l'extension soit en majuscule ou en minuscule.
Code:

1 2 Do While Fichier <> "" If UCase(Right(Fichier, 4)) = ".TXT" Then
Faite un print screen à la position que le code bug.