Ouvrir access à partir Excel avec tri par ordre

Version imprimable

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:

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

Salut
Le plus simple serait de le faire sur le form directement.
Onglet Données - Propriété Tri par : ORDER BY DateOperation ASC
Sinon et a tester
Code:

1 2 3 4 5 6 Dim strOrderBy As String strOrderBy = "[DateOperation ] ASC" objAccess.DoCmd.OpenForm "_f_Navigation", acNormal Forms![_f_Navigation].OrderBy = strOrderBy Forms![_f_Navigation].OrderByOn = True

merci hyperion13 pour ta réponse,
Je me suis légèrement trompé dans ma demande, mais je pense que ça n'a pas d'importance. En effet "dateOperation" se trouve dans un contrôle d'onglets.
1-Auparavant, effectivement, je triais en arrivant dans le formulaire. Mais je voulais m'épargner un clic !
2-J'ai repris ta formule avec 2 lignes en plus (provisoires pour vérifier que je suis sur la bonne colonne :
Code:

1 2 3 4 Forms("[_f_Navigation]").Controls("[Formulaire Operation]").Controls("[dateOperation]").Visible = False Forms("[_f_Navigation]").Controls("[Formulaire Operation]").Controls("[dateOperation]").Visible = True Forms("[_f_Navigation]").Controls("[Formulaire Operation]").Controls("[dateOperation]").OrderBy = strOrderBy Forms("[_f_Navigation]").Controls("[Formulaire Operation]").Controls("[dateOperation]").OrderByOn = True
La 1ère et la deuxième ligne s'exécutent parfaitement, puis lorsque j'arrive sur la 3ème ligne, j'obtiens le message :

Citation:

Erreur d'exécution '438' : Propriété ou méthode non gérée par cet objet.

08/08/2022, 16h21
hyperion13

re,
Vous êtes, sauf erreur de ma part, dans un formulaire de navigation.
A l'ouverture de votre form de navigation, l'onglet Opérations est-il actif?

Citation:

Envoyé par Superpat9999

Code:

1
2
3
 
        Forms("[_f_Navigation]").Controls("[Formulaire Operation]").Controls("[dateOperation]").OrderBy = strOrderBy
        Forms("[_f_Navigation]").Controls("[Formulaire Operation]").Controls("[dateOperation]").OrderByOn = True

Normal, c'est le formulaire qu'il faut trier.
Pas le contrôle ...

08/08/2022, 16h58
hyperion13

@Superpat9999 va rester sur sa faim.
La juste syntaxe est laquelle ?

Citation:

Envoyé par deedolith

Normal, c'est le formulaire qu'il faut trier.
Pas le contrôle ...
08/08/2022, 17h05
deedolith

J'essaierais ceci:

Code:

Forms("[_f_Navigation]").Controls("[Formulaire Operation]").OrderBy = strOrderBy

Ou cela:

Code:

Forms("[Formulaire Operation]").OrderBy = strOrderBy
08/08/2022, 18h45
Superpat9999

Citation:

Envoyé par hyperion13

re,
Vous êtes, sauf erreur de ma part, dans un formulaire de navigation.
A l'ouverture de votre form de navigation, l'onglet Opérations est-il actif?

Non, il s'agit d'un formulaire "_f_Navigation" où j'ai installé un contrôle d'onglets avec un formulaire dans chaque onglet.
Oui l'onglet est actif.

Citation:

Envoyé par deedolith

J'essaierais ceci:

Code:

Forms("[_f_Navigation]").Controls("[Formulaire Operation]").OrderBy = strOrderBy

Ou cela:

Code:

Forms("[Formulaire Operation]").OrderBy = strOrderBy

La première solution me donne Erreur 438 Propriété ou méthode non gérée par cet objet
La seconde solution me donne Erreur 2450 ... ne trouve pas le formulaire "formulaire Opération" auquel il est fait référence.
Les lignes 1 et 2 que j'avais rajouté, me masquaient bien la colonne DateOperation puis la rendaient visible.

2 pièce(s) jointe(s)

re
pour ma part, lorsqu'on évoque formulaire de navigation, c'est le type de form en img1.
à priori vous avez un form principal dans lequel vous avez inséré un contrôle d'onglets img2
Code:

1 2 3 4 5 Dim strOrderBy As String strOrderBy = "[dateOperation] DESC" 'Forms![_f_Navigation]![Formulaire Operation].SetFocus Forms![_f_Navigation]![Formulaire Operation].Form.OrderBy = strOrderBy Forms![_f_Navigation]![Formulaire Operation].Form.OrderByOn = True

Effectivement, au départ de ma programmation j'étais parti sur un formulaire de navigation, puis j'ai changé d'avis, suite à divers conseils sur le forum, j'ai changé pour un contrôle d'onglets, mais je n'ai pas changé le nom de mon premier formulaire. Donc c'est bien l'image 2.
J'ai encore un problème, lorsque je lance ma macro, il s'arrête sur la ligne 2
Code:

