Exporter un sous-formulaire vers Excel

Version imprimable

Voir 40 message(s) de cette discussion en une page

Bonjour à tous.
Je n'arrive pas à exporter les champs d'un sous-formulaire.
(Ce sous-formulaire s'affiche dans un formulaire)
Sur le formulaire j'ai créé un bouton qui appelle le module suivant :
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 Function exportexcel() Dim appexcel As Excel.Application Dim wbexcel As Excel.Workbook Set appexcel = CreateObject("Excel.Application") appexcel.Visible = True Set wbexcel = appexcel.Workbooks.Open(CurrentProject.Path & "\Monclasseur.xls") appexcel.Sheets("Feuil1").Select Let ligne = 2 'Exportation des champs du formulaire: appexcel.Cells(ligne, 1) = Forms!formulaire.Client.Value appexcel.Cells(ligne, 2) = Forms!formulaire.Pays.Value appexcel.Cells(ligne, 3) = Forms!formulaire.Ville.Value appexcel.Cells(ligne, 4) = Forms!formulaire.Adresse.Value Let ligne = 3 'Tentatives d'exportation des champs du sous-formulaire: appexcel.Cells(ligne, 2) = Forms![formulaire]![sousformulaire]![type].Value appexcel.Cells(ligne, 3) = Forms!formulaire.Form!sousformulaire.type.Value End Function
Les champs du formulaire sont correctement exportés.
Mais j'ai une erreur d'exécution pour les tentatives d'exportation du sous-formulaire:
Impossible de trouver le champ 'sousformulaire' auquel il est fait référence dans votre expression. (Il s'agit des deux dernières lignes avant le End Function)
Il reconnait donc mon sousformulaire comme un champ et n'atteint pas le champ désiré. :?

J'ai aussi essayé de cette manière:

Code:

appexcel.Cells(ligne, 2) = Forms!sousformulaire.type.Value

Mais dans ce cas il ne trouve pas le sous-formulaire.

La méthode d'exportation est un peu brute. Dois-je changer de méthode?
J'ai lu sur ce forum que le code suivant pouvait m'être utile:

Code:

me.NomSousForm.Form.Recordset

Dois-je alors passer par un recordset?
Merci d'avance!
;)

29/10/2010, 14h46
loufab

Bonjour,

Passer par un recordset est un peu plus rapide. (voir le tuto sur ma page perso : La recherche , 3ème chapitre : Export Excel).

Pour la syntaxe d'un sous formulaire, ça ne s'invente pas ;) :

Code:

Forms.NomFormulaire.NomSousformulaire.Form.NomControle.Value

ça fait également l'objet d'un tuto (toujours sur ma page perso.)

Bonne lecture.

Bonjour fab, merci pour ta réponse.

J'ai tenté d'intégrer ton code se trouvant au chapitre "V. Export excel" de la recherche sur ton site.
Lorsque je le lance par un bouton, je reçois l'erreur de compilation suivante :
"Membre de méthode ou de données introuvable"
Private Sub cmd_Export_Click() est surligné en jaune
.lst_resultat est surligné en bleu (de la ligne If Me.lst_resultat.ListCount = 1 Then)

Le code qui pose problème est celui se trouvant sur le formulaire à exporté :
Code:

1 2 3 4 5 6 7 8 9 Private Sub cmd_Export_Click() ' ne contient pas d'enregistrement If Me.lst_resultat.ListCount = 1 Then MsgBox "Pas de données à exporter.", vbOKOnly, "Export EXCEL" Exit Sub End If ' Exporte vers EXCEL lf_Export2EXCEL Me.lst_resultat.RowSource End Sub
Voilà où je bloque :?

(Je travaille sous Access 2003 et Excel 2003)

02/11/2010, 10h38
loufab

Bonjour,

As-tu un controle liste nommé lst_resultat ?
02/11/2010, 11h16
valy_442

