Discussion :

[Christophe93250]

bonjour , j'aurais 2 petites questions :
1) serait il possible lors d'une automation d'export vers excel d'obliger le tableur a faire un filtre automatique sur les entêtes de colonnes?
2) serait il possible de remplacer toutes les données par une autre?
ou bien tout cela doit se programmer dans excel ?

[Christophe93250]

en fait je m'explique :

j'ai une requête access qui part vers un fichier xl qui doit etre mis en ligne pour etre a la disposition de tout le monde :

cependant je dois faire des modifications à la main :
1) je dois changer qques titres des entêtes
2) je dois changer des VRAI / FAUX par des OUI / NON
3) je dois faire apparaitre les entêtes de colonnes dans un filtre automatique
4) je dois faire un TCD
selon la méthode de caféine d'automation il est juste indiqué comment pouvoir laisser le TCD en 2eme page, ce qui evite donc de le refaire, vu que de toute manière il s'adaptera aux données .
Cependant les 3 premières infos ne sont pas indiquées dans le tuto,
si qqun peut m'aider

[MC2]

Salut,
quelle "méthode" utilises-tu pour exporter vers Excel ?

1) Les filtres auto d'Excel sont propres à Excel et doivent se manipuler dans Excel (ce peut être via l'OLE).
2) Que signifie "remplacer toutes les données par une autre" ?
- tu veux exporter en remplaçant d'anciennes données exportées ?
- ou bien tu veux modifier tes données exportées, style remplacer un code par son libellé ?
nos posts se sont croisés...

[Christophe93250]

oki pour le filtre auto dommage
pour ce qu'il faut remplacer c'est juste faux par non et vrai par oui
sinon changer les entêtes pour que les titres soient plus compréhensibles
je compte bien faire la méthode d'automation pour que cela se fasse simplement en un clic selon la méthode de caféine (pour l'instant je faisais une exportation simple via la barre d'outils).

[Muhad'hib]

Salut,

A ma connaissance toute action possible sur Excel peut être réalisée depuis Access (sauf peut-être la gestion de sécurité).

Tu peux (pour le filtre auto) créer une nouvelle macro, copier le code VBA d'Excel et t'en inspirer pour construire ton code dans Access. J'insiste, il ne s'agit pas de copier/coller, il s'agit de comprendre et d'adapter le code d'Excel à Access.

Par exemple si sur Excel on as le code suivant :

Code :

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

1
2
3
4
 
    Range("A1:Z67").Select
    Selection.AutoFilter
    Selection.AutoFilter Field:=6, Criteria1:="BTZ1"

Dans Access tu aura un sub contenant qqchose du genre de :

Code :

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

1
2
3
4
5
6
7
 
Dim Excelsheet As Object
Set Excelsheet = GetObject("D:\monrep\monclasseur.xls")
Excelsheet.Application.Visible = True
Excelsheet.Windows("monclasseur.xls").Visible = True
Excelsheet.Sheets("Feuil1").Range("A1:Z67").AutoFilter Field:=6, Criteria1:="BTZ1"
Set Excelsheet = Nothing

Voila par exemple ce qu'il faut faire pour adapter une fonction d'Excel dans Access. Tiens en fait .... mais c'est la fonction filtre auto !!!!


A+

[random]

1 je dois changer le titre
dans ta requete access fais en sql as pour renommer le champ
ou nouveaunom:[exnom] en qbe
2 je dois changer des vrai faux
dans ta requete au lieu de prendre ton champ
mets vraifaux([monchamp];"OUI";NON")
3 et 4 sont réglés apparemment

[Christophe93250]

niquel merci beaucoup pour vos réponses, par contre muadhib, j'imagine que fields c pour dire le nombre de champs que comporte le tableau excel, mais a quoi ca correspond ca : Criteria1:="BTZ1" ?

[Muhad'hib]

Salut,

Ben c'est un exemple, ça veux rien dire.
Mais :

Code :

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

Field:=6

C'est la colonne sur laquelle porte le filtre

Code :

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

Criteria1:="BTZ1"

C'est le critère de filtre.

A+

[Christophe93250]

ah oki je viens de comprendre en fait ton code permet un filtre automatique sur la requete, mais pour excel, un filtre auto c'est une serie de menus déroulants qui se fait sur les entêtes de colonnes... pour que l'utilisateur du fichier excel puisse choisir lui meme ses criteres.

[Muhad'hib]

Ben non, c'est bien un filtre auto sur excel (merci pour la def, j'étais au courant ). C'est juste que mon code met un filtre auto et fait une selection en même temps. Comme si dans Excel, tu avais mis le filtre auto ( tu sais

un filtre auto c'est une serie de menus déroulants qui se fait sur les entêtes de colonnes... pour que l'utilisateur du fichier excel puisse choisir lui meme ses criteres.

re- ), puis tu avais, dans la colonne "F" choisis dans la liste proposée de faire un filtre auto sur la valeur "BTZ1".

Si tu veux juste faire un filtre sans lancer une sélection tu fais :

Code :

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

1
2
3
4
5
6
7
 
Dim Excelsheet As Object 
Set Excelsheet = GetObject("D:\monrep\monclasseur.xls") 
Excelsheet.Application.Visible = True 
Excelsheet.Windows("monclasseur.xls").Visible = True 
Excelsheet.Sheets("Feuil1").Range("A1:Z67").AutoFilter
Set Excelsheet = Nothing

A+

[Christophe93250]

ok parfait merci