Discussion :

[roman33]

Bonjour,
Je possède un formulaire avec les boutons JANVIER / FEVRIER / ETC ETC. Lorsque l'utilisateur clique sur JANVIER je voudrais que l'explorateur s'ouvre directement, l'utilisateur doit alors aller chercher une base .txt qui s'intégrera automatiquement (et par défaut) dans une table nommée janvier...le tout en retenant les paramètres d'importation déjà définis.
J'avoue que je bloque, un code permetrait il de définir ce scénario automatiquement?
Merci pour vos réponses amis forumeurs.
Roman

[Jeannot45]

La lecture de la Gestion des fichiers par VBA peut être un début de réponse

Bonne lecture

[roman33]

Merci Jeannot, j'ai bien bossé sur le sujet, et tes indications m'ont faîtes avançer à gds pas, mais il faut que je peaufine encore.
Voilà j'utilise cette commande

Code :

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

1
2
3
4
Private Sub Commande0_Click()
 
DoCmd.TransferText acImportDelim, ("Spe_import_state_achat"), "T_JANVIER", "C:\Documents and Settings\Roman P\Bureau\ETAT_GESTION\achatsjanvier2009.txt", False
End Sub

...et elle marche merveilleusement bien. Seul HIC, je fais un fichier commun pour des collègues qui n'auront pas les mêmes nom de fichier .txt à importer (bien que la structure soit la même), ces fichiers seront certainement ds des répertoires différents des miens.
Pour cela je voudrais que cette commande m'ouvre l'explorateur sur C:\ et que l'utilisateur choisisse son fichier.
J'ai bien trouvé cette commande

Code :

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

Shell "explorer.exe c:\", 1

qui ouvre l'explorateur mais je n'arrive pas à la coupler à mon code d'import automatique.

Est ce que quelqu'un aurait une idée?
Merci encore pour tes tuyaux.

[Invité]

Bonjour

Je ne pense pas que tu récupéras le chemin avec Shell, je te conseille de regarder du coté de la FAQ Access du forum et notamment cela : http://access.developpez.com/faq/?pa...#AffBoitDialog

Philippe

[roman33]

Merci Philippe,
J'ai consulté le dossier mais j'avoue que ça devient complexe pour mon niveau.
Si je reprends, j'ai trouvé 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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
'Déclaration de l'API
Private Declare Sub PathStripPath Lib "shlwapi.dll" Alias "PathStripPathA" (ByVal pszPath As String)
Private Declare Function GetOpenFileName Lib "comdlg32.dll" Alias _
                   "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long
 
 'Structure du fichier
Private Type OPENFILENAME
    lStructSize As Long
    hwndOwner As Long
    hInstance As Long
    lpstrFilter As String
    lpstrCustomFilter As String
    nMaxCustFilter As Long
    nFilterIndex As Long
    lpstrFile As String
    nMaxFile As Long
    lpstrFileTitle As String
    nMaxFileTitle As Long
    lpstrInitialDir As String
    lpstrTitle As String
    flags As Long
    nFileOffset As Integer
    nFileExtension As Integer
    lpstrDefExt As String
    lCustData As Long
    lpfnHook As Long
    lpTemplateName As String
End Type
 
 'Constantes
Private Const OFN_READONLY = &H1
Private Const OFN_OVERWRITEPROMPT = &H2
Private Const OFN_HIDEREADONLY = &H4
Private Const OFN_NOCHANGEDIR = &H8
Private Const OFN_SHOWHELP = &H10
Private Const OFN_ENABLEHOOK = &H20
Private Const OFN_ENABLETEMPLATE = &H40
Private Const OFN_ENABLETEMPLATEHANDLE = &H80
Private Const OFN_NOVALIDATE = &H100
Private Const OFN_ALLOWMULTISELECT = &H200
Private Const OFN_EXTENSIONDIFFERENT = &H400
Private Const OFN_PATHMUSTEXIST = &H800
Private Const OFN_FILEMUSTEXIST = &H1000
Private Const OFN_CREATEPROMPT = &H2000
Private Const OFN_SHAREAWARE = &H4000
Private Const OFN_NOREADONLYRETURN = &H8000
Private Const OFN_NOTESTFILECREATE = &H10000
 
