Discussion :

[alaingui]

Bonjour
j'ai une appli qui tourne sous Excel.
Je dois lancer une MAJ de la base depuis Excel.
Cette mise à jour contient l'instruction :

Code :

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

DoCmd.TransferText acImportFixed, "spec", "Tbl_Manquants", nom_fichier

Comment réécrire cela en VBA Excel ?

les autres instructions qui ne sont que des requetes SQL c'est ok

MErci d'avance

[ouskel'n'or]

Je ne connais pas mais j'ai trouvé ça dans les Sources : http://vb.developpez.com/srcvba/?pag...mportRecordSet.
Si ça peut t'aider...
Bonne journée

[alaingui]

Merci pour ta réponse mais je mettais surement mal exprimer
Il s'agissait de faire une MAJ depuis excel d'Access
J'ai trouvé dans la FQ et j'ai adapté :
procédure dans la base access

Code :

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

1
2
3
4
5
6
Public Sub maj_base2()  
'Effacement de la table arrivée
sql = "DELETE T_Manquants_import.* from T_Manquants_import"
DoCmd.RunSQL sql
'Importe le fichier
DoCmd.TransferText acImportDelim, "format_import_Manquants", "T_Manquants_import", nom_fichier, True

et lignes vba dans excel

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub bt_lance_MAJ_Click()
Dim MonAccess As New Access.Application
Dim nom_fichier As String
 
nom_fichier = "manquants.txt"
 
MonAccess.OpenCurrentDatabase "ordo.mdb" 'Ici le chemin de la bdd Access
MonAccess.Run "maj_base2"  'Ici le nom de la procedure
MonAccess.Quit acquitsaveNone
Set MonAccess = Nothing
End Sub

merci encore