Discussion :

[sql]

Bonjour,

Je souhaite créer un macro afin d'importer les données provenant d'un fichier .xls ou .csv. Pour ce faire j'ai lancé l'enregistreur de macro et j'ai obtenu le code d'import de fichier:

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 Macro1()
 
With ActiveSheet.QueryTables.Add(Connection:=Array( _
"OLEDB;Provider=Microsoft.Jet.OLEDB.4.0;Password=" """;User ID=Admin;Data Source=C:\Documents and Settings\Eric\Bureau\données brutes.xls;" _
, _
"Mode=Share Deny Write;Extended Properties=""HDR=YES;"";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Database " _
, _
"Password="""";Jet OLEDB:Engine Type=35;Jet OLEDB:Database Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk" _
, _
" Transactions=1;Jet OLEDB:New Database Password="""";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet O" _
, _
"LEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False" _
), Destination:=Range("A1"))
.CommandType = xlCmdTable
.CommandText = Array("Feuil1$")
.Name = "données brutes"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = True
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.SourceDataFile = _
"C:\Documents and Settings\Eric\Bureau\données brutes.xls"
.Refresh BackgroundQuery:=False
End With
End Sub

Maintenant je souhaite modifier ce code pour pouvoir sélectionner le fichier à importer via une boîte de dialogue. Pour ce faire j'ai modifié le code de la manière suivante:

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
Sub Macro1()
 
fileToOpen = Application.GetOpenFilename()
 
With ActiveSheet.QueryTables.Add(Connection:=Array( _
"OLEDB;Provider=Microsoft.Jet.OLEDB.4.0;Password=" """;User ID=Admin;Data Source=fileToOpen ;" _
, _
"Mode=Share Deny Write;Extended Properties=""HDR=YES;"";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Database " _
, _
"Password="""";Jet OLEDB:Engine Type=35;Jet OLEDB:Database Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk" _
, _
" Transactions=1;Jet OLEDB:New Database Password="""";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet O" _
, _
"LEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False" _
), Destination:=Range("A1"))
.CommandType = xlCmdTable
.CommandText = Array("Feuil1$")
.Name = "données brutes"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = True
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.SourceDataFile = _
fileToOpen
.Refresh BackgroundQuery:=False
End With
End Sub

La boîte de dialogue s'affiche bien mais une fois le fichier sélectionné j'ai un message d'erreur qui apparaît:

Erreur d'exécution '1004':
Le moteur de base de données Microsoft Jet n'a pas pu trouver l'objet "Feuil1$". Assurez-vous que l'objet existe et que vous avez bien saisi son nom et son chemin d'accès.

Je ne comprend pas parce que les feuilles de mes fichiers portent le même nom, soit Feui1, Feuil2, etc.
Et chose encore plus bizarre, si je modifie le chemin manuellement dans le code, ça marche sans problèmes.

Je vous remercie de bien vouloir m'éclairer sur ce point. :)

[LeForestier]

Bonjour,
Peut-être ?

Code :

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

 Destination:=Sheets("NomDeLaFeuille").Range("A1"))

Mais comme tu viens d'ouvrir un classeur..

Code :

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

1
2
3
4
5
6
fileToOpen = Application.GetOpenFilename()
'Extraire le nom du fichier
dim TB
TB = split(FileToOpen,"\")
NomFichier = TB(Ubound(TB))
 Destination:=WorkBook(NomFichier).Sheets("NomDeLaFeuille").Range("A1"))

A+

[Lynx92260]

Bonjour,


Cette fonction est juste destiné à obtenit un nom de fichier avec son chemin complet

"Cette méthode affiche la boîte de dialogue standard Ouvrir et lit un nom de fichier tapé par l'utilisateur sans réellement ouvrir les fichiers."

Donc dans le code le fichier n'est pas ouvert d'ou ce fameux message.

Résolution du probleme ....

Code :

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

1
2
3
4
5
6
7
 
fileToOpen = Application.GetOpenFilename()
Set Wrk=Workbooks.Open fileToOpen
 
Wrk.Worksheet(1).activate
 
et ton code

Voila toput simplement ......


Pensez à activer merci pour les contributeurs

[sql]

Salut,

Merci pour tes explications!

Cela dit, le code Set Wrk=Workbooks.Open fileToOpen s'affiche en rouge et ne marche pas.

Bon, j'ai réussi à trouver sur un site un code un peu moins barbare qui me permet d'importer mes données.

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
Sub importfichier()
Dim S_wk As Workbook, D_wk As Workbook, pc$
Set D_wk = ThisWorkbook
Application.ScreenUpdating = False
FICHIER = Application.GetOpenFilename("Fichier EXCEL (*.xls), *.xls")
    If FICHIER <> False Then
    Set S_wk = Workbooks.Open(FICHIER)
 
    With S_wk
        With .ActiveSheet.UsedRange
            pc = .Cells(1, 1).Address
            .Copy
        End With
        Set D_wk = ThisWorkbook
        D_wk.ActiveSheet.Range(pc).PasteSpecial xlValues
Application.CutCopyMode = False
        .Close False
    End With
    End If
    D_wk.ActiveSheet.Range("A1").Select
Application.ScreenUpdating = True
End Sub

Si tu pouvais juste m'expliquer pourquoi ta formule ne fonctionne pas, je suis preneur!

[Qwazerty]

Salut
Le code a du être tapé a main levé et les () ont été oubliées c'est tout

Code :

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

Set Wrk = Workbooks.Open(fileToOpen)

++
Qwaz

[Lynx92260]

Bonjour forum

Effectivement j'ai tapé directe dans le message sans l'assistant du script vba on perd l'aide d'aide à la syntaxe ou j ai omis les parentheses merci à Qwazerty pour la correction ....

Pour le principal est d'expliquer le pourquoi de l'erreur "Erreur d'exécution '1004':" était à mes yeux le plus important !