Private Const OFN_SHAREFALLTHROUGH = 2
Private Const OFN_SHARENOWARN = 1
Private Const OFN_SHAREWARN = 0
 
 
Public Function OuvrirUnFichier(Handle As Long, _
                                Titre As String, _
                                TypeRetour As Byte, _
                                Optional TitreFiltre As String, _
                                Optional TypeFichier As String, _
                                Optional RepParDefaut As String) As String
 'OuvrirUnFichier est la fonction a utiliser dans votre formulaire pour ouvrir _
 'la boîte de dialogue de sélection d'un fichier.
 'Explication des paramètres
    'Handle = le handle de la fenêtre (Me.Hwnd)
    'Titre = Titre de la boîte de dialogue
    'TypeRetour (Définit la valeur, de type String, renvoyée par la fonction)
        '1 = Chemin complet + Nom du fichier
        '2 = Nom fichier seulement
    'TitreFiltre = Titre du filtre
        'Exemple: Fichier Access
        'N'utilisez pas cet argument si vous ne voulez spécifier aucun filtre
    'TypeFichier = Extention du fichier (Sans le .)
        'Exemple: MDB
        'N'utilisez pas cet argument si vous ne voulez spécifier aucun filtre
    'RepParDefaut = Répertoire d'ouverture par defaut
        'Exemple: C:\windows\system32
        'Si vous laissé l'argument vide, par defaut il se place dans le répertoire de votre application
 
Dim StructFile As OPENFILENAME
Dim sFiltre As String
 
 'Construction du filtre en fonction des arguments spécifiés
If Len(TitreFiltre) > 0 And Len(TypeFichier) > 0 Then
  sFiltre = TitreFiltre & " (" & TypeFichier & ")" & Chr$(0) & "*." & TypeFichier & Chr$(0)
End If
sFiltre = sFiltre & "Tous (*.*)" & Chr$(0) & "*.*" & Chr$(0)
 
 
 'Configuration de la boîte de dialogue
  With StructFile
    .lStructSize = Len(StructFile) 'Initialisation de la grosseur de la structure
    .hwndOwner = Handle 'Identification du handle de la fenêtre
    .lpstrFilter = sFiltre 'Application du filtre
    .lpstrFile = String$(254, vbNullChar) 'Initialisation du fichier '0' x 254
    .nMaxFile = 254 'Taille maximale du fichier
    .lpstrFileTitle = String$(254, vbNullChar) 'Initialisation du nom du fichier '0' x 254
    .nMaxFileTitle = 254  'Taille maximale du nom du fichier
    .lpstrTitle = Titre 'Titre de la boîte de dialogue
    .flags = OFN_HIDEREADONLY  'Option de la boite de dialogue
    If ((IsNull(RepParDefaut)) Or (RepParDefaut = "")) Then
        RepParDefaut = CurrentDb.Name
        PathStripPath (RepParDefaut)
        .lpstrInitialDir = Left(CurrentDb.Name, Len(CurrentDb.Name) - Len(Mid$(RepParDefaut, 1,  _
InStr(1, RepParDefaut, vbNullChar) - 1)))
        Else: .lpstrInitialDir = RepParDefaut
    End If
  End With
 
If (GetOpenFileName(StructFile)) Then 'Si un fichier est sélectionné
    Select Case TypeRetour
      Case 1: OuvrirUnFichier = Trim$(Left(StructFile.lpstrFile, InStr(1, StructFile.lpstrFile, vbNullChar)-1))
      Case 2: OuvrirUnFichier = Trim$(Left(StructFile.lpstrFileTitle, InStr(1,  StructFile.lpstrFileTitle, vbNullChar)-1))
    End Select
  End If 
 
