[Import] [2000] Importer des données venant d'excel

**DamKre** · 24/04/2007, 07h49

Bonjour.

Comment puis-je procéder pour importer des données dans une table. Les données sont stockées dans un fichier excel.

Dans ce que j'ai déjà essayé ( macros ou en vba ), je dois à chaque fois préciser où est stocké le fichier, ce qui ne m'arrange pas !!!!!

Avez-vous une solution?

Invité · 24/04/2007, 07h59

Bonjour

Déjà montre nous (code) ce que tu as essayé, il y'a peut-être une option que tu as oublié.

As-tu fais des recherches ? Car il y'a de nombreuses discussions sur ce sujet (tape Excel dans le moteur de recherche).

Starec

**DamKre** · 24/04/2007, 10h39

Envoyé par Starec

Déjà montre nous (code) ce que tu as essayé, il y'a peut-être une option que tu as oublié.

J'ai essayé
- par une macro
- en vba avec DoCmd.et j'ai essayé transferfeuilledonnée

Dans les deux cas, je DOIS indiquer l'endroit où est stocké le fichier à importer!

Comment ferais-tu?

Envoyé par Starec

As-tu fais des recherches ? Car il y'a de nombreuses discussions sur ce sujet (tape Excel dans le moteur de recherche).

Rassure-toi, j'essaie toujours de faire une recherche. Mais je n'ai pas trouvé ce qui m'intéressait ( à moins que je cherche mal... )

Merci à toi...

Invité · 24/04/2007, 10h48

Envoyé par damkre

J'ai essayé
- par une macro
- en vba avec DoCmd.et j'ai essayé transferfeuilledonnée

Re

Et le code ?

De toute façon tu dois toujours indiquer le chemin de ton fichier pour le mettre en paramètre.

Tu as deux solutions :
1 - Le mettre en dur si celui-ci est constant
2 - Ouvrir une boite de dialogue pour le récupérer (un tour dans la FAQ te donnera les codes).

Starec

**DamKre** · 24/04/2007, 12h44

OK, merci. Je dirai te dirai quoi quand j'aurai testé le tout

**DamKre** · 26/04/2007, 13h13

Envoyé par Starec

Avec la boite de dialogue tu récupére le chemin du fichier plus son nom, c'est l'ensemble qui doit être passé en paramètre.

Heu... J'ai pas tout compris, là?

Invité · 26/04/2007, 13h27

Re

Heu... J'ai pas tout compris, là?

Mélange de discussions, mets le code que tu as écris.

Starec

**DamKre** · 27/04/2007, 07h22

Re,

J'ai suivi la FAQ ( ici ), c'est ce que tu m'avais reccomandé.

J'ai donc fait une MsgBox, après avoir inséré le code dans un module :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox OuvrirUnFichier(Me.Hwnd, "Parcourir", 1, "Fichier Excel", "xls")

Cette dernière s'ouvre dès que je clique sur un bouton dans un formulaire. Je peux sélectionner un fichier. Une boîte de message s'affiche avec le chemin d'accès au fichier.

Le problème, c'est que je ne sais pas comment récupérer ce chemin pour importer le fichier sélectionné.

J'utilise

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DoCmd.TransferSpreadSheet acImport, acSpreadsheetTypeExcel9, "NOM DE MA TABLE",ICI DEVRAIT SE TROUVER LE FICHIER QUE J'AI RECUPERE AVEC LA MSGBOX, True

.

Le seul problème est donc, dans ce code, d'utiliser le chemin d'accès sélectionné auparavant...

As-tu une solution?

Invité · 27/04/2007, 07h27

Re

On comprend mieux avec le code

1 - Récupére le chemin du fichier dans une variable

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim strChemFichier as string
strChemFichier = OuvrirUnFichier(Me.Hwnd, "Parcourir", 1, "Fichier Excel", "xls")

2 - Tu peux l'afficher dans une MsgBox

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Msgbox strChemFichier

et c'est cette variable "strChemFichier" que tu utilises pour ton tranfert.

Starec

**DamKre** · 27/04/2007, 11h40

Re,

Envoyé par Starec

On comprend mieux avec le code

Bien d'accord avec toi, mais je n'ai pas toujours Access sous la main...

Envoyé par Starec

1 - Récupére le chemin du fichier dans une variable

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim strChemFichier as string
strChemFichier = OuvrirUnFichier(Me.Hwnd, "Parcourir", 1, "Fichier Excel", "xls")

2 - Tu peux l'afficher dans une MsgBox

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Msgbox strChemFichier

et c'est cette variable "strChemFichier" que tu utilises pour ton tranfert.

Donc, si je comprends bien, dans mon formulaire, je crée un bouton pour importer les données. Puis, en VBA :

1) Je récupère les données avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim strChemFichier as string
strChemFichier = OuvrirUnFichier(Me.Hwnd, "Parcourir", 1, "Fichier Excel", "xls")

2) J'utilise ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DoCmd.TransferSpreadSheet acImport, acSpreadsheetTypeExcel9, "NOM DE MA TABLE",strChemFichier, True

Ais-je bien compris ?????

Invité · 27/04/2007, 11h57

Oui, tu as compris

Sur le click de ton bouton tu mets le 1 er code, avec l'affectation dans ta variable.

Starec

**DamKre** · 27/04/2007, 12h32

Envoyé par Starec

Oui, tu as compris

Sur le click de ton bouton tu mets le 1 er code, avec l'affectation dans ta variable.

C'est parce que tes explications sont très claires !

Merci @ toi

Invité · 27/04/2007, 12h41

Re

A toi de faire pour voir si cela te convient, tiens nous au courant et n'oublie pas de cliquer sur

si c'est bon.

Starec

**DamKre** · 28/04/2007, 12h10

Re,

Visaul basic met une erreur : "le fichier sélectionné ne contient pas de données", ce qui est faux !

Ce message apparaît au moment où j'utilise

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "TABLE", strChemFichier, True

.

DAns mon formulaire, j'ai un bouton. Propriété sur clic :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim strChemFichier as string
strChemFichier = OuvrirUnFichier(Me.Hwnd, "Parcourir", 1, "Fichier Excel", "xls")
Msgbox strChemFichier
 
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "TABLE", strChemFichier, True

Qu'ais-je mal fait???

**FreeAccess** · 28/04/2007, 12h47

Re,
Personnellement, je viens de tester ton code.......et il fonctionne correctement.....

(sous ACCESS 2003)

Par contre, juste une petite chose...la ligne suivante n'est pas necessaire:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Msgbox strChemFichier

Sauf si tu tiens obligatoirement à "revoir" le nom du fichier importé....

Pour info, le fichier Excel est simplement composé de:

En ligne 1 ==> corespond aux nom des champs

A partir de la deuxième ligne ==> toutes les autres données

**DamKre** · 28/04/2007, 12h52

Ah! Quelle bonne nouvelle ! Et est-il capable de fonctionner correctement avec Acess 2000 ( je n'ai que cette version? )

Dois-je, dans VBA, cocher une référence de plus???