bouton parcourir + import sur base de donnée

**mike2302** · 30/05/2007, 12h16

bonjour

Dans le cadre d'un projet que je doit realiser , sur un formulaire je doit a l'aide d'un bouton "parcourir", pouvoir aller cherché un fichier excel et l'importé sur une table (peut etre a l'aide d'un bouton "importer").Cette action pourra se repeter car il y a plusieurs fichier excel à importer...

pouvez vous m'aidez s'il vous plait?

Invité · 30/05/2007, 12h23

Bonjour

Tu as plusieurs solutions :

1 - Un tour dans la FAQ avec comme critére de recherche : "OUVRIR", cela te donnera un exempls de code pour sélectionner un fichier, et ensuite à toi de programmer l'importation (soit par automation, ou autre ty peux trouver des exemples ici.

2 - En utilisant le lancement de l'assistant d'importation, mettre le code suivant sur le click du bouton

Code :

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

DoCmd.RunCommand acCmdImport

Starec

**mike2302** · 30/05/2007, 12h28

non parce qu'en fait je t'explique : ce sont des statistiques et il y en a plusieurs moi jvoudrai selectionné le fichier .xls ensuite dans une zone de texte par exemple il s'afficherai (ex D:\stat\statistiques2006.xls) et pui avec un bouton "importer" , importer ce fichier dans une table.Tu pense que c'est possible?

**Lourpiop** · 30/05/2007, 12h55

j'ai rien compris au code ms dans un module tu mets les 2 modules en fichiers joints

et apres dans ton code

Code :

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

1
2
3
4
5
 
 
Dim chemin As String
chemin = OpenFileDialog("Bonjour, Choississez un fichier...", "word (*.doc)" + Chr$(0) + "*.txt" & Chr$(0), &H4, CurDir)
Étiquette.Caption = chemin

import1.txt
import2.txt

**mike2302** · 30/05/2007, 13h01

je compren pas ce que tu me dit...
je voudrai simplement un code que je met sur le bouton "parcourir"

Invité · 30/05/2007, 13h06

Re

Lourpiop te donne le code pour afficher ton fichier dans une texbox, ensuite utilise une des méthodes dans le lien que je t'ai indiqué.

Cela ne se fera pas tout seul.

1 - Récupération du chemin (Lourpiop)
2 - Importation du fichier (par les différentes méthodes du lien) à partir du fichier sélectionné.

Starec

**mike2302** · 30/05/2007, 15h16

d'accord mais comment mettre les 2 modules en fichiers joints que lourpiop m'a donné?

Invité · 30/05/2007, 15h21

Re

Tu ouvres le fichier, tu sélectionnes tout, tu fais copier, puis dans Access tu crées un nouveau module et tu fais coller.

De même pour le second.

Starec

**mike2302** · 30/05/2007, 15h31

merci pour votre aide en fait je crée donc pas 2 modules mais un seul module dans lequel je met les 2 fichiers et ensuite je met le code c'est bien sa?

**mike2302** · 30/05/2007, 15h58

on créé 2 module ou 1 module dans lequel on met les 2 fichier de code?

**Lourpiop** · 30/05/2007, 17h34

moi j en ai deux mais bon si t aimes bien le risque essaie avec un

**mike2302** · 30/05/2007, 23h50

Code :

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

1
2
3
Dim chemin As String
chemin = OpenFileDialog("Bonjour, Choississez un fichier...", "word (*.doc)" + Chr$(0) + "*.txt" & Chr$(0), &H4, CurDir)
Étiquette.Caption = chemin

j'ai crée les 2 modules mais
le code ci dessus que lourpiop m'a donné en fait je dois le mettre ou?

**mike2302** · 31/05/2007, 10h47

exercice presque resolu seulement j'ai un souci avec cette partie du code :

Code :

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

Étiquette.Caption = chemin

pourquoi le programme beugue t'il à cet endroit?

**Lourpiop** · 31/05/2007, 11h05

euh tu dois avoir une étiquette qui s'appelle "Étiquette"

**mike2302** · 31/05/2007, 11h15

ah d'accord. Comme tu doit le remarquer je débute dans le monde du vba et d'access.Pourrai-tu m'indiquer comment je peut creer une etiquette stp?

**Lourpiop** · 31/05/2007, 11h39

Bon courage.

lol
Bah dans le formulaire en mode création dans la boite à outils t as une icone qui s 'apelle qui ressemble à "Aa " qui s'appelle "etiquette" ! ^^

**mike2302** · 31/05/2007, 12h04

tu m'excusera je sui peut etre bete mais mon but en fait c'est de recuperer le chemin du fichier xls pour ensuite pouvoir l'importer.
seulement avec une etiquette on peut pas recuperé le chemin? de plus en renommant l'etiquette "étiquette" cela ne fonctionne toujours pa et le programme m'indique une erreur à ce niveau : "Étiquette.Caption = chemin"
ne devrai-je pas utiliser une zone de texte pluto?

peut tu m'aider?

**mike2302** · 31/05/2007, 12h40

--------------------------------------------------------------------------------

tu m'excusera je sui peut etre bete mais mon but en fait c'est de recuperer le chemin du fichier xls pour ensuite pouvoir l'importer.
seulement avec une etiquette on peut pas recuperé le chemin? de plus en renommant l'etiquette "étiquette" cela ne fonctionne toujours pa et le programme m'indique une erreur à ce niveau : "Étiquette.Caption = chemin"
ne devrai-je pas utiliser une zone de texte pluto?

**Lourpiop** · 31/05/2007, 12h56

bah si tu peux recuperer la valeur de ton etiquette

nom_etiquette.caption

et jcomprends pas l'autre probleme !!

**mike2302** · 31/05/2007, 15h49

ok merci beaucoup pour ta patience avec moi sa march impec

bouton parcourir + import sur base de donnée

VBA Access

Discussions similaires

Partager

Partager