Discussion :

[devdev]

Bonjour,

Je travaille avec ACCESS 2003 et EXCEL 2003.
Mon application utilise une table liée à un document xls.
Des traitements sont exécutés.

Je voudrais par programmation changer le lien de cette table pour permettre de répéter plusieurs fois les traitements avec des fichiers excel différents.

Pourriez vous m'aider svp ? Merci d'avance.

[Psychopathe]

Bon ben voici un élément de réponse avec les références Office et Dao activés évidemment.

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
 
Public Sub changerLienTable()
 
Dim fs As FileDialog, laTable As DAO.TableDef
 
'Pour la boite de dialogue afin de sélectionner le fichier Excel
Set fs = Application.FileDialog(msoFileDialogFilePicker)
 
fs.Filters.Clear
'Filtre sur des fichiers Excel
fs.Filters.Add "Microsoft Excel", "*.xls"
 
'Si un fichier a été choisi alors on change le lien
If (fs.Show = -1) Then
    'On supprime la table (le lien) de la base
    For Each laTable In CurrentDb.TableDefs
        If (laTable.Name = "tableExcel") Then DoCmd.DeleteObject acTable, laTable.Name
    Next
    'Puis on importe la table avec le fichier sélectionné
    DoCmd.TransferSpreadsheet acLink, acSpreadsheetTypeExcel9, "tableExcel", fs.SelectedItems(1), True
End If
 
 
Set fs = Nothing
 
 
End Sub

Evidemment il faut adapter le code selon tes besoins.

[devdev]

merci pour ce code très clair !, ca fonctionne parfaitement, j'ignorais qu'on pouvait faire cela.