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.