1 2 3 objAccess.DoCmd.OpenForm "_f_Navigation", acNormal Forms![_f_Navigation]![Formulaire Operation].Form.OrderBy = strOrderBy Forms![_f_Navigation]![Formulaire Operation].Form.OrderByOn = True
Et Access m'indique :

Citation:

erreur 462 le serveur distant n'existe pas.

Je réinitialise la macro et je lance une nouvelle macro :
Code:

1 2 3 4 5 6 7 Sub Y4_Changer_Ordre() Dim strOrderBy As String strOrderBy = "[DateOperation] DESC" '3-2-1 date + récente Décroissant 'strOrderBy = "[DateOperation] ASC" '1-2-3 date + ancienne Croissant Forms![_f_Navigation]![Formulaire Operation].Form.OrderBy = strOrderBy Forms![_f_Navigation]![Formulaire Operation].Form.OrderByOn = True End Sub
Et là, pas de message et tout se passe impeccablement.
Je précise, je suis en mode partagé.

08/08/2022, 21h19
hyperion13
re
erreur 462 parce que le processus Microsoft Access n'est pas arrêté, et ne le sera tant qu'Excel ne sera pas entièrement fermé.
vous pouvez utiliser
Code:

1 2 3 Dim strKill As String strKill = "TASKKILL /F /IM MSACCESS.exe" Shell strKill, vbHide

Citation:
Envoyé par Superpat9999
Code:

1 2 3 objAccess.DoCmd.OpenForm "_f_Navigation", acNormal Forms![_f_Navigation]![Formulaire Operation].Form.OrderBy = strOrderBy Forms![_f_Navigation]![Formulaire Operation].Form.OrderByOn = True
Vu que tu est sous Excel, ca ne peut pas fonctionner, et c'est normal, la collection Forms est propre à Access.

Par contre, tu peux utiliser des références:
Code:

1 2 3 4 objAccess.DoCmd.OpenForm "_f_Navigation", acNormal Dim Frm as Object '// Access.Form Set Frm = objAccess.Forms("_f_Navigation")

Merci à tous les 2 pour votre sympathique participation.
Le code fonctionne parfaitement

Code:

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 Frm As Object                                   '// Access.Form
    Dim CheminDB As String
    Dim strOrderBy As String
    strOrderBy = "[DateOperation ] DESC"                '3-2-1  date Décroissant
    Dim OuvrirFichier As Boolean
    NomProcedure = "OuvrirAccess"
    Fichier = "Nav_Courant_10-20.accdb"
    Repertoire = "D:\Dropbox\Access\Travail\OK\"
    CheminDB = Repertoire & Fichier
    If FichierExiste(Repertoire & Fichier) = True Then
    Else
        MsgBox "Le dossier " & CheminDB & " n'existe pas."
        End
    End If
    'Ouvre le Formulaire
    objAccess.OpenCurrentDatabase CheminDB
    Set Frm = objAccess.Forms("_f_Navigation")
    Forms![_f_Navigation]![Formulaire Operation].Form.OrderBy = strOrderBy
    Forms![_f_Navigation]![Formulaire Operation].Form.OrderByOn = True
    'Pour rendre le tout visible à l'utilisateur
    objAccess.Visible = True
    Set objAccess = Nothing
End Sub

Salut
en tenant compte de la remarque de @deedolith
Ligne 17 ci-dessous .Forms![_f_Navigation].Controls("sf_C").SetFocus,
- remplacez "sf_C", par le nom que porte l'onglet dans votre form. Probablement Opération,selon discussion forum Access.

Code:

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 strOrderBy As String
    Dim OuvrirFichier As Boolean
    NomProcedure = "OuvrirAccess"
    Fichier = "Nav_Courant_10-20.accdb"
    Repertoire = "D:\Dropbox\Access\Travail\OK\"
    CheminDB = Repertoire & Fichier
    If FichierExiste(Repertoire & Fichier) = True Then ' le fichier existe, on exécute le processus d'ouverture de la bdd
        With objAccess
            Application.DisplayAlerts = False
            .OpenCurrentDatabase CheminDB ' ouverture bdd
            .Visible = True ' rendre visible à l'écran
            .DoCmd.OpenForm "_f_Navigation" ' ouvri le form
            .Forms![_f_Navigation].Controls("sf_C").SetFocus ' prendre le focus sur l'onglet concerné
            strOrderBy = "[DateOperation] DESC"              ' 3-2-1  date Décroissant
            .Forms![_f_Navigation].[Formulaire Operation].Form.OrderBy = strOrderBy ' chaine pour ordonner le tri
            .Forms![_f_Navigation].[Formulaire Operation].Form.OrderByOn = True ' activation du tri
        End With
    Else
        MsgBox "Le dossier " & CheminDB & " n'existe pas."
    End If
    Set objAccess = Nothing
End Sub

09/08/2022, 20h16
Superpat9999

Code:

.Forms![_f_Navigation].Controls("Opération").SetFocus ' prendre le focus sur l'onglet concerné

C'est cela, encore merci