Discussion :

[dvdbrun]

Bonjour,

Je suis entrain de réaliser une petite macro qui doit me permettre de récupérer, sur mon disque dur, un fichier excel ( contenant un classement ) et de l'importer, .
en somme cette macro doit faire les choses suivante :

* je clique sur mon bouton "parcourir"
* je recherche sur mon disque dur le fichier excel qui m'interresse
* je valide
* j'importe le classement present sur l'onglet " coureurs"

le soucis que je rencontre c'est que mon programme ne fonctionne pas et le hic c'est que je vois pas l'erreur que j'aurai pu faire. Si quelqu'un pourrai m'aider à y voir plus clair

Voici le programme :

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
On Error GoTo Exitdoor
FileToOpen = Application.GetOpenFilename()
If FileToOpen <> False Then
Workbooks.OpenText Filename:=FileToOpen
End If
 
 
    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 OLEDB: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("COUREURS$")
        .Name = "DonnéesExternes_1"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .SourceDataFile = FileToOpen
        .Refresh BackgroundQuery:=False
    End With
Sheets("stock1").Select
Exitdoor:
Exit Sub
End Sub.

merci a tous ceux qui pourrons m'aider.

[ucfoutu]

Bonjour,

Commence par faire sauter ta gestion d'erreur (mets-la en commentaires) et tu devrais alors voir facilement la ligne fautive (debug)

[dvdbrun]

Re,

J'ai donc fait sauter ma gestion d'erreur comme conseillé par ucfoutu merci d'ailleur pour son conseil ) et j'ai a present l'erreur d'execution 1004 :" le moteur de la base de données microsoft jet n'as pas trouver l'objet 'COUREURS$'. assurez vous que l'objet existe et que vous avez correctement ecrit son nom et son chemin d'accés"

J'ai donc verifier le nom, le chemin dacces tout est correct, je vois absolument pas d'ou peut provenir mon erreur