Discussion :

[zoom61]

Salut,

Le code suivant fonctionne très bien pour lier une table excel :

Code :

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

1
2
3
4
5
6
7
8
9
'supprimer la table liée
CurrentDb.TableDefs.Delete (NExcel2)
 
'ajouter la nouvelle table liée
Set CExcel = CurrentDb.CreateTableDef(NExcel2)
LExcel = "Excel 8.0;DATABASE=" & NChemin & "\" & NFichier2 & ";HDR=YES;"
CExcel.Connect = LExcel
CExcel.SourceTableName = "SYNTHESE" & "$"
CurrentDb.TableDefs.Append CExcel

Par contre, je ne voudrai pas que cela me mette la premère ligne comme nom de colonne avez-vous une idée

@+

[lelensois16]

Bjr,

Faudrait peut être utiliser la méthode suivante ;

Code :

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

1
2
3
4
    Dim fld As DAO.Field
 
    Set fld = tbl.CreateField(ColumnName, DataType, FieldSize)
    tbl.Fields.Append fld

Pour les valeurs de column name , faudrait peut être faire une boucle ?

Cdt

[tee_grandbois]

Bonsoir,
je pense qu'il y a plus simple :

Code :

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

LExcel = "Excel 8.0;DATABASE=" & NChemin & "\" & NFichier2 & ";HDR=NO;"

Les colonnes seront nommées automatiquement F1, F2, F3...

[zoom61]

J'ai fait de la façon suivante et cela fonctionne comme je le veux mais je ne sais pas l'expliqué, c'est en supprimant le & "$"

Code :

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

1
2
3
4
5
6
7
8
9
'supprimer la table liée
CurrentDb.TableDefs.Delete (NExcel2)
 
'ajouter la nouvelle table liée
Set CExcel = CurrentDb.CreateTableDef(NExcel2)
LExcel = "Excel 8.0;DATABASE=" & NChemin & "\" & NFichier2 & ";HDR=YES;"
CExcel.Connect = LExcel
CExcel.SourceTableName = "SYNTHESE"
CurrentDb.TableDefs.Append CExcel

Merci quand même.