Excel-Access récupération de champs Résolu/Fermé

Question

Bonjour,

J'ai fait un formulaire de saisie d'identité de client sous access avec d'autre saisie.
J'ai fait un questionnaire sous excel qui devra être lié au client.
Pour faire mon rapport, j'ai besoin de récupérer, sous excel, certains champs saisis sous access.

Comment dois-je faire pour que ça soit automatique et pas au coup par coup ?
C'est a dire que lorsque j'ouvre mon fichier excel il y ait les coordonnées du client dans la feuil du questionnaire.

Quelqu'un peut-il me renseigner SVP ?

coursdinfo · Answer

Bonjour,

J'ai un peu de mal à voir l'intérêt d'utiliser à la fois access et excel pour cet objectif mais soit...
Je créerai une requête qui me donnerait les données à mettre dans la feuille EXCEL.
Dans un formulaire ACCESS j'ajouterai un bouton qui exporte ma requête vers EXCEL.

Pour faire l'inverse : Il faut utiliser (je penses) un peu de VBA excel +  Regardez du côté des "query" dans le menu données excel.

courdinfo.fr

mod77 · Answer

Bonjour,
J'ai fais mes questionnaires sur excel parce que c'était plus simple pour moi et j'avais déjà fais une base access que j'ai réutilisé pour l'occasion car j'ai plusieurs questionnaires. En plus, ça fait plus propre sur access la présentation, d'autant que je ne sais pas comment en faire une sur excel. Voila la raison!

Pour mon pb, les données à récupérer sont toujours les mêmes "nom, prénom, adresse..."
Je n'ai donc pas besoin de requete. et en plus c'est pas automatique.

Existe -il un moyen pour que ça le soit ? même en vba.

merci

Le Pingou · Answer

Bonjour,
Une solution, depuis Excel sur Données Externe et choisir A partir d'un fichier Access
Dans Assistant connexion de données choisir DSN ODBC
Dans Connextion à une source..... choisir MS Access Database
Suivre instructions ...

mod77 · Answer

Bonjour Le Pingou,

Merci pour votre proposition, mais le résultat est le même que celle de coursdinfo.

En effet, la liaison me transfert tous les clients de la table. Or, j'aimerai recevoir uniquement les coordonnées du client qui à rempli ce questionnaire. Celui qui est en cours d'affichage dans la base Access lorsque j'appelle le questionnaire.

J'ai regardé grâce à un lien vers "developper.com" laissé par quelqu'un, et il semble que cela est possible avec ADO. Savez-vous comment ca marche par hasard ? et si c'est vraiment ce qui me convient?

Merci

Le Pingou · Answer

Bonjour,
Non c'est dans l'autre sens, c'est depuis Excel que je vai chercher les données.
Il serait bien de savoir dans quel sens vous voulez travailler... d’Access vers Excel ou le contraire ?

Ma proposition vous permet d'avoir une liaison entre Excel et Access et il vous suffit sur Excel de reprendre les données de votre choix.

Ou au lieu de prendre la table, vous pouvez créer une requête qui rassemble que les éléments dont vous avez besoins sur Excel et ainsi vous faite la liaison avec cette dernière.

mod77 · Answer

Le Pingou,

Je ne pense pas que le sens est une importance pourvu que je récupère seulement 1 client et pas toute la table de clients. Car, si j'ai 200 clients, je vais vite être saturé sur ma feuille. Et en plus, cela ne m'oblige à rechercher le client dans la table appelée ou transférée. A moins que je me trompe..

