Discussion :

[hyperion13]

Bonsoir tout le monde,

J'utilise cette méthode

Code :

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

1
2
3
4
5
6
7
8
9
    Dim i As Integer
    Dim oApp As Excel.Application
    Dim oWkb As Excel.Workbook
    Dim oWSht As Excel.Worksheet
    Dim SqlStr As String
 
    Set oApp = CreateObject("excel.application")
    Set oWkb = oApp.Workbooks.Open("C:\Documents and Settings\UserName\Bureau\Dossier\fichier.xls")
    Set oWSht = oWkb.Worksheets("Sheet1")

pour importer dans une table temporaire des données d'une feuille de calculs d'Excel.

Malheureusement, certaines cellules d'un même colonne de cette feuille de calculs contiennent des chaines de caractères contenant des guillemets et bien entendu Access refuse d'importer les données.

Est-il possible, sans ouvrir le classeur Excel, de remplacer ces guillemets par un espace ?

Merci d'avance.

[User]

Salut,

Tu as essayé avec la fonction Replace ?

A+

[hyperion13]

Bonsoir User,

J'ai essayé la fonction Replace() mais inutile dans mon cas, car Access refuse d'importer les lignes de ma feuille de calculs dont une cellule contient des guillemets.

[User]

Re,

Peux-tu donner la totalité du code que tu utilises actuellement pour l'import dans ta table ?

Merci !

[hyperion13]

Voici le code que j'utilise

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
    Dim i As Integer
    Dim oApp As Excel.Application
    Dim oWkb As Excel.Workbook
    Dim oWSht As Excel.Worksheet
    Dim SqlStr As String
 
    Set oApp = CreateObject("excel.application")
    Set oWkb = oApp.Workbooks.Open("C:\Documents and Settings\UserName\Bureau\Dossier\fichier.xls")
    Set oWSht = oWkb.Worksheets("Sheet1")
    i = 2
    DoCmd.SetWarnings False
    While oWSht.Range("I" & i).Value <> ""
    SqlStr = "INSERT INTO [T_IMPORT_DATACENTER] ( [Ch0], [Ch1], [Ch2], [Ch3], [Ch4], [Ch5], [Ch6], [Ch7], [Ch8], [Ch9], [Ch10], ... , [Ch15] ) "
    SqlStr = SqlStr & "VALUES (" & Chr(34) & oWSht.Cells(i, 1) & Chr(34) & ", " & Chr(34) & oWSht.Cells(i, 2) & Chr(34) & ", " & Chr(34) & oWSht.Cells(i, 3) & Chr(34) & ", " & Chr(34) & oWSht.Cells(i, 4) & Chr(34) & ", ... , " & Chr(34) & oWSht.Cells(i, 25) & Chr(34) & ");"
    DoCmd.RunSQL SqlStr
    i = i + 1
    Wend

Pour information, si j'importe manuellement mes données d'Excel, il n'y a aucun problème, je récupère tout. Par contre avec ce code, il n'importe pas les lignes dont les cellules contiennent des guillemets.

[User]

et l'erreur se produit sur le :

Code :

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

DoCmd.RunSQL SqlStr

?

[hyperion13]

Comment fait-on pour vérifier que l'erreur se produit sur le

Code :

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

DoCmd.RunSQL SqlStr

?

[User]

Pour la fonction replace voila ce que je comptais faire:

Code :

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

1
2
3
4
5
6
While oWSht.Range("I" & i).Value <> ""
    SqlStr = "INSERT INTO [T_IMPORT_DATACENTER] ( [Ch0], [Ch1], [Ch2], [Ch3], [Ch4], [Ch5], [Ch6], [Ch7], [Ch8], [Ch9], [Ch10], ... , [Ch15] ) "
    SqlStr = SqlStr & "VALUES (" & Chr(34) & Replace(oWSht.Cells(i, 1), Chr(34), " ") & Chr(34) & ", " & Chr(34) & oWSht.Cells(i, 2) & Chr(34) & ", " & Chr(34) & oWSht.Cells(i, 3) & Chr(34) & ", " & Chr(34) & oWSht.Cells(i, 4) & Chr(34) & ", ... , " & Chr(34) & oWSht.Cells(i, 25) & Chr(34) & ");"
    DoCmd.RunSQL SqlStr
    i = i + 1
    Wend

Le changement est en rouge et il faudrait le faire pour toutes les valeurs...

A+

[hyperion13]

Denis,

Tout simplement génial.

Merci beaucoup.

[User]

De rien,

J'avais déjà vu cette manip sur le forum