Discussion :

[SylvainJ]

Bonjour,

J'essaie de manipuler des objets Excel depuis Access et je trouve ca plutot coton.

Je voudrais faire 2 choses
- 1: mettre des filtres automatiques sur les 3 premieres colonnes (ca, ca marche)
- 2: figer les volets sur la case D2 (ca, ca ne marche pas)

Quelqu'un peut-il me dire ce qui ne va pas dans mon programme (partie en gras)? Je ne sais plus comment faire.

Merci

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
Function AjouterFiltres(ByVal strClasseur As String, ByVal strFeuille As String)

Dim xlApp As Excel.Application
Dim wbk As Excel.Workbook
Dim sht As Excel.Worksheet

' Ouvrir le classeur concerné
Set xlApp = CreateObject("Excel.Application")
Set wbk = xlApp.Workbooks.Open(strClasseur)

' Désactiver les messages de confirmation d'Excel
'xlApp.DisplayAlerts = False

Set sht = wbk.Worksheets(strFeuille)

'Ajout de filtres Automatiques
sht.Columns("A:C").AutoFilter

'Figer les volets
sht.Range("D2").Select
sht.FreezePanes = True

Set sht = Nothing
wbk.Close True

Set wbk = Nothing

' Réactiver les msg de confimation d'Excel
'xlApp.DisplayAlerts = True

' Quitter Excel
xlApp.Quit
Set xlApp = Nothing
    
End Function

[SfJ5Rpw8]

FreezePanes s'applique à une fenêtre ..:

Code :

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

1
2
3
4
 
'Figer les volets
sht.Range("D2").Select 
xlAPP.ActiveWindow.FreezePanes = True

[SylvainJ]

Merci pour l'info.
Hélas, j'ai toujours un message d'erreur me disant que la méthode select de la classe Range a échoué (erreur 1004) juste avant l'instruction de freeze.

[SylvainJ]

C'est bon, ca marche: J'avais refait un essai sur un fichier ou les filtres etaient deja en place ce qui faisaient raté l'exécution. Désolé.
Pb résolu, merci.

[SylvainJ]

J'ai parlé trop vite. J'ai implémenté ma procédure dans mon véritable programme (exécution journalière) et j'ai de nouveau le message d'erreur.

Il y a 2 cas:

Cas1 - Anciens Fichiers (fichiers journaliers, les données de la veille sont supprimées)
En résumé, je supprime les 2 feuilles du classeur qui ont eu la veille (en theorie) l'ajout des filtres et les volets figés.
Dans ce cas, j'ai le msg d'erreur pour les 2 feuilles.

Cas2 - Nouveau Fichier (fichier mensuel)
La, ca marche pour la première feuille et j'ai le msg d'erreur pour la 2de.

Toutes les suggestions sont les bienvenues

[SfJ5Rpw8]

il faut activer la feuille avant..:

Code :

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

1
2
3
4
5
6
7
8
 
 
'Figer les volets
sht.Activate 'Active feuille
sht.Range("D2").Select 
xlAPP.ActiveWindow..FreezePanes = False
DoEvents
xlAPP.ActiveWindow.FreezePanes = True

[SylvainJ]

Merci bcp.
Entre temps j'ai rajouté un petit sht.select avant sht.Range("D2").Select et ca à l'air de fonctionner.
Je garde ta solution au chaud au cas ou. Je pense qu'elle va me servir pour d'autres prog que j'ai à faire. Donc merci encore, pb résolu (pour de bon j'espere).