Discussion :

[zapan57]

* Bonjour, *

Comme demandé, je sépare ma demande en plusieurs partie:



Je dois réaliser une base de données qui mets à jour son contenu en fonction de fichiers excels sur le réseau. Il y à plus de 2000 lignes.Les données sont répartis sur une feuille avec plusieurs colonne:exemple


:: Contract :: adresse :: id-national:: type de site:: commune
123 nancy brabois, 34 PRT Nancy
"le vélodrome" 54000
143 Metz, chaplerue 1234 bos Metz
J'ai réussi a développer une fonction en sql qui me permet de mettre à jour ma table, Cependant comme les colonnes sont séparées et nombreuses la fonction est devenue longue meme si son action est simple.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Set oApp = CreateObject("excel.application")
Set oWkb = oApp.Workbooks.Open(result) 'mettez ici le chemin vers votre fichier Excel
Set oWSht = oWkb.Worksheets(result2) 'mettez ici le nom de la feuille qui contient les données à importer
 
 While oWSht.Range("C" & i).Value <> "" '(où C représente la colonnede Id national et i la ligne)
    If DCount("*", "[T_Importation_PPV_Alsace_Lorraine]", "[ID national site] LIKE '" & oWSht.Cells(i, 1) & "'") = 0 Then
        'cSQL = " insert into [T_Importation_PPV_Alsace_Lorraine] ( [Délégation], [Centre régional],[ID national site], [Nom du site], [Contractant], [Commune], [code INSEE], [Type de site], [Fililale], [Adresse], [identifiant libre local], [Domaine Fonctionnel], [Champ13] ) 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, 5) & Chr(34) & "", "" & Chr(34) & oWSht.Cells(i, 6) & Chr(34) & "", "" & Chr(34) & oWSht.Cells(i, 7) & Chr(34) & "", "" & Chr(34) & oWSht.Cells(i, 8) & Chr(34) & "", "" & Chr(34) & oWSht.Cells(i, 10) & Chr(34) & "", "" & Chr(34) & oWSht.Cells(i, 11) & Chr(34) & "", "" & Chr(34) & oWSht.Cells(i, 14) & Chr(34) & "", "" & Chr(34) & oWSht.Cells(i, 34) & Chr(34) & "", "" & Chr(34) & oWSht.Cells(i, 35) & Chr(34) & "");"
        cSQL = " insert into [T_Importation_PPV_Alsace_Lorraine] ( [Délégation], [Centre régional],[ID national site], [Nom du site], [Contractant], [Commune], [code INSEE], [Type de site], [Fililale], [Adresse], [identifiant libre local], [Domaine Fonctionnel]) 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, 5) & Chr(34) & ", " & Chr(34) & oWSht.Cells(i, 6) & Chr(34) & ", " & Chr(34) & oWSht.Cells(i, 7) & Chr(34) & ", " & Chr(34) & oWSht.Cells(i, 8) & Chr(34) & "," & Chr(34) & oWSht.Cells(i, 10) & Chr(34) & ", "" & oWSht.Cells(i, 11)  &"", " & Chr(34) & oWSht.Cells(i, 14) & Chr(34) & ", " & Chr(34) & oWSht.Cells(i, 34) & Chr(34) & ");"
        comptagenouveau = comptagenouveau + 1
        DoCmd.RunSQL cSQL
    End If
     If DCount("*", "[T_Importation_PPV_Alsace_Lorraine]", "[ID national site] LIKE '" & oWSht.Cells(i, 1) & "'") = 1 Then
      End If

Le problème est : Lors de l'importation des cellules du excel vers access, il y à certaines donnés qui comportent des guillemets pour indiquer un lieu dit dans les adresses
(Exemple: nancy brabois,"le vélodrome" 54000)



C'est en parcourant ce style de donnés que la requête plante, Cependant je voudrais réussir à importer cette données


Pour cela j'ai essayer la technique des doubles guillemets, et celle des char(34) toutefois cela ne marche pas ou l'ai je mal réalisé.

J'ai vu sur plusieurs post qu'il existe la méthode Replace notamment comme on me la conseillé dans mon précédent post mais je ne vois pas comment l'adapter pour pouvoir l'intégrer à ma fonction.

Je remets un lien vers mon ancien post si vous désirez voir ma fonction dans son ensemble.

http://www.developpez.net/forums/d11...r-chariot-vba/

* Merci *

[Jean-Philippe André]

Salut,

essaie avec

Code :

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

Replace(cequetudoischanger,"'","''")

pour les quotes. Le mieux étant tout de meme de passer en revue le cSQL avant son exécution avec un Debug.Print

[zoom61]

Salut,

As-tu essayé d'utiliser la fonction :

Code :

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

