Macro création table à partir d'un fichier excel

Le
po2b
Bonjour à tous,

Je voudrais créer une Macro (ou un code VB) qui me permette de créer une
table à partir d'un fichier excel qui se trouve dans le même répertoire et
qui est toujours identique (1ère ligne = titres et pas de lignes vides en
haut)

Mon fichier excel s'appelle "invent_der.xls". Je voudrais mettre dans mon
formulaire acces un bouton qui aille chercher
ce fichier et qui crée la table "invent_der" (et l'écrase si elle existe
pour avoir la dernière mise à jour).

Merci d'avance pour votre aide

PO.

PS : J'utilise access 2002
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
FFO
Le #20734301
Salut à toi

Mets dans un module ce code :

DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel3, "invent_der",
"C:Chemininvent_der.xls", True, "Mafeuille!"

Actualises :

"C:Chemininvent_der.xls"
du chemin de ton fichier xls

"Mafeuille!"
du nom de la feuille à importer

Fais des essais et dis moi !!!!!
po2b
Le #20735041
Bonjour FFO,

Merci pour ta réponse, ça fonctionne parfaitement tel quel !!!

Une petite demande complémentaire stp, je voudrais que la table précedente
soit supprimée avant l'import,
quel est le code à mettre ?
(lorsque je lance le code sans supprimer la table précédente, l'ancienne
table n'est pas remplacée).

Merci d'avance

PO


"FFO" news:
Salut à toi

Mets dans un module ce code :

DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel3, "invent_der",
"C:Chemininvent_der.xls", True, "Mafeuille!"

Actualises :

"C:Chemininvent_der.xls"
du chemin de ton fichier xls

"Mafeuille!"
du nom de la feuille à importer

Fais des essais et dis moi !!!!!



FFO
Le #20735211
Rebonjour à toi
Heureux que celà te satisfasse

Pour supprimer ta table "invent_der" rajoute en préambule ces lignes dans
ton module :

For Each tdf In CurrentDb.TableDefs
If tdf.Name = "invent_der" Then
CurrentDb.Execute "Drop Table invent_der"
End If
Next

Celà devrait faire

Dis moi !!!!!
po2b
Le #20735381
C'est parfait !

Encore merci pour ta précieuse aide.

Bonne Journée

PO



"FFO" news:
Rebonjour à toi
Heureux que celà te satisfasse

Pour supprimer ta table "invent_der" rajoute en préambule ces lignes dans
ton module :

For Each tdf In CurrentDb.TableDefs
If tdf.Name = "invent_der" Then
CurrentDb.Execute "Drop Table invent_der"
End If
Next

Celà devrait faire

Dis moi !!!!!



Publicité
Poster une réponse
Anonyme