Non je ne pense pas.
De quoi s'agit-il?

Ne puis-je pas tout simplement apporter des modifications à mon code de base pour l'exportation vers excel du sous-formulaire?
02/11/2010, 14h39
loufab

Je t'ai communiqué dans mon premier message la syntaxe pour acceder à un sous formulaire. J'ai également répondu a tes interrogations concernant les performances des echanges Excel/Access via le recordset avec un exemple (à adapter) de celui-ci.

Apparement tu n'as pas lu mais juste fait un copier/coller d'un code issu du tuto. Mais est-ce le bon code que tu as copier ?
03/11/2010, 09h02
valy_442

J'avais essayé ta syntaxe pour l'accès au sous-formulaire, ca me donnait:
"Erreur d'exécution 2465 : erreur définie par l'application ou par l'objet."
avec ceci:

Code:

appexcel.Cells(ligne, 6) = Forms!formulaire.sousformulaire.Form.type.Value

Rien n'y fait.
J'ai remplacé NomControle par le nom du champ du sous formulaire que j'essaye d'atteindre. Est-ce bien cela?
J'avais déjà parcouru ton site auparavant mais je n'ai rien trouvé qui convenait à ce problème.
Désolé j'ai peu d'expérience en vb.
03/11/2010, 09h29
loufab

As-tu regardé le tuto sur les appels formulaires sur mon espace perso.

La syntaxe que je t'ai donnée est à titre d'exemple il est évident qu'il faut la modifier pour l'adapter à ton cas. (nom du controle mais également nom du sous-formulaire et du formulaire).
03/11/2010, 09h55
valy_442

A vrai dire je m'y perd un peu sur ton site.
Peux tu m'indiquer le lien vers la page dont tu me parles?:whistle2:
Evidemment j'ai adapté les noms de formulaire à mon cas mais j'écris formulaire et sous formulaire pour que ce soit plus clair.
Qu'appelles-tu nom du contrôle?
C'est bien le titre du champ, en quelque sorte ? (dans mon cas : type, adresse, ville, pays...?)

La ligne ci-dessous est elle correcte?

Code:

appexcel.Cells(ligne, 6) = Forms!formulaire.sousformulaire.Form.type.Value
03/11/2010, 10h29
loufab

C'est juste une liste commentée.
Voici le lien.
http://loufab.developpez.com/tutorie...pelformulaire/

T'inquiète pas pour la clarté et poste moi tes VRAIS lignes de code !

Voilà mon code (1er message)

Citation:

Envoyé par valy_442

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
Function exportexcel()
 
Dim appexcel As Excel.Application
Dim wbexcel As Excel.Workbook
 
Set appexcel = CreateObject("Excel.Application")
appexcel.Visible = True
Set wbexcel = appexcel.Workbooks.Open(CurrentProject.Path & "\Monclasseur.xls")
 
appexcel.Sheets("Feuil1").Select
 
    Let ligne = 2
    'Exportation des champs du formulaire:
    appexcel.Cells(ligne, 1) = Forms!formulaire.Client.Value
    appexcel.Cells(ligne, 2) = Forms!formulaire.Pays.Value
    appexcel.Cells(ligne, 3) = Forms!formulaire.Ville.Value
    appexcel.Cells(ligne, 4) = Forms!formulaire.Adresse.Value
 
    Let ligne = 3
    'Tentatives d'exportation des champs du sous-formulaire:
    appexcel.Cells(ligne, 2) = Forms![formulaire]![sousformulaire]![type].Value
    appexcel.Cells(ligne, 3) = Forms!formulaire.Form!sousformulaire.type.Value
 
End Function

J'ai bien lu ta page mais je ne vois toujours pas comment récupérer le contenu du champ du sous-formulaire:oops:

03/11/2010, 11h39
loufab

Il suffit juste d'appliquer ce qui est dans le tuto. Notamment sur cette ligne qui est fausse.

Code:

