Discussion :

[boogie01]

Bonjour, j'ai une feuille de donnée excell importée en access (2003) dans laquelle entre chaque champ (il y en a plus de 100) j'ai une colonne vide. Comment supprimer de manière automatique ces colonnes afin de traiter la table une fois importée telle quelle d'excell ?

[Jean-Philippe André]

salut,
en VBA, tu peux faire une boucle du type

Code :

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

1
2
3
4
5
6
dim i as integer
for i = CurrentDb.TableDef("tatable").Fields.Count To 1 step -1
      If i mod 2 = 0 Then
            CurrentDb.TableDefs("tatable").Fields.Delete CurrentDb.TableDefs("tatable").Fields(1).Name
      End if
Next i

attention à bien etre en base 1 pour faire tourner le code =)