Discussion :

[volganne]

Bonjour,

J'ai une problématique...
Je souhaite pouvoir importer des fichiers, (nom variables), via une fenêtre d'import.

J'importe le fichier toto.xls, via une fenêtre d'import, il va dans ma table table_access, je lance mes traitments, j'ai le résultat...etc... Je vide table_access et j'importe titi.xls...Etc...

Les fichiers d'imports ont le même formatage (nomage colonnes) et toujours en xls.


Merci pour votre aide

[argyronet]

Bonjour,

Il y a plusieurs solutions...
L'idéal est l'usage de l'API GetOpenFileName() (voir FAQ) qui t'ouvre une fenêtre avec le filtre idoine (*.xls) et tu sélectionnes le(s) fichier(s) à traiter...

Si tu es sous 2007, c'est plus simple :

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
Function OpenDialogXLS() As String
    Dim oDialog                              As Office.FileDialog
    Dim strFilename                          As String
    Dim vntSelectedItem As Variant
    Set oDialog = Application.FileDialog(msoFileDialogOpen)
 
    With oDialog
        .FilterIndex = 1
        .Filters.Clear
        .Filters.Add "Fichiers Excel", "*.xls"
        .Filters.Add "Fichiers CSV", "*.csv"
        If .Show Then
            For Each vntSelectedItem In .SelectedItems
                OpenDialogXLS = vntSelectedItem
            Next
        End If
    End With
    Set oDialog = Nothing
End Function

Argy