Discussion :

[mulanzia2003]

Bonjour,
Nouveau en programmation VBA avec ACCESS !!!
Je souhaite mettre en place un bouton qui m'execute un code.
Là je sais faire.
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.

[mulanzia2003]

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.

[bruno28]

Code :

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

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

[mulanzia2003]

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 !!!

[bruno28]

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.

[mulanzia2003]

Ecoute, voilà le code que je met.

Code :

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

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 !!!

[mulanzia2003]

Bon j'ai trouvé !!!


Merci à ceux qui m'ont aidé

Code :

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

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.

[AlainTech]

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).