appexcel.Cells(ligne, 2) = Forms![formulaire]![sousformulaire]![type].Value

C'est

Code:

Forms.nomduform.nomdusousformulaire.Form.nomducontrole.Value

Rien de complexe il faut juste appliquer la règle.
03/11/2010, 12h54
valy_442

Quand je suis ton indication, avec le code(avec les noms de formulaire et de contrôle adaptés):

Code:

appexcel.Cells(ligne, 7) = Forms.nomduform.nomdusousformulaire.Form.nomducontrole.Value

j'obtient l'erreur : "Erreur d'exécution 2465 : erreur définie par l'application ou par l'objet."

Et si je met uniquement cela(avec les noms de formulaire et de contrôle adaptés):

Code:

Forms.nomduform.nomdusousformulaire.Form.nomducontrole.Value

J'ai lerreur d'exécution 438 : Propriété ou méthode non gérée par cet objet
03/11/2010, 14h02
loufab

met un point d'arrêt et teste tes syntaxes dans la fenetre d'exécution.

Teste les 2 coté de la syntaxe.

Code:

? appexcel.Cells(ligne, 7)

puis

Code:

? Forms.nomduform.nomdusousformulaire.Form.nomducontrole.Value

Et du coté des caractères spéciaux et des mots reservés ?

Ton controle est un champ ou un vrai controle (zone de texte), il est de quel type ?
03/11/2010, 14h58
valy_442

Code:

appexcel.Cells(ligne, 7)

Cela marche nickel

C'est cette partie qui pose probleme:

Code:

Forms.nomduform.nomdusousformulaire.Form.nomducontrole.Value

Mon controle est une zone de texte qui affiche du texte ou un chiffre.
Mon sous formulaire est une requête filtrée qui affiche un enregistrement d'une table en plusieurs champs: Type, nom, etc ...

En gros j'ai quelques chose de ce genre là pour le sous-formulaire:
Ville_____________Nom_____________Numéro
Paris____________Patrick______________41

J'aimerai récupérer les champs : Paris, Patrick, 41 qui sont des valeurs d'un enregistrement pour les écrire directement dans un fichier excel
03/11/2010, 16h40
loufab

C'est "type" que tu souhaites récupérer. Si le champ "Type" n'est pas associé à un controle (zone de texte) tu dois utiliser le ! au lieu du .

Code:

Forms.nomduform.nomdusousformulaire.Form!nomducontrole

Question bête :

Ton formulaire est chargé au moins ? :aie:
04/11/2010, 08h45
valy_442

Oui il est chargé ^^ Impossible sinon.
J'ai essayé ton dernier code en ajoutant .value à la fin et cela ne donne toujours aucun résultat. J'utilise peut-être le mauvais vocabulaire, alors voici une illustration en mode création et en mode formulaire de mon formulaire et du sous-formulaire:

Mode Création
http://img832.imageshack.us/img832/2828/formulaire.jpg

Mode formulaire
http://img18.imageshack.us/img18/3235/form2x.jpg
04/11/2010, 09h04
loufab

Tu n'aurais pas renommé le controle qui contient le sous-formulaire par hasard ?
04/11/2010, 10h19
valy_442

J'ai renommé le formulaire et le sous-formulaire pour simplifier leur nom et enlever les espaces. Et ça marche très bien pour le formulaire.
Ou puis-je voir le nom du contrôle qui contient le sous-formulaire?
C'est quand on fait clic droit sur le sous-form en mode création puis propriété?
04/11/2010, 14h01
loufab

Entre dans le formulaire en création et clique sur le bord du sous formulaire, dans les propriétés tu devrais voir apparaitre Champ père et champ fils (entre autre).

Le nom du controle est celui que tu mets dans la syntaxe avant le Form.

Ps : le formulaire doit être en ouvert en execution pour que la syntaxe fonctionne.

Voir 40 message(s) de cette discussion en une page