[VBA ACCESS] Importation de données DBF->Access

Bonjour,
Nouveau en programmation VBA avec ACCESS !!!:oops:
Je souhaite mettre en place un bouton qui m'execute un code.
Là je sais faire.:lol:
Mon problème est sur le code.:?
Le code doit consister à
1)importer un fichier PILOT.dbf situé sous C:\Extraction\PILOT.dbf.
2)supprimer l'ancienne table nommée "PILOT"
3)renommer la table importée en "PILOT"

Mon fichier access est composé d'une table nommée PILOT
Je souhaite en fait mettre à jour cette table à partir du fichier PILOT.dbf.

Je vous remercie de votre aide par avance.:roll:

Je précise ma demande :
En fait je souhaite automatiser (à l'aide d'un bouton + code) la mise à jour de ma table "PILOT".

D'un logiciel de maintenance (GMAO), j'extrait tous les matins vers un fichier Pilot_année.dbf.
J'ai déjà effectué l'importation une première fois. Tout cela a bien fonctionné.
Maintenant, il faudrait que je puisse mettre à jour la table PILOT car elle est à la base de toutes mes requêtes, et état.

Si quelqu'un a une petite idée.

P.S : j'ai déjà testé la macro "importer" mais elle me crée une autre table.

Allez un petit tuayu me rendrai service.

Code:

---

1 2	DoCmd.TransferSpreadsheet acImport, 5, "nomùTable", "C:\Documents and Settings\\Import", True, ""

---

C'est le code pour un fichier .xls
Je sais pas si cela fonctionne depuis ton format de fichier, à vérifier

Utilise F1

Merci de ton aide,
J'ai simplement une erreur sur la ligne car le fichier que je demande d'ouvrir est un fichier *.dbf

Aidez moi !!!

Ca doit marcher, mais il faut préciser l'extention du fichier.

Ci après l'aide d'Access sur la fonction :

Nom de la table, de la requête Sélection ou de l'objet Microsoft Access à importer, exporter ou attacher. Pour certains types de bases de données, tels que FoxPro, Paradox, ou dBASE, il s'agit d'un nom de fichier. Ajoutez l'extension de nom de fichier (par exemple .dbf) au nom du fichier. Cet argument est obligatoire.

Ecoute, voilà le code que je met.

Code:

---

1 2 3

DoCmd.TransferSpreadsheet acImport, _ "PILOT", "O:\GMA_PUBL\extraction PS\PILOT.dbf", True, ""

---

Il me renvoie une erreur : Erreur 13 incomptabilité de type.

!!! HELP HELP !!!

Bonjour,

:salut:

je viens d'essayer avec un autre code,

Code:

---

1 2 3 4

Private Sub Commande36_Click() DoCmd.TransferDatabase acImport, "dBase III", "C:\Pilot.dbf", acTable, "Base", "Base test", False End Sub

---

Il me renvoie une erreur 3044, comme quoi C:\Pilot.dbf n'est pas un chemin d'accès valide. alors que mon fichier est bien dessus.


Autre solution :

Code:

---

1 2 3 4

Private Sub Commande36_Click() DoCmd.TransferSpreadsheet acImport, 5, "BASE", "O:\GMA_PUBL\extraction PS\PILOT.xls", True, "" End Sub

---

Ce code fonctionne mais le fichier PILOT.xls, c'est moi qui l'ai créé.
Est-il possible de faire en automatique, l'ouverture du fichier PILOT.dbf puis de l'enregistrer sous PILOT.xls, de l'importer et de supprimer le PILOT.xls après. Si c'est faisable, merci de me donner des bouts de code, je continue mes recherches

Bon j'ai trouvé !!!
:D

Merci à ceux qui m'ont aidé

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Private Sub Commande36_Click() Dim appXL, appXLS As Excel.Application 'permet la création d'un doc Excel Dim WXL As Excel.Workbook Dim oWSht As Excel.Worksheet Set appXL = CreateObject("Excel.Application") 'crée un doc Excel appXL.Visible = True 'permet de visualiser le doc Excel ouvert remplacer par False si on veut le faire en tâche masquée Workbooks.Open ("O:\GMA_PUBL\extraction PS\PILOT.dbf") ' ouvre le fichier *.dbf avec Excel ActiveWorkbook.SaveAs "O:\GMA_PUBL\extraction PS\PILOT.xls" 'Permet de le sauvegarder au format *.xls DoCmd.TransferSpreadsheet acImport, 5, "PILOT", "O:\GMA_PUBL\extraction PS\PILOT.xls", True, "" ' permet d'importer le fichier Excel dans une table nommée ici PILOT Workbooks("PILOT.xls").Activate ActiveWorkbook.Save 'permet de sauvegarder le document après modification appXL.Quit 'ferme l'application Excel et retour sur le formulaire End Sub

---

Ce code fonctionne, le seul petit souci c'est qu'il ne supprime pas le fichier excel créé. Mais cela viendra. Si qqn a une idée, je suis ouvert.

Cordialement.

Pour ouvrir un fichier DBF, il faut savoir que le nom de la base est le nom (chemin) du répertoire contenant le fichier.
Le nom de la table est le nom du fichier (sans le chemin).

Code:

---

1 2 3 4

Private Sub Commande36_Click() DoCmd.TransferDatabase acImport, "dBase III", "C:\Pilot.dbf", acTable, "Base", "Base test", False End Sub

---

Il me renvoie une erreur 3044, comme quoi C:\Pilot.dbf n'est pas un chemin d'accès valide. alors que mon fichier est bien dessus.[/COLOR]


j'ai modifié le code :lol::lol:

Code:

---

1 2 3 4

Private Sub Commande36_Click() DoCmd.TransferDatabase acImport, "dBase III", "C:\", acTable, "pilot.dbf", "Base test", False End Sub

---