End Function

Comme j'ai précisé, mon import "automatique" fonctionne nikel mais je veux que l'utilisateur aille chercher son fichier.
Si j'ai bien compris, le code ci dessus ouvre une boîte de dialogue (fonction publique), c'est cette fonction que je devrais appeler dans ma fonction d'import:

Code :

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

1
2
3
Private Sub Commande0_Click()
DoCmd.TransferText acImportDelim, ("Spe_import_state_achat"), "T_JANVIER", "C:\Documents and Settings\Roman P\Bureau\ETAT_GESTION\achatsjanvier2009.txt", False
End Sub

Là où je bloque: où dois je recopier le code d'ouverture de la boîte de dialogue, comment modifier mon transferText pour qu'il ouvre cette boîte?

Merci mille fois pour tes réponses

[Invité]

Bonjour

Résumons :

Tu copies tout le code dans un module.
Tu utilises la fonction OuvrirUnFichier comme l'exemple du MsgBox en bas de la source de la FAQ.
Ensuite sur ton click de bouton de commande (il faut renommer les boutons de commandes et ne jamais laisser le nom par défaut).
AU lieu d'utiliser la MsgBox tu utilises une variable de type String, à laquelle tu affectes la recherche.
Et ensuite tu récupères celle-ci dans ton transfert.

Ex :

Code :

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

1
2
3
4
5
Private Sub Commande0_Click()
    Dim strChemin as String
    strChemin =  OuvrirUnFichier(...)
DoCmd.TransferText acImportDelim, ("Spe_import_state_achat"), "T_JANVIER", strChemin, False
End Sub

Bien sûr il faut prendre exemple sur l'exemple de la FAQ pour les (...).

Philippe

[roman33]

Ca y est ....c'est excellent, mon projet avance à grands pas grâce à toi !!!

Dernière chose, comment puis je effectur un contrôle lors de mon import, si la table à remplir contient déjà des infos --> message d'alerte, sinon import?
Merci beaucoup pour tes lumières

Roman

[User]

Slt,

Pour compléter les infos de Jeannot45 et Philippe, tu peux tester si ton fichier est vide avec DAO:

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
Dim rs As DAO.Recordset
Dim strChemin as String
 
Set rs = CurrentDb.OpenRecordset("T_JANVIER")
 
   if (rs.eof) then ' Si la table est vide.  
      strChemin =  OuvrirUnFichier(...)
      DoCmd.TransferText acImportDelim, ("Spe_import_state_achat"), "T_JANVIER", strChemin, False
   else 'Sinon
      MsgBox "La table contient déjà des données ..."
   end if
 
rs.close 
 
...

A+

[roman33]

J'utilise cette fonction qui marche très bien

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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
Public Function OuvrirUnFichier(Handle As Long, _
                                Titre As String, _
                                TypeRetour As Byte, _
                                Optional TitreFiltre As String, _
                                Optional TypeFichier As String, _
                                Optional RepParDefaut As String) As String
 'OuvrirUnFichier est la fonction a utiliser dans votre formulaire pour ouvrir _
 'la boîte de dialogue de sélection d'un fichier.
 'Explication des paramètres
    'Handle = le handle de la fenêtre (Me.Hwnd)
    'Titre = Titre de la boîte de dialogue
    'TypeRetour (Définit la valeur, de type String, renvoyée par la fonction)
        '1 = Chemin complet + Nom du fichier
        '2 = Nom fichier seulement
    'TitreFiltre = Titre du filtre
        'Exemple: Fichier Access
        'N'utilisez pas cet argument si vous ne voulez spécifier aucun filtre
    'TypeFichier = Extention du fichier (Sans le .)
        'Exemple: MDB
        'N'utilisez pas cet argument si vous ne voulez spécifier aucun filtre
    'RepParDefaut = Répertoire d'ouverture par defaut
        'Exemple: C:\windows\system32
        'Si vous laissé l'argument vide, par defaut il se place dans le répertoire de votre application
 
