Bonjour
J'ai mon code qui me permet d'ouvrir Access, tout fonctionne bien, maintenant je veux savoir s'il est possible de trier mon champs tel que:
OrderBy = "DateOperation asc"
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
 Sub Y3_OuvertureFormAccess()
          'Défini un objet access
          Dim objAccess As New Access.Application
          Dim CheminDB As String
          'Dim Repertoire As String
          'Dim Fichier As String
          Dim OuvrirFichier As Boolean
10        NomProcedure = "OuvrirAccess"
11        Fichier = "Nav_Courant_10-20.accdb"
12        Repertoire = "D:\Dropbox\Access\Travail\OK\"
13        CheminDB = Repertoire & Fichier
14        If FichierExiste(Repertoire & Fichier) = True Then
              'Debug.Print "Le dossier " & CheminDB & " existe..."
15        Else
              'Debug.Print "Le dossier " & CheminDB & " n'existe pas."
16            MsgBox "Le dossier " & CheminDB & " n'existe pas."
17            End
18        End If
19        objAccess.OpenCurrentDatabase CheminDB
          'Ouvre le Formulaire, acNormal pour le voir en mode affichage,
20        objAccess.DoCmd.OpenForm "_f_Navigation", acNormal
 
          'Pour rendre le tout visible à l'utilisateur
21        objAccess.Visible = True
22        Set objAccess = Nothing
      End Sub
Merci de votre aide