Rechercher : dans
Par :

[Access97] macro d'importation données Excel

Dernière réponse le 26 jui 2005 à 19:14:49 Christophe, le 22 jui 2005 à 16:02:25 
 Signaler ce message aux modérateurs

Salut tout le monde!!!

J'ai un pblm avec Access97. En fait j'essai de créer un macro qui va importer des données à partir d'une table Excel. Mais je n'arrive pas indiquer le chemin vers une feuille donnée (quand j'essai de recuperer données de 2° feuille, j'ai une erreur: il lit que les données de la 1° feuille). Je galère deja 2 jours...

Merci d'avance pour votre réponse!

Meilleures réponses pour « [Access97] macro d'importation données Excel » dans :
[VBA]Connecter une base de donnée (MDB) à excel VoirConnecter une base de donnée access (MDB) dans une application excel. Ajouter la référence Microsoft DAO object librairy X.X Dans un module général (Module1 par exemple) coller le code ci-dessous Sub CopieDBaccess() Dim BDexp As...
Access 97 sous XP - Mémoire insuffisante VoirProblème Solution Problème Le message "mémoire insuffisante" apparaît lorsque l'on essaie de lancer Access 97 sous Windows XP suite à l'installation d'Access ou du pack Office 97. Ne changez rien à votre configuration matérielle, le...
Télécharger Ms Word Excel Cracker VoirMs Word Excel Craker est une application permettant de retrouver les mots de passe perdus ou oubliés pour les fichiers.xls ou .doc créés avec Microsoft Office 97, 2000, 2003, XP ou autres programmes Word ou Excel compatibles. Cette application vous...

1

mohammed, le 22 jui 2005 à 20:13:39

Salut Christophe
essaye dans le macros d'utliser arrêt maxro apprès la 1ère importation ensuite importer la second feuil.

voici un code vba
Déclaration:


Dim appexcel as Excel.Application
Dim wbexcel as Excel.Workbook
Ne pas oublier de cocher dans le menu Outil/Références, la bibliothèque Microsoft Excel X Object Library (avec x = 8 pour Excel 97, x = 9 pour Excel 2000, x = 10 pour excel XP, x = 11 pour excel 2003).
Bonne chance.
Merci


Appel du fichier Excel :


Set appexcel = CreateObject("Excel.Application")
appexcel.Visible = True
Set wbexcel = appexcel.Workbooks.Open("Chemin du fichier Excel")
Appel de la feuille correspondante :


appexcel.Sheets("Feuil1").Select
Remplissage dans Excel (Exemple à partir d'une requête), sur des cellules bien précises.


appexcel.cells(5, 2) = rst![Nomduchamps]
appexcel.cells(5, 4) = rst![Nomduchamps]
appexcel.cells(5, 7) = rst![Nomduchamps]
Attention la cellule (5,2) correspond à la cellule B5 d'excel. la fonction rst correspond à un enregistrement RecordSet.

Répondre à mohammed

2

Christophe, le 22 jui 2005 à 21:04:14

Salut Mohammed!

Je vais voir ça lundi, car c'est au boulot. En tout cas merci beaucoup pour ta réponse. Je te tiendrai au courant si ça marche (et même si ça ne marche pas...) :o)

Répondre à Christophe

3

mohammed, le 24 jui 2005 à 20:26:13

Salut christophe,
bon week end même si en retard.
je suis un débutant en access vous trouverez beaucoup d'information sur le site developpez.com -> acces->faqaccess
http://access.developpez.com/faq/
bonne chance.
Bon retour au boulôt.
Merci.

Répondre à mohammed

4

Christophe, le 25 jui 2005 à 09:46:15

Salut Mohammed!

En fait j'ai trouvé! (ton exemple faisait le procedure inverse - Acceszs-> Excel)

Il fallait seulement dans l'étendue de la plage à importer préciser l'onglet.

Ex.: pas A1:D5 - mais Feuille!A1:D5

Voila! Allez ciao et bonne chance!

Répondre à Christophe

5

 mohammed, le 26 jui 2005 à 19:14:49

Salut christophe,
bien joué peut être que j'ai mal compris votre question.
onne chance.
Merci.

Répondre à mohammed
Collection CommentÇaMarche.net