Discussion :

[azevMU]

Bonjour à tous,
je débute totallement en macro excel et j'aurais besoin de votre aide.

je dois aller chercher un fichier (cvs ou txt) et recuperer ce qu'il y a dedans pour le copier dans mon fichier .xls courant.

j'arrive a ouvrir le fichier mais je ne sais pas du tout comment copier coller dans mon fichier.

merci bcp pour votre aide

[leroissejp]

Bonsoir,
Ce code importe le contenu d'un fichier .txt et le place dans ton classeur actif en commençant par la cellule A1.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sub ImporterFichierTxt()
Dim r, Data
Range("A1").Select
Open ("C:\Documents and Settings\JEAN-PIERRE\Mes documents\MonFichierEssai.txt") For Input As #1
r = 0
Do Until EOF(1)
Line Input #1, Data
ActiveCell.Offset(r, 0) = Data
r = r + 1
Loop
Close #1
End Sub

Si tu veus choisir un fichier parmis d'autres, tu as aussi cette solution.
(tu peux remplacer txt par csv et fichier texte, par fichier Excel

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
 
Sub ImporterFichier()
Dim strFiles
'Affiche la boîte de dialogue Ouvrir
strFiles = Application.GetOpenFilename _
(FileFilter:="Fichier texte(*.txt),*.txt" _
, Title:="Sélectionnez le fichier à ouvrir")
'Inscrit le chemin et le nom du fichier ouvert
Range("A1").Value = strFiles
Dim r, Data
Range("A2").Select
On Error GoTo Annuler
Open strFiles For Input As #1
r = 0
Do Until EOF(1)
Line Input #1, Data
ActiveCell.Offset(r, 0) = Data
r = r + 1
Loop
Close #1
GoTo Suite
Annuler: MsgBox "Vous n'avez sélectionner aucun fichier"
Range("A1") = ""
Suite:
End Sub

jpleroisse

[DarkVader]

Code :

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

1
2
3
Dim myFile As String
myFile = "C:\temp\cge2005-05-06.csv"
ActiveSheet.QueryTables.Add(Connection:="TEXT;" & myFile, Destination:=Range("A10")).Refresh

par exemple

[azevMU]

merci bcp bcp !
c'est exactement ce dont j'avais besoin!!
sympa d'avoir étés aussi rapides