Dim StructFile As OPENFILENAME
Dim sFiltre As String
 
 'Construction du filtre en fonction des arguments spécifiés
If Len(TitreFiltre) > 0 And Len(TypeFichier) > 0 Then
  sFiltre = TitreFiltre & " (" & TypeFichier & ")" & Chr$(0) & "*." & TypeFichier & Chr$(0)
End If
sFiltre = sFiltre & "Tous (*.*)" & Chr$(0) & "*.*" & Chr$(0)
 
 
 'Configuration de la boîte de dialogue
  With StructFile
    .lStructSize = Len(StructFile) 'Initialisation de la grosseur de la structure
    .hwndOwner = Handle 'Identification du handle de la fenêtre
    .lpstrFilter = sFiltre 'Application du filtre
    .lpstrFile = String$(254, vbNullChar) 'Initialisation du fichier '0' x 254
    .nMaxFile = 254 'Taille maximale du fichier
    .lpstrFileTitle = String$(254, vbNullChar) 'Initialisation du nom du fichier '0' x 254
    .nMaxFileTitle = 254  'Taille maximale du nom du fichier
    .lpstrTitle = Titre 'Titre de la boîte de dialogue
    .flags = OFN_HIDEREADONLY  'Option de la boite de dialogue
    If ((IsNull(RepParDefaut)) Or (RepParDefaut = "")) Then
        RepParDefaut = CurrentDb.Name
        PathStripPath (RepParDefaut)
        .lpstrInitialDir = Left(CurrentDb.Name, Len(CurrentDb.Name) - Len(Mid$(RepParDefaut, 1, _
InStr(1, RepParDefaut, vbNullChar) - 1)))
        Else: .lpstrInitialDir = RepParDefaut
    End If
  End With
 
If (GetOpenFileName(StructFile)) Then 'Si un fichier est sélectionné
    Select Case TypeRetour
      Case 1: OuvrirUnFichier = Trim$(Left(StructFile.lpstrFile, InStr(1, StructFile.lpstrFile, vbNullChar) - 1))
      Case 2: OuvrirUnFichier = Trim$(Left(StructFile.lpstrFileTitle, InStr(1, StructFile.lpstrFileTitle, vbNullChar) - 1))
    End Select
  End If
 
End Function

En revanche je voudrais la verrouiller: si l'uilisateur clique sur annuler pour ne pas importer de table, alors annuler de l'action faîte lorsque l'util a cliquer sur "IMPORTER" car une table se vide à ce moment là et surtout ne pas avoir le message de débogage ACCESS mais revenir directement à mon menu d'import...
Avez vous une idée?
Bonne soirée

[roman33]

Pour palier au problème j'ai inséré une msg box d'avertissement à l'ouverture de la boîte de dialogue import

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
Private Sub IMPORT_JANVIER_ACHAT_Click()
 
Dim Msg, Style, Title, Response, MyString
 
Msg = "Vous allez écraser votre table et en importer une autre  -- CLIQUER SUR NON POUR ANNULER"
Style = vbYesNo + vbCritical + vbDefaultButton2
Title = "Attention"
 
 
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
 
If Response = vbYes Then    ' User chose Yes.
    MyString = "Yes"    ' Perform some action.
 
    Dim strChemin As String
    DoCmd.OpenQuery "JANVIER_TABLE_SUPP"
    DoCmd.OpenQuery "JANVIER_TABLE_COLY_SUPP"
    strChemin = OuvrirUnFichier(Me.Hwnd, "Parcourir", 1, "Fichier Text", "txt")
DoCmd.TransferText acImportDelim, ("Spe_import_state_achat"), "T_JANVIER", strChemin, False
DoCmd.OpenQuery "JANVIER_TABLE_COLY_AJOUT"
 
