Macro en VBA import des données vers Acess
madjon6
Messages postés
262
Date d'inscription
Statut
Membre
Dernière intervention
-
wilfried_42 Messages postés 907 Date d'inscription Statut Contributeur Dernière intervention -
wilfried_42 Messages postés 907 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
Je voudrais savoir par quel moyen je pourrais mettre à jour une table (Un fichier access) à partir d'un fichier excel à l'aide d'une macro ou VBA ou autre.
Pour exemple je vous ai joints 2 fichiers : un acces et l'autre excel
L'idée serait que le fichier excel se déverse dans le fichier access.
Merci pour votre aide.
Mad
Je voudrais savoir par quel moyen je pourrais mettre à jour une table (Un fichier access) à partir d'un fichier excel à l'aide d'une macro ou VBA ou autre.
Pour exemple je vous ai joints 2 fichiers : un acces et l'autre excel
L'idée serait que le fichier excel se déverse dans le fichier access.
Merci pour votre aide.
Mad
A voir également:
- Macro en VBA import des données vers Acess
- Fuite données maif - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Votre appareil ne dispose pas des correctifs de qualité et de sécurité importants - Guide
- Trier des données excel - Guide
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
8 réponses
Salut,
tu peux peux voir la macro 'TransférerFeuilleCalcul', elle devrait te convenir.
Pour exemple je vous ai joints 2 fichiers : un acces et l'autre excel
Il n'y a pas de pièces jointes dans ce forum...
tu peux peux voir la macro 'TransférerFeuilleCalcul', elle devrait te convenir.
Pour exemple je vous ai joints 2 fichiers : un acces et l'autre excel
Il n'y a pas de pièces jointes dans ce forum...
Bonjour,
Oui désolé c'est un copier coller.
Comment je dois procéder pour que les données importée d'excel n'éface pas les données existantes dans le fichier acces mais viennent à la suite.
Merci
Oui désolé c'est un copier coller.
Comment je dois procéder pour que les données importée d'excel n'éface pas les données existantes dans le fichier acces mais viennent à la suite.
Merci
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Bonjour,
Ben je voudrais de façon à ce qu'une ou 2 fois par mois mettre à jour une table access depuis excel sans que les données existantes s'éffacent.
Ben je voudrais de façon à ce qu'une ou 2 fois par mois mettre à jour une table access depuis excel sans que les données existantes s'éffacent.
Bonjour à tous
Voici un lien, qui va te permettre de voir ce que fait la macro postée (Macro complémentaire)
J'ai depuis fais evolué cette macro afin de faire des sauvegardes de mes données excel sur un Base de donnée Acces, je la posterai ce soir ou demain (je suis au boulot et je n'ai pas ma macro ici)
https://www.excel-downloads.com/threads/contibution-excel-gere-acces.105686/#post612917
Voici un lien, qui va te permettre de voir ce que fait la macro postée (Macro complémentaire)
J'ai depuis fais evolué cette macro afin de faire des sauvegardes de mes données excel sur un Base de donnée Acces, je la posterai ce soir ou demain (je suis au boulot et je n'ai pas ma macro ici)
https://www.excel-downloads.com/threads/contibution-excel-gere-acces.105686/#post612917
Bonjour à tous,
Ci joint une procédure tirée de mon grenier (ca nous rajeunit pas!); Excuses moi Wilfried de ne pas attendre ta proposition , mais justement ca me rajeunit en repensant au boulot/ADO effectué avec MichelXLD et Thierry
Attention si lidentifiant de la table cible est un numéroauto!!! dans ce cas ne pas importer de données Excel dans ce champ...
Ci joint une procédure tirée de mon grenier (ca nous rajeunit pas!); Excuses moi Wilfried de ne pas attendre ta proposition , mais justement ca me rajeunit en repensant au boulot/ADO effectué avec MichelXLD et Thierry
Attention si lidentifiant de la table cible est un numéroauto!!! dans ce cas ne pas importer de données Excel dans ce champ...
Sub importer_Excel_Access()
'Michel_M 19/05/04 pour Excel-downloads
'a partir du site de Fred Sigonneau (Merci)
Dim tabase As Object
Dim requete As Object
Dim laTable As String
Dim lig As Long, cptr As Long
Dim deb As Byte ' début avant ligne 256 sinon type integer
laTable = "nomde_latablecible_danstabase"
Set tabase = CreateObject(ADODB.Connection)
Set requete = CreateObject(ADODB.Recordset)
With tabase
.Provider = "Microsoft.JET.OLEDB.4.0"
.Open "chemin_de_tabase\nom_detabase.mdb"
End With
With requete
.activeConnection = tabase
.Open laTable, lockType:=adLockOptimistic
End With
With Sheets(1) ' tableau en feuille1 et en colonne 1
lig = .Range("A65536").End(xlUp).Row
deb = 2 'début des occurences dans excel
With requete
For cptr = deb To lig
.addNew
.Fields("Nom").Value = .Cells(lig, 1)
.Fields("prenom").Value = .Cells(lig, 2)
.Fields("sexe").Value = .Cells(lig, 3)
.Update
Next
End With
End With
requete.Close
labase.Close
End Sub
--
Cordialement,
Michel