L'idée de la requête est intéressante mais je ne sais pas comment faire pour obtenir les infos de l'affichage courant de mes formulaires, sans avoir à demander nom, prénom ou N° de fichier (car c'est trop contraignant).

Avez-vous une amorce de cela SVP ?

Le Pingou · Answer

Bonjour,
Le sens à une importance primordiale si vous voulez que vos données soit identiquent dans les 2 applications.
Vos 200 clients ne vont jamais saturé une feuille Excel et de plus il vous suffit de paramètrer correctement les critères d'en la requête et vous aurez les bonnes valeurs dès l'ouverture d'Excel.

Pour moi en Access, les données sont dans une table et le formulaire ne sert qu'a manipuler les données de cette table ou de plusieurs tables via une requête.

Question : sur Access qu'elles sont les éléments qui vous indiques que des données et lesquelles doivent être à disposition d'Excel ?

Le Pingou · Answer

Bonjour,
Si vous désirez faire directement depuis Access au coup par coups, vous pouvez utiliser la partie du code suivant à mettre dans une procédure événementielle d’un formulaire:
Dim appXl As Excel.Application
Dim rst As DAO.Recordset
strDirFile = "c:\LeChemin\MonClasseur.xls"
Set appXl = CreateObject("Excel.Application")
Set rst = CurrentDb.OpenRecordset("Select * From ReqCorrespondancesD Where 
RefMonChamp1 = " & Me.Ref MonChamp1)
'rst.MoveFirst
With appXl
   .Workbooks.Open strDirFile
   .Visible = True
   .Range("F3").Select = rst.Fields("MonChamp1") 
   .Range("F4").Select = rst.Fields("NRef")
End With
Set appXl = Nothing

mod77 · Answer

Me revoilà,

Pour répondre à la question du post 8: sur Access qu'elles sont les éléments qui vous indiques que des données et lesquelles doivent être à disposition d'Excel ? 

En fait, dans Access j'ai mon formulaire ouvert sur un client. Et à chaque fois que j'ai besoin de remplir un questionnaire, via un dble clic sur une liaison OLE vers mon questionnaire Excel, je voudrais disposer des coordonnées du client en cours d'affichage dans mon formulaire Access, et ce, dans une feuille du questionnaire Excel. 
Ces données sont toujours les coordonnées du client qui sont dans une table et son N°table dans une autre table.

A part ça, je ne sais pas quel sens il faut employer...

Je vais essayer votre code du post 9. 
Je dois la nommer et l'affecter à un bouton d'un formulaire c'est ça ?

Merci !

Le Pingou · Answer

Bonjour,
Est-ce que j'ai bien compris; il s'agit des coordonnées du client donc  il vous suffirait d'avoir une marque dans la table (expl. oui/non) pour repérer le client qui doit être dans Excel.
Vous créer une requête sur cette marque. Dans Excel vous avez importation de données externe sur cette requête et vous avez uniquement les clients désirés qu'il vous suffit d'intégrer dans le formulaire adéquat. C'est le plus simple.
La procédure proposée fonctionne aussi mais n'est pas simple à mettre en place et encore moins évident s'il faut corriger des données erronées.

En marge : que comprendre par ; clic sur une liaison OLE

mod77 · Answer

Bonjour Le Pingou,

Merci pour cette dernière proposition. Je n'ai pas encore eu le temps de tester la précédente, mais cette dernière est bien aussi mais je devrais faire la manip d'importation de données externe, alors que je voulais que ça se fasse tout seul. Mais c'est pas grave, si ça marche c'est déjà ça!

L'avantage de la 2e proposition est que j'ai déjà dans mon sous-formulaire access des cases à cocher booléens qui déterminent quel questionnaire je vais appeler. Donc, il suffit que je mette un bouton de commande qui m'ouvre mon fichier questionnaire sous Excel avec les coordonnées du client dont la case à cocher a été validée.

Petite question: est-il possible que je réunisse sous le même fichier les questionnaires sélectionnés ? 
il y en a 3 (entrée, plat, dessert) mais si le client ne prend que "entrée" et "plat", par exemple, est-il possible d'ouvrir Excel avec seulement 2 feuilles. Une avec le questionnaire "entrée" l'autre avec le questionnaire "plat"?
En même temps ma question est bizarre car où seraient alors placés ces questionnaires avant ??


En marge : que comprendre par ; clic sur une liaison OLE : je voulais dire que j'ai créé une liaison OLE dans un cadre dépendant. Donc en cliquant dans le cadre cela m'ouvre Excel.

ps: jevais certainement mettre plus de temps à vous relire car j'ai un autre soucis,
 A+ et Merci encore!

Le Pingou · Answer

Bonjour,
Avec les 2 fichiers dans un ZIP et mis sur http://cijoint.fr/ je pourrais certainement mien vous répondre.

michel_m · Answer

bonjour

Excusez l'incruste

A partir du nom dans Xl recherche de données concernant ce nom dans Table Access
A adapter (démo très basique...)
https://www.cjoint.com/?cAnAMiqtWC

Le Pingou · Answer

Bonjour michel_m,
Personnellement c’est une incruste que j’apprécie.
Merci infiniment pour cette solution qui est superbe.
A une prochaine.

michel_m · Answer

Merci, Jean-pierre

Bon WE
Cordialement,
Michel

Le Pingou · Answer

Bonjour mod77,
Voici un exemple en complément de celui de michel_m : https://www.cjoint.com/?dcx6yRxtER
Ouvrir le fichier Access et bien suivre l’instruction !

michel_m · Answer

Bonjour,

J'ai très nettement l'impression que Mod77 a pressé les citrons, donc les jette maintenant bien sûr sans dire merci....

j'ai téléchargé ton zip, je regarderai + tard (réiinstallation progressive de mon ordi suite à une destruction par la foudre: écran, adsl, imprimante HS)

cordialement,
Michel

mod77 · Answer

Bonjour,

Que néni! Ce n'est pas mon genre. Seulement mon petit problème est de venu grand et je viens enfin de trouver le temps de vous remercier tout de même! 

Je n'arrive cependant pas à comprendre la troisième ligne : client=range("client")
Je sais, ça parait stupide, mais n'empêche que c'est là que s'arrête la compilation de mon adaptation.
Dans ma table "T_Client" j'ai en clé N°Client, puis: Nom, Tel et Adresse et ma recherche je la préfère avec N°Client, mais j'essayais déjà avec le nom et ça bug, là  ******?  Pourquoi ? 
Seriez-vous me l'expliquer SVP?

Sub importer_access()
Dim Source As Object, Requete As Object
Dim client As String, chemin As String
client = Range("client")  ************?
chemin = ActiveWorkbook.Path

' ouvre la base de données Access (microsoft jet)
Set Source = CreateObject("ADODB.Connection")
Source.Provider = "Microsoft.Jet.OLEDB.4.0;"
Source.Open chemin & "\BD_Resto.mdb"

 'exerce la requete ADO sur la donnée à recopier
    Texte_SQL = "SELECT lieu, groupe FROM T_Client WHERE nom= '" & client & "';"
    Set Requete = CreateObject("ADODB.Recordset")
    Set Requete = Source.Execute("SELECT Tel, Adresse FROM T_Client WHERE nom = '" & client & "';")

Et puis, y a t-il possibilité d'afficher les données sur une ligne différente plutôt que colonne différente SVP ?

Merci de votre aide!

Je vais voir la proposition de Le Pingou que je remercie tout autant!

mod77 · Answer

Bonjour Le Pingou,

Merci pour votre proposition qui répond en partie aux questions que je posais, en retour à michel_m, et d'après les commentaires que j'ai pu distingués.
Mais voilà, il en fallait un aussi, une erreur de compilation apparait le chemin vers excel n'est pas trouvé alors que la base de donnée et le fichier excel sont dans le même répertoire!?
Le message est "projet ou bibliothèque introuvable" et s'arrête sur la ligne : => " Sub EngVersExcel() "
et : "repclasseur = " est surligné en bleu.

Je ne comprends pas...pourquoi? J'ai bien ouvert le fichier excel "GestionPerso"avant de cliquer sur le bouton du formulaire pourtant?

Si vous pouvez m'éclairer encore SVP, Merci.

michel_m · Answer

range("client") correspond à la cellule A2 nommée "client" 
dans tous les casla pièce jointe doit être téléchargée et non ouverte directement
Ca a marché pour jean-pierre, donc...

mod77 · Answer

Bonsoir michel_m,
Merci pour l'info "client". Ca veut donc dire  écrire "client" dans la variable client, n'est ce pas?
Concernant la proposition de Le Pingou, je suis en train de débugger. J'ai déclaré des variables qui manquent et je bloque justement sur celle-ci: "exapp ="  ? avez-vous l'astuce SVP?

mod77 · Answer

Est-ce possible que ça soit lié à ma version qui est de 2002?

mod77 · Answer

Finalement michel_m, j'ai repris votre proposition.
Pouvez-vous me dire si je peux choisir la façon d'afficher les données récupérées SVP , sur une même colonne.
Merci

Le Pingou · Answer

Bonjour mod77,
Je viens de contrôler le fichier exemple et il fonctionne à la perfection. 
Il y a certainement une erreur chez vous.
Contrôler, sous Access, que la bibliotèque "Microsoft Excel xx Objects Library" est disponible dans les références MS VBA (Alt+F11 et sous menu Outils clic sous Références )

mod77 · Answer

Bonjour Le Pingou,

Je n'ai pas voulu vous offusquer, je sais au combien votre aide m'est toujours précieuse, mais comme ça plantait dès le début d'abord sur "repclasseur" alors je l'ai déclaré, puis sur "Chr(34)" et enfin sur "exapp =" je ne savais plus quoi faire.
Néanmoins, j'ai regardé dans les références et j'ai bien "Microsoft Excel 10 Objects Library" de sélectionné.

Sur l'utilisation de votre proposition je dois bien ouvrir le fichier Excel "GestionPerso" puis ouvrir la BD_GestionPerso et cliquer sur le bouton "Renseigner Excel" apres avoir sélectionné ma fiche ?

Se serait bien que ça marche, car c'est exactement la façon de gérer que je cherche à faire.

Merci encore

Le Pingou · Answer

Bonjour,
Il y a certainement un problème de version Access.
Qu'elle est votre version ?
En plus, merci, de mettre une copie de la fenêtre des références !
J'attends votre réponse.

mod77 · Answer

Bonjour,

j'ai 2002, et voici le lien: https://www.cjoint.com/?deqLmBgvjw

mod77 · Answer

Je ne comprends pas aussi pourquoi il n'y a pas de déclaration "repclasseur" dans votre proposition alors que dans celle de michel_m "chemin" est déclaré ?

Le Pingou · Answer

Bonjour,
Merci. Mais se n'est pas les bonnes références, elles cporrespondent GestionPerso.xls:
Merci de mettre celles qui correspondent à Access GestionPerso.mdb

mod77 · Answer

Merci Le Pingou,
je viens de voir qu'il manque aussi "microsoft excel 12.0 object library" lorsque j'ouvre BD "GestionPerso"

je vais voir ce que vous me marquez.

A+

Le Pingou · Answer

Bonjour,
Attention les messages se sont croisés, merci de relire le 31 !

mod77 · Answer

Voici ce que j'ai maintenant:

https://www.cjoint.com/?derjU2lKLd

mais je ne trouve pas le fichier manquant.

Le Pingou · Answer

Bonjour,
Merci comme cela c'est mieux.
Vous devez décocher [Manquant: Microsoft Exel 12.0 Object Library] et [Microsoft ADO Ext. 2.8 for DDL and Security]

mod77 · Answer

Hip hip hip! En..fin! 
Un grand merci à vous ça marche, Le Pingou.

Je vais essayer d'adapter maintenant votre version.
Il y a dores et déjà une ligne que je ne comprends pas :
" WHERE T_InitialisationAnnees.Identification = " & Chr(34) & Form_F_InitConge.Matricule & Chr(34)

Que représente Chr(34) ? et
quelle différence y-a-t-il entre "Sub EngVersExcel_ouvre_classeur()" et "Sub EngVersExcel()" dans leur rôle?

Merci

Le Pingou · Answer

Bonjour,
Juste au passage .....
Que représente Chr(34) ?  Caractère de ponctuation (") nécessaire à la requête , a ne pas remplacer ou supprimer. 
quelle différence y-a-t-il entre "Sub EngVersExcel_ouvre_classeur()" et "Sub EngVersExcel()" dans leur rôle? La première est un essai qui ouvre un classeur, j'ai oublié de la supprimer.

mod77 · Answer

OK! dommage c'est celle qui se compile bien, l'autre me cause problème, mais c'est mon adaptation.

Peut-on prévoir que Excel s'ouvre dès qu'on appui sur le bouton dans access, puis éxécute le transfert ?
Ou faut-il créer un autre bouton pour cela ?

mod77 · Answer

J'ai oublié:
Je n'ai pas trouvé la variable "matricule" dans votre base access. Est-ce que je dois laisser ce terme pour la mienne?

Aussi, je n'ai pas créé de requête est-ce indispensable ?
ça bloque à cette ligne:

strSQL = "SELECT * FROM T_Client" & _
" WHERE T_Client.N°Client = " & Chr(34) & Form_F - Table.Matricule & Chr(34)

merci

Le Pingou · Answer

Bonjour,
Concerne poste 40 :
Je n'ai pas trouvé la variable "matricule" dans votre base access. Est-ce que je dois laisser ce terme pour la mienne? 
Matricule est le nom du champ d’identification du formulaire [Form_F_InitConge] (champ père) qui lient les enregistrements du sous-formulaire [Form_ SF_InitialisationConge] (champ fils).
Vous devez donc mettre le nom que vous avez dans votre formulaire [Form_.......... . NomDeVotreChamp ]

Aussi, je n'ai pas créé de requête est-ce indispensable ? 
Sans requête, aucunes données seras disponibles …

mod77 · Answer

Bonjour,

Alors,  comment est appelé/activé cette requête et quelle est la requête qui sert à l'affichage SVP ?

mod77 · Answer

Le Pingou,

J'ai 2 questions qui ont leur importance:

1- Est-ce que je peux utiliser comme argument de liaison entre table et formulaire, la variable de clé des tables?
J'ai écris ceci, mais ça bug à la dernière ligne: C'est N°Client qui est la clé des 2 tables.

strSQL = "SELECT * FROM T_Client" & _
" WHERE T_Client.N°Client = " & Chr(34) & Form_F_TableSF.N°Client & Chr(34)
Set rstcha = cdb.OpenRecordset(strSQL)

2- Pouvez-vous me préciser, aussi, s'il y a une raison particulière de changer le nom de la zone texte "identifications" en "matricule" SVP ?

Merci

Le Pingou · Answer

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/ ...

mod77 · Answer

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

Le Pingou · Answer

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

Le Pingou · Answer

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.

mod77 · Answer

C'est quoi un module de classe ?

mod77 · Answer

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

Le Pingou · Answer

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...

mod77 · Answer

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

Le Pingou · Answer

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.

mod77 · Answer

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

Le Pingou · Answer

Bonjour,
Est-ce cela que vous cherchez : https://www.cjoint.com/?dgq5xCdWQw
Bon week-end

mod77 · Answer

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.

Le Pingou · Answer

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

mod77 · Answer

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.

Le Pingou · Answer

Bonjour,
Voila : http://www.cijoint.fr/cjlink.php?file=cj201003/cijlfnWEU5.zip

mod77 · Answer

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

Le Pingou · Answer

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

mod77 · Answer

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

Le Pingou · Answer

Bonjour,
Non chez moi pas d'erreur tout est normal.

mod77 · Answer

Bonjour,

J'ai retiré la dernière ligne " Workbooks("QuestionEntrer.xls").Close savechanges:=True" et ça marche !

Merci à vous !

Le Pingou · Answer

Bonjour,
Alors c'est bien, mais je pense que la surprise va arrivée tout soudain.

mod77 · Answer

Bonjour Le Pingou,

Pouvez-vous me dire comment faire pour avoir que l'enregistrement en cours transféré dans excel, car tous les enregistrements d'un même client s'affichent pour en même temps, SVP?
Merci

Le Pingou · Answer

Bonjour,
Dans votre cas l'enregistrement en cours est basé sur le client, donc vous avez tout se qui correspond à ce client, se qui est correct. (C'est bien se que l'on trouve sur le compteur du sous formulaire, pour le client 2 il y a 5 enregistrements.
Maintenant si vous désirez un autre choix, ajouter un critère ..... peut-être une date, une table , etc.
Il vous suffit de compléter le code à votre disposition.
 --

Salutations.
Jean-Pierre

mod77 · Answer

Ok, merci!

Excel-Access récupération de champs

64 réponses

Discussions similaires