Discussion :

[oussama4210]

Bonjour tout le monde , je suis entrain de développer une application de gestion de limite de crédit avec access VBA , j'ai besoin de votre aide concerant le filtrage lors de l'importation d'une base de données , j'aurai besoin de sélectionner que les variables nécessaire pour cela ! voici un apercu de comment l'interface doit être.

[Invité]

Bonjour

Merci de donner plus de détails, car à première vue on dirait que l'on fasse l'interface pour toi, et ce n'est pas le but de faire le travail des autres, mais de les aider.

Par contre si tu es coincé, merci de donner des informations, car là on ne sait pas ce qui ne va pas.

Philippe

[oussama4210]

Pour le moment j'ai fait la 1ère phase qui est un bouton qui permet d'importé ma base de données , pour l'étape selection des variables , je n'ai aucune idée de la façon comment je peux le faire , si c'est possible de me donné juste une idée pour que je puisse me lancer . Merci

[typouce]

Je diraiImport de tes fichier xls bruts dans des table d'imports, puis requête d'ajout dans tes table "en dur", puis suppression des données présentes dans tes table d'imports par des requête de suppression...

Dans ta forme, base toi sur ce code pour la zone de sélection du fichier source composé d'une zone de texte et d'un "bouton poussoir" :

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

Private Sub nomduboutonpoussoir_Click()
    Dim fd As Office.FileDialog
 
    ' Créer un objet FileDialog
    Set fd = Application.FileDialog(msoFileDialogOpen)
 
    ' Titre de la boîte de dialogue
    fd.Title = "texte à afficher en haut de ta fenêtre de sélection"
 
    ' Ne pas autoriser la sélection multiple
    ' (donc 1 seul fichier est sélectionnable à la fois)
    fd.AllowMultiSelect = False
 
    ' Définir les types de fichiers autorisés en ajoutant un filtre
    fd.Filters.Clear
    fd.Filters.Add "Fichiers Excel", "*.xls; *.xlsx"
 
    ' Présélectionner le filtre
    fd.FilterIndex = 0
 
    ' Afficher la boîte de dialogue
    If fd.Show() Then
        Me.nomdetazonedetexte = fd.SelectedItems(1)
    End If
    Set fd = Nothing
End Sub

Ensuite, crée un nouveau bouton poussoir pour activer l'action d'import sur le même formulaire et dans ta forme tape le code suivant:

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
Private Sub nomboutond'import_Click()

Dim appExcel As Excel.Application 'Application Excel
Dim wbExcel As Excel.Workbook 'Classeur Excel
Dim wsExcel As Excel.Worksheet 'Feuille Excel

'Ouverture de l'application
Set appExcel = CreateObject("Excel.Application")
'Ouverture d'un fichier Excel
Set wbExcel = appExcel.Workbooks.Open(Me.txt_path1)
'wsExcel correspond à la première feuille du fichier
Set wsExcel = wbExcel.Worksheets(1)
DoCmd.TransferSpreadsheet acImport, 8, "nomdetatabled'import", Me.txt_path1, True
DoCmd.SetWarnings False <== sert à désactiver les éventuels messages d'alertes
DoCmd.OpenQuery "nomdetarequêted'ajout"
DoCmd.OpenQuery "nomdetarequêtedemiseàjour"
DoCmd.OpenQuery "nomdetarequêtedesuppression"
DoCmd.SetWarnings True <== sert à réactiver les éventuels messages d'alertes
End Sub

Voila commence par jouer avec ça