Discussion :

[kesamba]

Bonjour,

J'ai un formulaire ACCESS avec plusieurs colonnes dont je peux masquer certains et rendre d'autres visible.
J'aimerai exporter ce formulaire vers excel.
Y-a-t'il un moyen avec VBA ACCESS d' exporter vers EXcEL seulement les colonnes visibles de mon formulaire?.

Merci pour votre aide

[loufab]

Bonjour,

Via VBA il faut créer une requête basée sur la table source du formulaire et balayer les colonnes une à une pour repérer celles qui sont visibles, il n'y a plus qu'à rajouter le nom de la colonne dans la partie SELECT.
Une fois la requête composée on la sauve en tant que query pour la jouer avec l'instruction TransfertSpreadSheet classique.

Cordialement,

[kesamba]

merci pour la réponse mais c est pas aussi évident parceque je ne sais pas au préalable quelle colonne l'utilisateur rend visible ou pas.
1- à l'ouverture du formulaire(feuilles de données) tous les colonnes sont visibles.
2- L'utilisateur rend visible les colonnes dont il a besoin.
3-il enregistre ce formulaire sous un autre nom
4-il exporte vers excel seulement les colonnes visibles du nouveau formulaire. c'est ici qu'il ya probleme parceque toutes les colonnes(memes ceux qui ne sont pas visibles) sont exportées vers excel.

[loufab]

Si c'est justement très évident, au moment ou tu vas déclencher la procédure les colonnes sont déjà marquées visible/cachée et c'est cette procédure qui va prendre les colonnes visibles et écarter les non visibles.

Y a plus qu'à !

[kesamba]

Merci mais tu peux me faire un exemple parceque je ne comprend pas très bien ton explication. Je ne sais pas comme dire à la requête de ne choisir que les colonnes visibles. J ai essayé ceci Properties("ColumnHidden") = -1 ca ne marche pas.
Sinon voici ce qu j'ai essayé de faire biensûr ca ne marche pas. Est ce que tu peux completer ma requete?

Code :

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

1
2
3
4
sSQL = "SELECT * FROM " & Me.RecordSource
    If Me!FilterOn Then
        sSQL = sSQL & " WHERE " & Me!Filter
    End If

Merci d'avance

[loufab]

Il faut faire une boucle autour de la première ligne pour insérer les noms de la source des colonnes si elles correspondent.

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
 
sSQL = "SELECT "
for each ctr...
   if not ctr.columnhidden then
       sSQL = sSQL &  ctr.controlsource & " ,"
   endif
next
 
 sSQL = left(sSQL,len(sSql)-1)
 
 sSQL = sSQL &  FROM " & Me.RecordSource
 
    If Me!FilterOn Then
        sSQL = sSQL & " WHERE " & Me!Filter
    End If

cet exemple n'est pas finalisé mais c'est à peut près ce que tu dois faire.

Cordialement,

[kesamba]

voici ce que j'ai fait

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
sSql = "SELECT "
For Each ctr In Me.Controls
If Not ctr!ColumnHidden Then
      sSql = sSql & ctr!ControlSource & " ,"
   End If
Next
 
 sSql = Left(sSql, Len(sSql) - 1)

 sSql = "SELECT * FROM " & Me.RecordSource
 If Me.FilterOn Then

      sSql = sSql & " WHERE " & Me.Filter
        End If

ça me renvoie l'erreur suivante "erreur d'exécution 438 : propriété ou méthode non gérée par cet objet".

voici la partie concernée par l'erreur ]

Code :

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

  If Not ctr!ColumnHidden Then

Merci d'avance

[loufab]

ctr doit être déclaré, il s'agit d'un type Control

pourquoi tu mets un "!" au lieu d'un "." ?

Lorsque tu n'auras plus d'erreur mets un point d'arrêt pour suivre ce qui se passe et comprendre pourquoi cela ne fonctionne pas. Il vaut mieux toujours être autonome que copiste dans ce métier.

[kesamba]

Bonjour,

j'ai déclaré ctr, mais toujours rien.

j'ai mis un "!" au lieu d'un "." parce que "." me renvoyais une erreur.


Merci

[loufab]

Admettons un formulaire en mode feuille de données composé des zone de texte et des étiquettes associées.
Voici le code à créer dans un module standard ou un autre formulaire pour obtenir un début de chaine sql valide.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim ctr As Control
Dim frm As Form
Dim ssql As String
Set frm = Forms.Nom_form_feuillededonnées
 
ssql = "SELECT "
For Each ctr In frm.Controls
   If TypeOf ctr Is TextBox Then
   If Not ctr.ColumnHidden Then
      ssql = ssql & ctr.ControlSource & " ,"
   End If
   End If
Next
Debug.Print ssql

Le typeof évite de prendre les étiquettes mais ne retient que les zones de texte

A toi d'adapter et de compléter pour former une chaine sql valide.

[kesamba]

Bonjour,

J'ai malheuresement une erreur 3075 à cet endroit

Code :

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

 ssql = ssql & ctr.ControlSource & " ,"

Le message complet est :

Erreur de syntaxe (opérateur absent) dans l'expression "Nom_du_champs"

j'ai pensé qu'il fallait mettre les crochets

Code :

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

 ssql = ssql & Chr(91) & ctr.ControlSource & Chr(93) & " , "

mais rien à faire ça ne veux pas tout simplement marcher
Merci d'avance pour votre aide

[loufab]

Pourquoi utiliser des chr() pour des caractères non étendu ? Pour améliorer l'illisibilité du code ?

Si l'erreur se produit sur cette ligne ce n'est pas un problème de crochet, dans ce cas le problème se produirait lors de la lecture du script SQL, le code n'en est pas encore là.

Que contient ControlSource lorsque tu l'interroge ?

[kesamba]

ça me donne seulement les colonnes visibles du formulaire.

[loufab]

C'est donc que ça fonctionne.
il y a quelque chose que tu ne nous dis pas.

Ce code fonctionne parfaitement normalement.

Peux-tu poster ton appli ?

[kesamba]

bonjour,
ci-Joint l'appli

Merci

[loufab]

Bonjour,
Je suis perplexe... L'erreur ne se produit pas sur la ligne indiquée mais sur l'ouverture du recordset.

Ce qui est normal puisque ton script SQL est incomplet. Voici de quoi le compléter.

http://access.developpez.com/sql/

http://office.microsoft.com/fr-fr/ac...010256402.aspx

Cordialement,

[kesamba]

Tu as raison j'avais oublié de donner la source
J'ai corrigé ma requête mais je reçois toujours la même erreur.

Erreur d'exécution 438 # :
Objet ne gère pas cette propriété ou cette méthode

voici le code corrigé ci-dessous.

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
 
Set frm = Forms.Liste_des_produits
 db = CurrentDb
ssql = "SELECT "
For Each ctr In frm.Controls
   If TypeOf ctr Is TextBox Then
   If Not ctr.ColumnHidden Then
      ssql = ssql & ctr.ControlSource & ","
       End If
   End If
 
Next
ssql = Left(ssql, Len(ssql) - 1)
 
 ssql = ssql & " FROM " & frm.RecordSource
Debug.Print ssql
 
Set rs2 = db.OpenRecordset(ssql)

Merci de ton aide

[loufab]

Quelle ligne ?

[kesamba]

ici

Code :

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

Set rs2 = db.OpenRecordset(ssql)

Merci

[loufab]

Vérifie le type d'objet rs2.
Vérifie le contenu de ssql lorsque cette ligne est exécutée.