Excel-Access récupération de champs
Résolu/Fermé
mod77
Messages postés
1273
Date d'inscription
vendredi 10 juillet 2009
Statut
Membre
Dernière intervention
14 janvier 2024
-
24 févr. 2010 à 15:20
mod77 Messages postés 1273 Date d'inscription vendredi 10 juillet 2009 Statut Membre Dernière intervention 14 janvier 2024 - 9 mars 2010 à 18:01
mod77 Messages postés 1273 Date d'inscription vendredi 10 juillet 2009 Statut Membre Dernière intervention 14 janvier 2024 - 9 mars 2010 à 18:01
A voir également:
- Valeur champ excel
- Liste déroulante excel - Guide
- Formule excel - Guide
- Si et excel - Guide
- Aller à la ligne excel - Guide
- Mise en forme conditionnelle excel - Guide
64 réponses
Le Pingou
Messages postés
12045
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
25 avril 2024
1 426
5 mars 2010 à 14:35
5 mars 2010 à 14:35
Bonjour,
Dans le poste 42 j'ai bien mis que vous devez mettre le nom du champ de votre formulaire et non pas celui de la table ou du sous-formulaire.
A la limite vous pouvez compacter votre base et ensuite la compressée puis sur https://www.cjoint.com/ ...
Dans le poste 42 j'ai bien mis que vous devez mettre le nom du champ de votre formulaire et non pas celui de la table ou du sous-formulaire.
A la limite vous pouvez compacter votre base et ensuite la compressée puis sur https://www.cjoint.com/ ...
mod77
Messages postés
1273
Date d'inscription
vendredi 10 juillet 2009
Statut
Membre
Dernière intervention
14 janvier 2024
53
5 mars 2010 à 15:29
5 mars 2010 à 15:29
Bonjour,
Je m'excuse par avance car je ne comprends pas "le nom du champ du formulaire" car lorsque j'ai regardé votre formulaire c'est sur le champ "identification" que j'ai trouvé via propriété le nom "matricule". D'où mes question du poste 44 ?
Voici le lien: https://www.cjoint.com/?dfpySmPrpG
merci
Je m'excuse par avance car je ne comprends pas "le nom du champ du formulaire" car lorsque j'ai regardé votre formulaire c'est sur le champ "identification" que j'ai trouvé via propriété le nom "matricule". D'où mes question du poste 44 ?
Voici le lien: https://www.cjoint.com/?dfpySmPrpG
merci
Le Pingou
Messages postés
12045
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
25 avril 2024
1 426
5 mars 2010 à 15:39
5 mars 2010 à 15:39
Bonjour,
Pour ceci :
je ne comprends pas "le nom du champ du formulaire" car lorsque j'ai regardé votre formulaire c'est sur le champ "identification" que j'ai trouvé via propriété le nom "matricule"
Il ne faut pas comfondre le nom du champ qui est [Matricule] avec le texte que vous voyez [Identifications] qui correspond au nom de la source de contrôle qui est, dans se cas, le nom du champ de la table [T_Noms].
Je regarde encore votre base.
Salutations.
Jean-Pierre
Pour ceci :
je ne comprends pas "le nom du champ du formulaire" car lorsque j'ai regardé votre formulaire c'est sur le champ "identification" que j'ai trouvé via propriété le nom "matricule"
Il ne faut pas comfondre le nom du champ qui est [Matricule] avec le texte que vous voyez [Identifications] qui correspond au nom de la source de contrôle qui est, dans se cas, le nom du champ de la table [T_Noms].
Je regarde encore votre base.
Salutations.
Jean-Pierre
Le Pingou
Messages postés
12045
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
25 avril 2024
1 426
5 mars 2010 à 16:24
5 mars 2010 à 16:24
Bonjour,
Le champ à utiliser dans la requête est [N°Client] du formulaire principale [F_Client].
De plus on a la chance que votre champ et de format numérique et ceci modifie l’écriture de la requête (supprimer caractère de ponctuation) doit être comme suit :
strSQL = "SELECT * FROM T_Client" & " WHERE T_Client.N°Client = " & Form_F_Client.N°Client
Ce formulaire ne possède pas de module de classe, ce qui provoque une erreur lors de l’exécution de la requête.
Vous allez sur les propriétés du formulaire [F_Client] et sur l’onglet [Autres] propriété [Avec module] = Oui.
Le champ à utiliser dans la requête est [N°Client] du formulaire principale [F_Client].
De plus on a la chance que votre champ et de format numérique et ceci modifie l’écriture de la requête (supprimer caractère de ponctuation) doit être comme suit :
strSQL = "SELECT * FROM T_Client" & " WHERE T_Client.N°Client = " & Form_F_Client.N°Client
Ce formulaire ne possède pas de module de classe, ce qui provoque une erreur lors de l’exécution de la requête.
Vous allez sur les propriétés du formulaire [F_Client] et sur l’onglet [Autres] propriété [Avec module] = Oui.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
mod77
Messages postés
1273
Date d'inscription
vendredi 10 juillet 2009
Statut
Membre
Dernière intervention
14 janvier 2024
53
5 mars 2010 à 16:41
5 mars 2010 à 16:41
C'est quoi un module de classe ?
mod77
Messages postés
1273
Date d'inscription
vendredi 10 juillet 2009
Statut
Membre
Dernière intervention
14 janvier 2024
53
5 mars 2010 à 17:00
5 mars 2010 à 17:00
Le Pingou,
Pouvez-vous me dire pourquoi je ne récupère pas des infos du sous-formulaire "table" SVP, par exemple
date repas ?
Merci
Pouvez-vous me dire pourquoi je ne récupère pas des infos du sous-formulaire "table" SVP, par exemple
date repas ?
Merci
Le Pingou
Messages postés
12045
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
25 avril 2024
1 426
5 mars 2010 à 22:34
5 mars 2010 à 22:34
Bonjour,
Voici un petit conseil, utiliser l'aide fourni avec le logiciel aussi souvent que possible. Dans se cas précis vous êtes sur la propriété [Avec module] du formulaire, vous ne savez pas se que c'est, clic sur le nom puis la touche F1 et ensuite clic sur l'une des suggestions [...... HasModule.... et là vous avez se qu'il faut savoir...
C'est un réflexe, que se soit sur Access, Excel, VBA etc., qui vous apportera beaucoup plus qu'une simple explication écourtée...
Voici un petit conseil, utiliser l'aide fourni avec le logiciel aussi souvent que possible. Dans se cas précis vous êtes sur la propriété [Avec module] du formulaire, vous ne savez pas se que c'est, clic sur le nom puis la touche F1 et ensuite clic sur l'une des suggestions [...... HasModule.... et là vous avez se qu'il faut savoir...
C'est un réflexe, que se soit sur Access, Excel, VBA etc., qui vous apportera beaucoup plus qu'une simple explication écourtée...
mod77
Messages postés
1273
Date d'inscription
vendredi 10 juillet 2009
Statut
Membre
Dernière intervention
14 janvier 2024
53
6 mars 2010 à 11:51
6 mars 2010 à 11:51
Bonjour,
Merci à vous vous, je ne connaissais pas cette manipulation.
Ce que j'aime bien dans vos réponses, c'est que "vous m'apportez la façon de pêcher et non le poisson" et ça me sert toujours. Car j'avais essayé, l'aide via l'assistant mais les réponses n'avaient aucun sens pour moi, voila pourquoi je vous ai sollicité de nouveau. Donc, merci à vous, encore.
A part cela, dans mon problème, avez-vous une réponse pour le poste 51 SVP ?
merci
Merci à vous vous, je ne connaissais pas cette manipulation.
Ce que j'aime bien dans vos réponses, c'est que "vous m'apportez la façon de pêcher et non le poisson" et ça me sert toujours. Car j'avais essayé, l'aide via l'assistant mais les réponses n'avaient aucun sens pour moi, voila pourquoi je vous ai sollicité de nouveau. Donc, merci à vous, encore.
A part cela, dans mon problème, avez-vous une réponse pour le poste 51 SVP ?
merci
Le Pingou
Messages postés
12045
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
25 avril 2024
1 426
6 mars 2010 à 14:46
6 mars 2010 à 14:46
Bonjour,
Juste au passage, je pense que vous n'avez pas la bonne table dans la requête.....
Pouvez-vous énumérer les champs que vous voulez récupérer ?
Je donnerai un oeil dans la journée.
Juste au passage, je pense que vous n'avez pas la bonne table dans la requête.....
Pouvez-vous énumérer les champs que vous voulez récupérer ?
Je donnerai un oeil dans la journée.
mod77
Messages postés
1273
Date d'inscription
vendredi 10 juillet 2009
Statut
Membre
Dernière intervention
14 janvier 2024
53
6 mars 2010 à 16:22
6 mars 2010 à 16:22
Bonjour,
J'aimerai avoir tous les champs du formulaire et du sous-formulaire, soit:
N°client, Nom, Tel, Adresse, N°Table, Date-repas, NbRésa
Merci
J'aimerai avoir tous les champs du formulaire et du sous-formulaire, soit:
N°client, Nom, Tel, Adresse, N°Table, Date-repas, NbRésa
Merci
Le Pingou
Messages postés
12045
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
25 avril 2024
1 426
6 mars 2010 à 16:59
6 mars 2010 à 16:59
Bonjour,
Est-ce cela que vous cherchez : https://www.cjoint.com/?dgq5xCdWQw
Bon week-end
Est-ce cela que vous cherchez : https://www.cjoint.com/?dgq5xCdWQw
Bon week-end
mod77
Messages postés
1273
Date d'inscription
vendredi 10 juillet 2009
Statut
Membre
Dernière intervention
14 janvier 2024
53
6 mars 2010 à 19:55
6 mars 2010 à 19:55
Bonsoir,
Je suis désolé mais, ça ne marche pas...contrairement à la version précédente. De plus, il n'y a pas toutes les données que j'aimerai récupérer.
J'étudierai l'affaire dès lundi.
Merci à vous, et Bon week-end.
Je suis désolé mais, ça ne marche pas...contrairement à la version précédente. De plus, il n'y a pas toutes les données que j'aimerai récupérer.
J'étudierai l'affaire dès lundi.
Merci à vous, et Bon week-end.
Le Pingou
Messages postés
12045
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
25 avril 2024
1 426
6 mars 2010 à 22:36
6 mars 2010 à 22:36
Bonjour,
Le ne marche pas n'apporte strictement rien ....
Comme je ne lis pas encore dans les pensées, il m'est impossible de savoir qu'elles sont les valeurs que vous voulez.
Par contre mon exemple fonctionne. Probablement que le nom du fichier Excel avec les accents n'est pas adéquat. Voici une version sans accent : https://www.cjoint.com/?dgwWaMdGsS
Le ne marche pas n'apporte strictement rien ....
Comme je ne lis pas encore dans les pensées, il m'est impossible de savoir qu'elles sont les valeurs que vous voulez.
Par contre mon exemple fonctionne. Probablement que le nom du fichier Excel avec les accents n'est pas adéquat. Voici une version sans accent : https://www.cjoint.com/?dgwWaMdGsS
mod77
Messages postés
1273
Date d'inscription
vendredi 10 juillet 2009
Statut
Membre
Dernière intervention
14 janvier 2024
53
7 mars 2010 à 20:54
7 mars 2010 à 20:54
Bonjour,
Ce que je voulais dire par "ca ne marche pas" est que lorsque je clic sur le bouton "transfert vers Excel" aucune des données n'est transmises au fichier Excel "QuestionEntrée" et c'est toujours pareil avec le nouveua fichier "QuestionEntrer".
Au poste 55, je vous avais déjà écris les données que je veux. Il manque seulement "Nom", "adresse" et "Tel".
J'avais déjà tenté d'ajouter d'autres lignes ".Range("D" & 2 + c) = rstcha.Fields(3)" dans la boucle "while", mais ca a planté a 5.
C'est pourquoi j'ai posé les questions 43 et 45.
Ce qui est incroyable, c'est que, c'est ni plus ni moins que la même chose que pour votre base, mais tous les éléments ne sont pas transmis dans la mienne. Je ne sais pas pourquoi...
Merci à vous, je verrai demain.
Ce que je voulais dire par "ca ne marche pas" est que lorsque je clic sur le bouton "transfert vers Excel" aucune des données n'est transmises au fichier Excel "QuestionEntrée" et c'est toujours pareil avec le nouveua fichier "QuestionEntrer".
Au poste 55, je vous avais déjà écris les données que je veux. Il manque seulement "Nom", "adresse" et "Tel".
J'avais déjà tenté d'ajouter d'autres lignes ".Range("D" & 2 + c) = rstcha.Fields(3)" dans la boucle "while", mais ca a planté a 5.
C'est pourquoi j'ai posé les questions 43 et 45.
Ce qui est incroyable, c'est que, c'est ni plus ni moins que la même chose que pour votre base, mais tous les éléments ne sont pas transmis dans la mienne. Je ne sais pas pourquoi...
Merci à vous, je verrai demain.
Le Pingou
Messages postés
12045
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
25 avril 2024
1 426
7 mars 2010 à 21:32
7 mars 2010 à 21:32
Bonjour,
Voila : http://www.cijoint.fr/cjlink.php?file=cj201003/cijlfnWEU5.zip
Voila : http://www.cijoint.fr/cjlink.php?file=cj201003/cijlfnWEU5.zip
mod77
Messages postés
1273
Date d'inscription
vendredi 10 juillet 2009
Statut
Membre
Dernière intervention
14 janvier 2024
53
8 mars 2010 à 09:53
8 mars 2010 à 09:53
Bonjour Le Pingou,
Je vous remercie pour votre aide et l'aboutissement de cette adaptation, cela me rend un immense service croyez le.
Merci aussi à Michel_m.
J'ai néanmoins une petite question pratique que j'avais déjà posé au poste 41:
Pouvez-vous faire en sorte que sur le clic le fichier excel s'ouvre et que les données soient transférées, plutôt que j'ai à ouvrir le fichier excel avant, s'il vous plait ? cela permettra un gain de temps.
Bonne journée,
Merci
Je vous remercie pour votre aide et l'aboutissement de cette adaptation, cela me rend un immense service croyez le.
Merci aussi à Michel_m.
J'ai néanmoins une petite question pratique que j'avais déjà posé au poste 41:
Pouvez-vous faire en sorte que sur le clic le fichier excel s'ouvre et que les données soient transférées, plutôt que j'ai à ouvrir le fichier excel avant, s'il vous plait ? cela permettra un gain de temps.
Bonne journée,
Merci
Le Pingou
Messages postés
12045
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
25 avril 2024
1 426
8 mars 2010 à 16:50
8 mars 2010 à 16:50
Bonjour,
Il vous suffit d’apporter les modifications suivantes dans la procédure:
Dim xlapp As Object remplacer par Dim xlapp As Excel.Application
Set xlapp = GetObject(checlas) remplacer par Set xlapp = CreateObject("Excel.Application")
With xlapp.Sheets("Feuil1") remplacer par With xlapp
Juste après, insérer les 2 lignes:
.Workbooks.Open checlas
.Visible = True
Entre Wend et End With, insérer la ligne
Workbooks("QuestionEntrer.xls").Close savechanges:=True
Il vous suffit d’apporter les modifications suivantes dans la procédure:
Dim xlapp As Object remplacer par Dim xlapp As Excel.Application
Set xlapp = GetObject(checlas) remplacer par Set xlapp = CreateObject("Excel.Application")
With xlapp.Sheets("Feuil1") remplacer par With xlapp
Juste après, insérer les 2 lignes:
.Workbooks.Open checlas
.Visible = True
Entre Wend et End With, insérer la ligne
Workbooks("QuestionEntrer.xls").Close savechanges:=True
mod77
Messages postés
1273
Date d'inscription
vendredi 10 juillet 2009
Statut
Membre
Dernière intervention
14 janvier 2024
53
8 mars 2010 à 19:34
8 mars 2010 à 19:34
Bonsoir,
Il y a comme un problème car cela ouvre bien le fichier Excel mais il se referme tout de suite.
Lorsque je reclic , Excel s'ouvre avec les bonnes données, mais lorsque je ferme excel, la base plante avec le message "erreur d'éxécution 9, l'indice n'apparait pas à la sélection"
et la ligne " Workbooks("QuestionEntrer.xls").Close savechanges:=True" est en jaune.
Savez-vous pourquoi?
Merci
Il y a comme un problème car cela ouvre bien le fichier Excel mais il se referme tout de suite.
Lorsque je reclic , Excel s'ouvre avec les bonnes données, mais lorsque je ferme excel, la base plante avec le message "erreur d'éxécution 9, l'indice n'apparait pas à la sélection"
et la ligne " Workbooks("QuestionEntrer.xls").Close savechanges:=True" est en jaune.
Savez-vous pourquoi?
Merci
Le Pingou
Messages postés
12045
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
25 avril 2024
1 426
8 mars 2010 à 21:42
8 mars 2010 à 21:42
Bonjour,
Non chez moi pas d'erreur tout est normal.
Non chez moi pas d'erreur tout est normal.
mod77
Messages postés
1273
Date d'inscription
vendredi 10 juillet 2009
Statut
Membre
Dernière intervention
14 janvier 2024
53
9 mars 2010 à 09:09
9 mars 2010 à 09:09
Bonjour,
J'ai retiré la dernière ligne " Workbooks("QuestionEntrer.xls").Close savechanges:=True" et ça marche !
Merci à vous !
J'ai retiré la dernière ligne " Workbooks("QuestionEntrer.xls").Close savechanges:=True" et ça marche !
Merci à vous !
