alors pour compléter ma demander, les mises jours vont se placer dans la table à la suite, si vous voulez j'ai un programme excel qui gère une liste de clients impayés et donc la personne saisie les clients sur excel et je voudrais établire une liaison pour transférer les clients sous access et faire des mises à jours avec un simple clic. En ce qui concerne les informations ce serait des colonnes à transférer de excel vers access (plusieurs colonnes par feuille donc plusieurs champs dans la table) donc une plage de donnée qui serait une colonne pour éviter trop les beugs. Voila je pense que mes informations sont suffisantes pour répondre à vos questions
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Christophe JEAN
Un instant je cherche
"j0b" a écrit dans le message de news: 415090c7$0$17703$
alors pour compléter ma demander, les mises jours vont se placer dans la table à la suite, si vous voulez j'ai un programme excel qui gère une liste de clients impayés et donc la personne saisie les clients sur excel et je voudrais établire une liaison pour transférer les clients sous access et faire des mises à jours avec un simple clic. En ce qui concerne les informations ce serait des colonnes à transférer de excel vers access (plusieurs colonnes par feuille donc plusieurs champs dans la table) donc une plage de donnée qui serait une colonne pour éviter trop les beugs. Voila je pense que mes informations sont suffisantes pour répondre à vos questions
Un instant je cherche
"j0b" <j0b@yencpower-post.com> a écrit dans le message de news:
415090c7$0$17703$626a14ce@news.free.fr...
alors pour compléter ma demander, les mises jours vont se placer dans la
table à la suite, si vous voulez j'ai un programme excel qui gère une
liste de clients impayés et donc la personne saisie les clients sur excel
et je voudrais établire une liaison pour transférer les clients sous
access et faire des mises à jours avec un simple clic. En ce qui concerne
les informations ce serait des colonnes à transférer de excel vers access
(plusieurs colonnes par feuille donc plusieurs champs dans la table) donc
une plage de donnée qui serait une colonne pour éviter trop les beugs.
Voila je pense que mes informations sont suffisantes pour répondre à vos
questions
"j0b" a écrit dans le message de news: 415090c7$0$17703$
alors pour compléter ma demander, les mises jours vont se placer dans la table à la suite, si vous voulez j'ai un programme excel qui gère une liste de clients impayés et donc la personne saisie les clients sur excel et je voudrais établire une liaison pour transférer les clients sous access et faire des mises à jours avec un simple clic. En ce qui concerne les informations ce serait des colonnes à transférer de excel vers access (plusieurs colonnes par feuille donc plusieurs champs dans la table) donc une plage de donnée qui serait une colonne pour éviter trop les beugs. Voila je pense que mes informations sont suffisantes pour répondre à vos questions
Christophe JEAN
¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤ ¤ ¤ ¤ ATTENTION il est 23 h 35 on se réveillle !!! ¤ ¤ ¤ ¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤
¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤
¤
¤
¤ ATTENTION il est 23 h 35 on se réveillle !!! ¤
¤
¤
¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤
¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤ ¤ ¤ ¤ ATTENTION il est 23 h 35 on se réveillle !!! ¤ ¤ ¤ ¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤
Christophe JEAN
Battement de tambour !!!!
Sub LA_SUPER_PROCEDURE_QUI_ENVOIE_DES_DONNEES_VERS_ACCESS()
'pour cette constante, tu change le nom de cette base de données Const strNomDB As String = "C:Program FilesMicrosoft OfficeOFFICE11SAMPLESComptoir.mdb"
'Déclarations des Variables Dim oDB As Object Dim dbComptoir As DAO.Database Dim rsClient As DAO.Recordset
'Déclaration des variables pour récupérer les données Dim strID As String Dim strNom As String Dim strContact As String Dim strFonction As String Dim strAdresse As String Dim strCP As String Dim strVille As String Dim strRegion As String Dim strPays As String Dim strTel As String Dim strFax As String
'Récupération des données strID = [A2].Value strNom = [B2].Value strContact = [C2].Value strFonction = [D2].Value strAdresse = [E2].Value strCP = [H2].Value strVille = [F2].Value strRegion = [G2].Value strPays = [I2].Value strTel = [J2].Value strFax = [K2].Value 'Envoi de ces données vers La table "Clients" de la base de données "Comptoirs" Set oDB = CreateObject("Access.Application")
With oDB
'Création des objets automation 'C'est à dire que c'est avex ça qu'on manipule Access depuis Excel Set dbComptoir = .dbEngine.WorkSpaces(0).OpenDatabase(strNomDB) Set rsClient = dbComptoir.OpenRecordset("Clients", dbOpenDynaset)
'Fermeture des objets rsClient.Close dbComptoir.Close
End Sub
Y a plus qu'à copier-coller cettte procédure dans Excel, Adapter les variables aux champs et valeurs dont on récupère et on renvoie vers Access. Testée sous Office 2003
Battement de tambour !!!!
Sub LA_SUPER_PROCEDURE_QUI_ENVOIE_DES_DONNEES_VERS_ACCESS()
'pour cette constante, tu change le nom de cette base de données
Const strNomDB As String = "C:Program FilesMicrosoft
OfficeOFFICE11SAMPLESComptoir.mdb"
'Déclarations des Variables
Dim oDB As Object
Dim dbComptoir As DAO.Database
Dim rsClient As DAO.Recordset
'Déclaration des variables pour récupérer les données
Dim strID As String
Dim strNom As String
Dim strContact As String
Dim strFonction As String
Dim strAdresse As String
Dim strCP As String
Dim strVille As String
Dim strRegion As String
Dim strPays As String
Dim strTel As String
Dim strFax As String
'Récupération des données
strID = [A2].Value
strNom = [B2].Value
strContact = [C2].Value
strFonction = [D2].Value
strAdresse = [E2].Value
strCP = [H2].Value
strVille = [F2].Value
strRegion = [G2].Value
strPays = [I2].Value
strTel = [J2].Value
strFax = [K2].Value
'Envoi de ces données vers La table "Clients" de la base de données
"Comptoirs"
Set oDB = CreateObject("Access.Application")
With oDB
'Création des objets automation
'C'est à dire que c'est avex ça qu'on manipule Access depuis Excel
Set dbComptoir = .dbEngine.WorkSpaces(0).OpenDatabase(strNomDB)
Set rsClient = dbComptoir.OpenRecordset("Clients", dbOpenDynaset)
'Fermeture des objets
rsClient.Close
dbComptoir.Close
End Sub
Y a plus qu'à copier-coller cettte procédure dans Excel, Adapter les
variables aux champs et valeurs dont on récupère et on renvoie vers Access.
Testée sous Office 2003
Sub LA_SUPER_PROCEDURE_QUI_ENVOIE_DES_DONNEES_VERS_ACCESS()
'pour cette constante, tu change le nom de cette base de données Const strNomDB As String = "C:Program FilesMicrosoft OfficeOFFICE11SAMPLESComptoir.mdb"
'Déclarations des Variables Dim oDB As Object Dim dbComptoir As DAO.Database Dim rsClient As DAO.Recordset
'Déclaration des variables pour récupérer les données Dim strID As String Dim strNom As String Dim strContact As String Dim strFonction As String Dim strAdresse As String Dim strCP As String Dim strVille As String Dim strRegion As String Dim strPays As String Dim strTel As String Dim strFax As String
'Récupération des données strID = [A2].Value strNom = [B2].Value strContact = [C2].Value strFonction = [D2].Value strAdresse = [E2].Value strCP = [H2].Value strVille = [F2].Value strRegion = [G2].Value strPays = [I2].Value strTel = [J2].Value strFax = [K2].Value 'Envoi de ces données vers La table "Clients" de la base de données "Comptoirs" Set oDB = CreateObject("Access.Application")
With oDB
'Création des objets automation 'C'est à dire que c'est avex ça qu'on manipule Access depuis Excel Set dbComptoir = .dbEngine.WorkSpaces(0).OpenDatabase(strNomDB) Set rsClient = dbComptoir.OpenRecordset("Clients", dbOpenDynaset)
'Fermeture des objets rsClient.Close dbComptoir.Close
End Sub
Y a plus qu'à copier-coller cettte procédure dans Excel, Adapter les variables aux champs et valeurs dont on récupère et on renvoie vers Access. Testée sous Office 2003
Christophe JEAN
J'ai essayé de joindre le classeur Excel au précédent message (non affiché puisqu'il a planté) en vain.
Pour ceux qui veulent, envoyez-moi un mail si vous désirez que je vous envoie ce classeur. Y a pluq qu'à changer l'enregistrement de la ligne 2 et un clic sur le bouton.
Vérifiez que vous avez Access installé avec la base de données 'Comptoir.mdb'
J'ai essayé de joindre le classeur Excel au précédent message (non affiché
puisqu'il a planté) en vain.
Pour ceux qui veulent, envoyez-moi un mail si vous désirez que je vous
envoie ce classeur. Y a pluq qu'à changer l'enregistrement de la ligne 2 et
un clic sur le bouton.
Vérifiez que vous avez Access installé avec la base de données
'Comptoir.mdb'
J'ai essayé de joindre le classeur Excel au précédent message (non affiché puisqu'il a planté) en vain.
Pour ceux qui veulent, envoyez-moi un mail si vous désirez que je vous envoie ce classeur. Y a pluq qu'à changer l'enregistrement de la ligne 2 et un clic sur le bouton.
Vérifiez que vous avez Access installé avec la base de données 'Comptoir.mdb'
Christophe JEAN
Un petit Oubli : Dans l'éditeur Visual Basic il est important de faire la manipulation suivante: Menu Outils --> Références... Rechercher et cocher "Microsoft DAO 3.6 Object Library" et Valider
Un petit Oubli :
Dans l'éditeur Visual Basic il est important de faire la manipulation
suivante:
Menu Outils --> Références...
Rechercher et cocher "Microsoft DAO 3.6 Object Library"
et Valider
Un petit Oubli : Dans l'éditeur Visual Basic il est important de faire la manipulation suivante: Menu Outils --> Références... Rechercher et cocher "Microsoft DAO 3.6 Object Library" et Valider
Clément Marcotte
J'ai essayé de joindre le classeur Excel au précédent message (non affiché
puisqu'il a planté) en vain.
Tant mieux.
Moins qu'il n'y a de risque de propagation de virus, mieux c'est.
Moins qu'il y a de messages trop longs qui demandent des téléchargements éternels, mieux c'est.
J'ai essayé de joindre le classeur Excel au précédent message (non
affiché
puisqu'il a planté) en vain.
Tant mieux.
Moins qu'il n'y a de risque de propagation de virus, mieux c'est.
Moins qu'il y a de messages trop longs qui demandent des
téléchargements éternels, mieux c'est.