Else    ' User chose No.
    MyString = "No"    ' Perform some action.
 
End If
End Sub

Par contre ensuite ds le code d'importation du 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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
Public Function OuvrirUnFichier(Handle As Long, _
                                Titre As String, _
                                TypeRetour As Byte, _
                                Optional TitreFiltre As String, _
                                Optional TypeFichier As String, _
                                Optional RepParDefaut As String) As String
 'OuvrirUnFichier est la fonction a utiliser dans votre formulaire pour ouvrir _
 'la boîte de dialogue de sélection d'un fichier.
 'Explication des paramètres
    'Handle = le handle de la fenêtre (Me.Hwnd)
    'Titre = Titre de la boîte de dialogue
    'TypeRetour (Définit la valeur, de type String, renvoyée par la fonction)
        '1 = Chemin complet + Nom du fichier
        '2 = Nom fichier seulement
    'TitreFiltre = Titre du filtre
        'Exemple: Fichier Access
        'N'utilisez pas cet argument si vous ne voulez spécifier aucun filtre
    'TypeFichier = Extention du fichier (Sans le .)
        'Exemple: MDB
        'N'utilisez pas cet argument si vous ne voulez spécifier aucun filtre
    'RepParDefaut = Répertoire d'ouverture par defaut
        'Exemple: C:\windows\system32
        'Si vous laissé l'argument vide, par defaut il se place dans le répertoire de votre application
 
Dim StructFile As OPENFILENAME
Dim sFiltre As String
 
 'Construction du filtre en fonction des arguments spécifiés
If Len(TitreFiltre) > 0 And Len(TypeFichier) > 0 Then
  sFiltre = TitreFiltre & " (" & TypeFichier & ")" & Chr$(0) & "*." & TypeFichier & Chr$(0)
End If
sFiltre = sFiltre & "Tous (*.*)" & Chr$(0) & "*.*" & Chr$(0)
 
 
 'Configuration de la boîte de dialogue
  With StructFile
    .lStructSize = Len(StructFile) 'Initialisation de la grosseur de la structure
    .hwndOwner = Handle 'Identification du handle de la fenêtre
    .lpstrFilter = sFiltre 'Application du filtre
    .lpstrFile = String$(254, vbNullChar) 'Initialisation du fichier '0' x 254
    .nMaxFile = 254 'Taille maximale du fichier
    .lpstrFileTitle = String$(254, vbNullChar) 'Initialisation du nom du fichier '0' x 254
    .nMaxFileTitle = 254  'Taille maximale du nom du fichier
    .lpstrTitle = Titre 'Titre de la boîte de dialogue
    .flags = OFN_HIDEREADONLY  'Option de la boite de dialogue
    If ((IsNull(RepParDefaut)) Or (RepParDefaut = "")) Then
        RepParDefaut = CurrentDb.Name
        PathStripPath (RepParDefaut)
        .lpstrInitialDir = Left(CurrentDb.Name, Len(CurrentDb.Name) - Len(Mid$(RepParDefaut, 1, _
InStr(1, RepParDefaut, vbNullChar) - 1)))
        Else: .lpstrInitialDir = RepParDefaut
    End If
  End With
 
If (GetOpenFileName(StructFile)) Then 'Si un fichier est sélectionné
    Select Case TypeRetour
      Case 1: OuvrirUnFichier = Trim$(Left(StructFile.lpstrFile, InStr(1, StructFile.lpstrFile, vbNullChar) - 1))
      Case 2: OuvrirUnFichier = Trim$(Left(StructFile.lpstrFileTitle, InStr(1, StructFile.lpstrFileTitle, vbNullChar) - 1))
    End Select
  End If
 
End Function

Si je clique sur annuler alors j'ai toujours un message d'erreur, comment faire en sorte que la boite de dialogue se ferme si l'on clique sur annuler?

Merci pour vos aides.
Roman