Replace ('Ta variable contenant texte', """", chr(34))

[zapan57]

Je suis d'accord avec vous sur cette solution cependant je ne vois pas trop comment l'inserer dans ma premiere requete.

Code :

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

cSQL = " insert into [T_Importation_PPV_Alsace_Lorraine] ( [Délégation], [Centre régional],[ID national site], [Nom du site], [Contractant], [Commune], [code INSEE], [Type de site], [Fililale], [Adresse], [identifiant libre local], [Domaine Fonctionnel]) 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, 5) & Chr(34) & ", " & Chr(34) & oWSht.Cells(i, 6) & Chr(34) & ", " & Chr(34) & oWSht.Cells(i, 7) & Chr(34) & ", " & Chr(34) & oWSht.Cells(i, 8) & Chr(34) & "," & Chr(34) & oWSht.Cells(i, 10) & Chr(34) & ", " & Replace(Chr(34) & oWSht.Cells(i, 11) & Chr(34) ,'''',ch(34)) & ", " & Chr(34) & oWSht.Cells(i, 14) & Chr(34) & ", " & Chr(34) & oWSht.Cells(i, 34) & Chr(34) & ");"

[Jean-Philippe André]

On ne connait pas mieux que toi tes données, alors un exemple et tu adaptes

Code :

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

SELECT Replace(monchamp,"""", chr(34)) FROM MaTable;

[zoom61]

Je le verrai sur quelque chose comme cela :

A la place de :

Code :

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

oWSht.Cells(i, 1)

Tu mets :

Code :

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

Replace (oWSht.Cells(i, 1), """", chr(34))

[zapan57]

toujours la même erreur

dans ma requete

Code :

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

1
2
cSQL = " insert into [T_Importation_PPV_Alsace_Lorraine] ( [Délégation], [Centre régional],[ID national site], [Nom du site], [Contractant], [Commune], [code INSEE], [Type de site], [Fililale], [Adresse], [identifiant libre local], [Domaine Fonctionnel]) 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, 5) & Chr(34) & ", " & Chr(34) & oWSht.Cells(i, 6) & Chr(34) & ", " & Chr(34) & oWSht.Cells(i, 7) & Chr(34) & ", " & Chr(34) & oWSht.Cells(i, 8) & Chr(34) & "," & Chr(34) & oWSht.Cells(i, 10) & Chr(34) & ", "& char(34) & oWSht.Cells(i, 11)  &char(34) &", " & Chr(34) & oWSht.Cells(i, 14) & Chr(34) & ", " & Chr(34) & oWSht.Cells(i, 34) & Chr(34) & ");"
                DoCmd.RunSQL cSQL

La partie adresse pour etre précis

Code :

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

 "char(34) & oWSht.Cells(i, 11)  &char(34) &",

quand j'écris de cette maniere et que j'importe de EXcel les contenu des cellules pa re exemple la celulle contenant : "rue de la garenne en barrois" en barrois
Cela me sort erreur 3075 erreur de syntaxe dans l'expression "' Rue de la garenne " en barrois ""'


Si je doubles les guillemets

Code :

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

"" &char(34) & oWSht.Cells(i, 11)  &char(34) & "",

Cela marche mais quand je vais dans ma table toutes mes valeurs de ma colonne sont remplis par &char(34) & oWSht.Cells(i, 11) &char(34) &

J 'ai essayer avec Replace mais je ne peux l'executer que apres l'importation or sa plante au niveau de l'importation , je ne peux modifier le contenu de mon excel.

J

[Jean-Philippe André]

Chr() et non pas char()

[zapan57]

Merci je l'avais pas vu.

Au final j'y suis parvenu en modifiant ma requetes en prenant la fonction que j'avais trouvé sur microsoft. Donc voici la réponse , mais merci tout le monde pour m'avoir aidé

Code :

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

1
2
cSQL = " insert into [essai] ( [Délégation], [Centre régional],[ID national site], [Nom du site], [Contractant], [Commune], [code INSEE], [Type de site], [Fililale], [Adresse], [identifiant libre local], [Domaine Fonctionnel]) 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, 5) & Chr(34) & ", " & Chr(34) & oWSht.Cells(i, 6) & Chr(34) & ", " & Chr(34) & oWSht.Cells(i, 7) & Chr(34) & ", " & Chr(34) & oWSht.Cells(i, 8) & Chr(34) & "," & Chr(34) & oWSht.Cells(i, 10) & Chr(34) & "," & Chr(34) & ChangeStr(oWSht.Cells(i, 11), Chr(34), "  ", 0) & Chr(34) & "," & Chr(34) & oWSht.Cells(i, 14) & Chr(34) & " , " & Chr(34) & oWSht.Cells(i, 34) & Chr(34) & ");"
DoCmd.RunSQL cSQL

et la fonction

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
Function ChangeStr(strOriginal As Variant, strOldChar As String, strNewChar As String, intMatchCase As Integer) As Variant
   ' This function changes all substrings strOldChar in string strOriginal
   ' to strNewChar.
   ' The parameter intMatchCase has the same purpose as in the
   ' InStr() function, i.e. 1 makes the function case-sensitive, 0 does not
   Dim temp As String, pos As Integer
   temp = ""
   If IsNull(strOriginal) Then
      ChangeStr = Null
      Exit Function
   End If
   If strOldChar = "" Or strOriginal = "" Then
      ChangeStr = strOriginal
      Exit Function
   End If
 
   pos = InStr(1, strOriginal, strOldChar, intMatchCase)
   While pos > 0
      temp = temp & Mid$(strOriginal, 1, pos - 1) & strNewChar
      strOriginal = Right$(strOriginal, Len(strOriginal) - pos - Len(strOldChar) + 1)
      pos = InStr(1, strOriginal, strOldChar, intMatchCase)
   Wend
   ChangeStr = temp & strOriginal
End Function

merci