Discussion :

[DamKre]

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é]

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]

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?

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é]

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]

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

[DamKre]

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é]

Re

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

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

Starec

[DamKre]

Bonjour.

Après de nombreux essais, j'essaie toujours d'exporter mes données vers un fichier Excel à partir de VBA ( DoCmd.transfer.... ). Ensuite, je prévois un module d'import basé sur la même fonction.

Le problème, c'est que l'import des données ne fonctionne jamais ! Quoi qu'il arrive, j'ai toujours une erreur qui empêche l'import de mes données. Pourtant, le fichier que j'esaie d'importer est créé par l'application avec laquelle j'essaie d'importer mes données.

Avez-vous une solution ?

[FreeAccess]

Bonjour,

Pour importer d'Excel vers Access:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Commande29_Click()
'La variable NomFichier contiendra le nom du fichier sélectionné
Dim NomFichier As String
NomFichier = OuvrirUnFichier(Me.hwnd, "Parcourir", 1, "Fichier Excel", "xls")
 
'Pour test, on va afficher le nom du fichier sélectionné dans un MsgBox
MsgBox "Le fichier sélectionné = " & NomFichier
 
'On importe le fichier Excel choisi dans une nouvelle table ou on ajoute
'les données si la table existe déjà
'Ici l'argument TRUE précise que la première ligne de la feuille Excel
'correspond au en-tête des colonnes qui seront donc les noms des champs
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "TABLE", _
NomFichier, True
End Sub

Et cela fonctionne correctement....

[DamKre]

Re,

Voici ce que j'ai mis :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Private Sub ImportToutesDonnées_Click()
On Error GoTo GestionErreur
 
'La variable NomFichier contiendra le nom du fichier sélectionné
Dim NomFichier As String
 
NomFichier = OuvrirUnFichier(Me.Hwnd, "Parcourir", 1, "Fichier Excel", "xls")
 
'Pour test, on va afficher le nom du fichier sélectionné dans un MsgBox
MsgBox "Le fichier sélectionné = " & NomFichier
 
'On importe le fichier Excel choisi dans une nouvelle table ou on ajoute les données si la table existe déjà
'Ici l'argument TRUE précise que la première ligne de la feuille Excel correspond au en-tête des colonnes qui seront donc les noms des champs
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "Etablissement", _
NomFichier, True
 
MsgBox "Import terminé"
 
GestionErreur:
Select Case Err.Number
Case 2522
  MsgBox "Une erreur s'est produite lors de l'import de vos données !", vbCritical + vbOKOnly, "Import de toutes les données : Erreur"
End Select
 
End Sub

Je ne vois jamais arriver le message "import terminé"... et les données ne sont pas importées !!!

Peux-tu me lister les références VBA que tu as chez toi, afin de voir s'il m'en manque ?

[DamKre]

Et cela fonctionne correctement....

En fait, cela fonctionne très bien. Il arrive à créer une nouvelle table. Mais c'est tout le contraire lorsqu'il doit importer les données dans une table déjà existante !

Si la table existe déjà, j'ai la msgbox "Le fichier =" &Nomfichier

C'est au moment du "DoCmd.etc" qu'il bloque.

[DamKre]

Problème résolu ( je touche du bois )