Discussion :

[chrisloom]

Bonjour à tous,

Je travaille sous Access 2007 ainsi que Excel 2007 afin de remettre a jour les fichiers suivant les methodes import/export ADO ..

Actuellement, j'ai un souci d'importation d'1 feuille Excel avec des caracteres spéciaux dans les entêtes de colonnes Excel.

Exemple : +30j

J'utilise l'assistant de creation de Table avec Import du fichier Excel
Je coche l'option de mettre les entetes de colonnes pour les titres etc ..

Il me met un message qu'il y a des caracteres non valides dans la premiere ligne, mais je peux passer l'etape suivante.

Ensuite a la fin il me met : " the search key was not found etc " et il ne me cree pas la table.

J'ai teste en virant les colonnes avec des " + ", il met le message caractere invalide dans la premiere ligne toujours .... peut etre les caracteres espaces ?? Mais il met cree la table quand meme ... avec les champs etc ..

Est ce que je dois creer cette table manuellement ?

OU

Est ce que je dois ouvrir le fichier Excel (AUTOMATION) et modifier les entetes de colonnes ?

Pour cette solution, ..... je pensais l'ouvrir et faire une boucle avec ma commande REPLACE pour virer les " + " par un point " . " et les caracteres espaces par un " _ ".


Merci beaucoup de votre aide

Cordialement

[chrisloom]

Bonsoir

j'ai trouve la solution un peu barbare je l'avoue

J'ouvre le fichier - je remplace les caracteres speciaux dans les entetes de colonnes qui me genait pour l'importation - je ferme et enregistre le fichier excel - j'importe ensuite avec la commande DOCMD etc .. dans ma table

Voila le bout de code :

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
' FICHIER EXCEL A OUVRIR
 
        Set xlBook = xlApp.Workbooks.Open(strdossier)
 
        ' 
        Dim ssss As String
        ssss = Range("M5000").End(xlUp).Offset(1, 0).Select
 
        ' MsgBox "" & ssss
 
 
    Dim iii As Long
    Dim strMgr As String
    Dim strMgr1 As String
 
 
 
    ' Remplacer "espace" par underscore
        iii = 1
    For iii = 1 To 23
 
               strMgr = xlApp.Sheets("Sheet1").Cells(1, iii).Text
       strMgr1 = Replace(strMgr, " ", "_")
       xlApp.Sheets("Sheet1").Cells(1, iii).Value = strMgr1
 
    Next iii
 
        ' Remplacer "é" par "e"
        iii = 1
    For iii = 1 To 23
 
               strMgr = xlApp.Sheets("Sheet1").Cells(1, iii).Text
       strMgr1 = Replace(strMgr, "é", "e")
       xlApp.Sheets("Sheet1").Cells(1, iii).Value = strMgr1
 
    Next iii