Discussion :

[Samanosuke]

Bonjour à tous,
je dois realiser un Report en Control de Gestion. J ai pour idee de "charger" 6 mois de donnees, dans 6 feuilles excels. Les 6 mois de donnees sont en .text .(sur 6 documents.txt)
j ai realisé un petit code pour importer une feuille (Le mois N ici comme exemple)
Cependant, le fichier .text, pour etre lu correctement dans Excel, doit etre ouvert en "semi-colomn"
en somme, il me copie toutes les informations dans la meme colone
Que dois je faire pour les separer, et copier les 11 infos de cette chaine dans les 11 premieres colonnes de ma feuille ?
Puis je repeter l operation 5 autres fois sans trop alourdir la procedure?

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
Sub Update_Report()
 
Dim srce As Workbook
Dim shsrce As String
 
 
ThisWorkbook.Activate
Worksheets(1).Cells.Clear
Worksheets(2).Cells.Clear
Worksheets(3).Cells.Clear
Worksheets(4).Cells.Clear
Worksheets(5).Cells.Clear
Worksheets(6).Cells.Clear
Worksheets(7).Cells.Clear
Worksheets(8).Cells.Clear
Worksheets(9).Cells.Clear
Worksheets(10).Cells.Clear
Worksheets(11).Cells.Clear
 
    'importation des donnees
    MsgBox "Please select extracts for the N,N-1,...,N-5 Month", vbOKOnly + vbInformation, "Warning"
    MsgBox "Please select for the N Month", vbOKOnly + vbInformation, "Warning"
 
    shsrce = Application.GetOpenFilename("text files (*.txt), *.txt")
    Set srce = Workbooks.Open(Filename:=shsrce)
    ActiveSheet.Range("A:P").Select
    Selection.Copy
    srce.Close
    'on ferme le classeur source
    ThisWorkbook.Activate
    ThisWorkbook.Worksheets(5).Activate
    Range("A1").Activate
    ActiveCell.PasteSpecial

En precisant que le format des fichiers .txt est (ici l exemple de la colone A1) :
Mobilephone;"MOB_CODE";"User";"USR_CODE";"Department";"CCR_CODE";"Division";"DIV_CODE";"User Aux. 1";"Mobile aux. 1";"Mobile Aux.


J ai essayer la fonction split (apres pas mal de recherches infructueuses) mais etant debutant je galere un peu !

Bonne journee à tous.

Kevin

[Paritec]

Bonjour Samanosuke le forum
tu importes ton fichier .txt avec comme délimiteur ";" et ok et voilà
a+
papou

[jfontaine]

Bonjour,

Ci dessous un exemple

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
Dim Fichier As String
Dim Ligne As String
Dim Tableau() As String
Dim i As Long
Dim c As Integer
 
Fichier = Application.GetOpenFilename("text files (*.txt), *.txt")
 
'ouverture du fichier
Open Fichier For Input As #1
 
Do While Not EOF(1)
    Line Input #1, Ligne
    'Séparation des colonnes avec séparateur ;
    Tableau = Split(Ligne, ";")
 
    i = i + 1
    'Ajout des données ligne dans la feuille
    For c = 0 To UBound(Tableau)
        With Sheets("Feuil1")
            .Cells(i, c + 1).Value = Tableau(c)
        End With
    Next c
 
Loop
 
Close #1

[Samanosuke]

Bonjour jfontaine et Paritec,

j ai adapté vore exemple et ca marche nickel,
par contre, toute les sous chaine, sont entre "",
Serait il possible de les enlever ?

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
45
46
47
48
49
50
51
52
53
54
55
56
Option Explicit
 
Sub Update_Report()
 
Dim srce As Workbook
Dim shsrce As String
Dim cel As Variant
Dim c As Variant
Dim Données As Variant
Dim Fichier As String
Dim Ligne As String
Dim Tableau() As String
Dim i As Long
Dim j As Integer
 
 
ThisWorkbook.Activate
Worksheets(1).Cells.Clear
Worksheets(2).Cells.Clear
Worksheets(3).Cells.Clear
Worksheets(4).Cells.Clear
Worksheets(5).Cells.Clear
Worksheets(6).Cells.Clear
Worksheets(7).Cells.Clear
Worksheets(8).Cells.Clear
Worksheets(9).Cells.Clear
Worksheets(10).Cells.Clear
Worksheets(11).Cells.Clear
 
'importation des donnees
MsgBox "Please select extracts for the N,N-1,...,N-5 Month", vbOKOnly + vbInformation, "Warning"
MsgBox "Please select for the N Month", vbOKOnly + vbInformation, "Warning"
 
Fichier = Application.GetOpenFilename("text files (*.txt), *.txt")
 
'ouverture du fichier
Open Fichier For Input As #1
 
Do While Not EOF(1)
    Line Input #1, Ligne
    'Séparation des colonnes avec séparateur ;
    Tableau = Split(Ligne, ";")
 
    i = i + 1
    'Ajout des données ligne dans la feuille
    For j = 0 To UBound(Tableau)
        With Sheet5
            .Cells(i, j + 1).Value = Tableau(j)
        End With
    Next j
 
Loop
 
Close #1
 
End Sub

me donne un resultat du genre :
"Mobile phone" "MOB_CODE" "User" "USR_CODE" etc ...
Si je pouvais enlever les "", ca serait super!

En attendant, je vais me renseigner sur le Forum,

Merci encore pour votre aide,

Kevin

[jfontaine]

Comme cela

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Cells(i, j + 1).Value = replace(Tableau(j),"""","")

[Samanosuke]

un grand MERCI, cela marche magnifiquement bien !
a bientot,

Kévin