Discussion :

[antier]

Bonsoir,
Je souhaiterai mettre à jour une table via un fichier excel. Toutes les colonnes de ce fichier doivent mettre à jour tous mes champs.

Cette table qui doit subir des mises à jour via ce fichier est en relation avec d'autres tables qui ne doivent pas être mises à jour.

j'ai essayé plusieurs choses mais je pense que je m'y prends comme un manche. (j'ai lié le fichier excel mais je ne peux pas appliquer l'intégrité réferencielle donc les requêtes mises à jour ne fonctionnent pas comme je voudrais)

Voilà mon gros soucis, j'ai besoin de précieux conseils pour essayer d'avancer dans ce problème auquel je ne trouve point de solution.

Je vous remercie d'avance

[keita]

salut
Il serait peut etre plus simple de resoudre ton pb en etant dans access.
Dans ta bd access, tu importes tes données excel dans une table et tu fais tes requetes mis à jour. as-tu essayé ça?

[DMboup]

Voici un exemple qui marche. Bonne étude

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
 
Private Sub Commande1_Click()
 Dim xlApp As Excel.Application
    Dim xlSheet As Excel.Worksheet
    Dim xlBook As Excel.Workbook
    Dim vtemp As Variant, Chemin As String
    Dim mbd As Database, TRecord As Recordset
 
    Set mbd = CurrentDb()
    Set TRecord = mbd.OpenRecordset("Table1")
 
    'J'initialise mes variables
    Set xlApp = CreateObject("Excel.Application")
 
    Chemin = "C:\Mes Documents\Quest.xls"
    'xlApp.Visible = True
    Set xlBook = xlApp.Workbooks.Open(Chemin)
 
    Set xlSheet = xlBook.Sheets("Feuil1")
 
    'Ajout des données d'Excel dans la table
 
     TRecord.AddNew
        TRecord("Langue") = xlSheet.Cells(18, 5)
        TRecord("DateCreation") = xlSheet.Cells(20, 5) & " " & xlSheet.Cells(21, 5) & " " & xlSheet.Cells(22, 5)
        TRecord("LibelleAssoc") = xlSheet.Cells(23, 5)
        TRecord("Pays") = xlSheet.Cells(24, 5)
        TRecord("TypeStruct") = xlSheet.Cells(26, 5)
 
     TRecord.Update
     xlBook.Close
    xlApp.Quit
 
    Set xlApp = Nothing
    Set xlSheet = Nothing
    Set xlBook = Nothing
 
    MsgBox "Fin de la procédure. :)"
End Sub

[hugo69]

tu ne peux pas expliquer un peu ton code pour les debutant????

Tu me ce code dans access?