[VBA-E] (Débutant) Ouvrir plusieurs fichiers .txt dans 1 seul classeur EXCEL.

**pauletta22** · 22/05/2006, 08h10

Bonjours j'aurais besoin de votre aide pour ouvrir plusieur documents .txt
sur plusieur page dans un fichier Excel.
Merci de votre aide

**Megaxel** · 22/05/2006, 09h39

SAlut!
Alors, là, franchement, regarde dans la FAQ, ou dans les tuto, ou fais une petite recherche sur le forum: il y a tellement de trucs sur ça que tu n'auras quasiment que du copier-coller à faire.

**pauletta22** · 22/05/2006, 09h41

ok mais quelle recherche dois je indiquer dans la FAQ?

**ouskel'n'or** · 22/05/2006, 10h12

Je reprends au début. Tu dois ouvrir chaque fichier texte à l'aide d'Excel puis, si tu veux les réunir, copier chacun d'eux dans un classeur unique.
Pour ça, tu devras copier chaque feuille de calcul correspondant à tes txt sur ton xls.
1 - Ouvrir un nouveau classeur
2 - Ouvrir tous tes txt
3 - Copier chaque txt sur le classeur

Tu peux utiliser le premier txt ouvert sous Excel pour y coller tes autres feuilles puis enregistrer sous .xls

Tu commences et tu nous montres ton code si tu as des difficultés.

Tu dis

A+

**pauletta22** · 22/05/2006, 10h23

Pour le moment j'arrive seulement a mettre les données d'un document txt dans excel or il me faut en mettre plusieurs dans le meme fichier xls.
Mon code actuel est :

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
35
36
37
38
39
40
41
42
43
44
ub users_16_05_06()
 
Dim service As String
Dim Responsable As String
Dim nbligne As Integer
 
Workbooks.OpenText Filename:="\\Bre3301\config$\icones\maryse.nourisson\Bureau\Guillaume.mulot\bureau etudes", _
    DataType:=xlDelimited, Tab:=True, Semicolon:=True
 
nbligne = Range("C65000").End(xlUp).Row
 
For Index = 2 To nbligne
service = Range("C" & Index)
 
If (service = "Achats Projet" Or service = "Achats") Then
Responsable = "BNT"
    ElseIf (service = "Atelier" Or service = "Production") Then
    Responsable = "PHR"
        ElseIf (service = "Bureau Etudes" Or service = "Ingéniérie Process" Or service = "Prototypes") Then
        Responsable = "JT"
            ElseIf (service = "Chefs de Projets" Or service = "Metrologie" Or service = "Qualite Cout Délais") Then
            Responsable = "EV"
                ElseIf (service = "Commercial") Then
                Responsable = "SA"
                    ElseIf (service = "Logistique") Then
                    Responsable = "CT"
                        ElseIf (service = "Informatique" Or service = "Finances") Then
                        Responsable = "FBE"
                            ElseIf (service = "Entretien") Then
                            Responsable = "VT"
                                ElseIf (service = "Direction Qualite") Then
                                Responsable = "JBQ"
                                Else: Responsable = "ADB"
 
End If
Next
 
Range("D1") = "Responsable"
For Index = 2 To nbligne
Range("D" & Index) = Responsable
 
Next
 
End Sub

Quel sont les modifications a effectuées?

**ouskel'n'or** · 22/05/2006, 10h26

Balise ton code (bouton

) et remplace déjà toute ta serie de If / Elseif par un select case

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
Select Case service
Case "Achats Projet" Or "Achats"
    Responsable = "BNT"
Case "Atelier" Or "Production"
    Responsable = "PHR"
Case "Bureau Etudes" Or "Ingéniérie Process" Or "Prototypes"
    Responsable = "JT"
Case "Chefs de Projets" Or "Metrologie" Or "Qualite Cout Délais"
    Responsable = "EV"
Case "Commercial"
    Responsable = "SA"
Case "Logistique"
    Responsable = "CT"
Case "Informatique" Or "Finances"
    Responsable = "FBE"
Case "Entretien"
    Responsable = "VT"
Case "Direction Qualite"
    Responsable = "JBQ"
Case Else
    Responsable = "ADB"
End Select

Pour le reste, je regarde

A+

**ouskel'n'or** · 22/05/2006, 10h29

Voilà. Déjà, dans cette ligne tu donnes deux instructions contradictoires

Workbooks.OpenText Filename:="\\Bre3301\config$\icones\maryse.nourisson\Bureau\Guillaume.mulot\bureau etudes", _
DataType:=xlDelimited, Tab:=True, Semicolon:=True

Quel est le séparateur de données dans ton txt ?
Si c'est une tabulation, tu dois mettre Semicolon:=False
Si c'est un point-virgule, tu dois mettre Tab:=false

Tu modifies et tu dis

A+

**ouskel'n'or** · 22/05/2006, 10h31

J'ai corrigé le code que je t'ai passé avec les select case (j'avais laissé une partie de ton code) Tu regardes

A+

**pauletta22** · 22/05/2006, 10h33

Lorsque je remplace par le select case comme tu ma dis un message s'affiche lors de la compilation.
Le message s'affichant est le suivant :

Erreur d'éxécution '13':
Incompatibilité de type

**ouskel'n'or** · 22/05/2006, 10h39

Sur quelle ligne ? (tu as lu mon post précédent ?)

A+

**pauletta22** · 22/05/2006, 10h42

oui j'ai lu votre message précédent et mon séparateur est la tabulation.
Et la ligne de l'erreur n'est pas indiqué

**SfJ5Rpw8** · 22/05/2006, 10h42

remplace les Or des instructions Case .. par une virgule...

**pauletta22** · 22/05/2006, 10h47

L'erreur précédente n'y est plus c'était bien les or qui était a remplacé par une virgule.

Comment faire pour insérer plusieurs fichiers .txt au lieu de un a leur actuel.