[VBA-E] Ouverture fichier et recupération de données

Version imprimable

06/03/2006, 18h07
azevMU

[VBA-E] Ouverture fichier et recupération de données

Bonjour à tous,
je débute totallement en macro excel :oops: 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

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:

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:

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

Code:

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

07/03/2006, 10h35
azevMU

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