Discussion :

[Damidou]

Bonjour,

Je suis nouvel inscrit sur le site, mais je le consulte depuis qqes années, et vous m'apportez grand aide.

Par contre, aujourd'hui, je suis tombé sur un os, et je n'arrive pas à trouver la réponse/solution à mon pb.

Mon problème :
J'aimerais découper un champ en plusieurs avec une requête :

Par exemple, j'ai un champ avec dedans par exemple :
Paris>>Lille>>Strasbourg
Paris>>Orléans>>Clermont-Ferrand>>Aurillac
Paris

Je voudrais donc décomposer ce champ en :
Champ1 : Paris>>Lille>>Strasbourg
Champ2 : Paris
Champ3 : Lille
Champ4 : Strasbourg

Les contraintes/difficultés sont :
- je suis dans un table avec une liaison ODBC, je ne peux donc pas modifier la table.
- Le nombre "d'étapes" de mon champ1 n'est pas tjs le même.
- Le champ1 peut contenir une seule ville donc quand je cherche la position du 1er ">", et donc je ne peux pas extraire la ville pour mon champ2.

J'ai réalisé qqes test avec les fonctions DansChaîne, ExtractChaîne, mais je galère un peu beaucoup.

Merci de votre aide.

Bonne journée.

[zoom61]

Salut,

En VBA, tu as la fonction split !
Ici paragraphe 6.

@+.

[Damidou]

Merci d'avoir fait si vite, mais pourrais-tu me dire comment ça se concrétise stp !

J'ai une requête avec mon Champ1.

J'ai mon module avec ma Public Function.

Code :

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

1
2
3
4
5
6
Public Function Test(ByVal Champ1 As String)
 
Dim monTab() As String
monTab = Split(Champ1, ">>")
 
End Function

Mais après comment je fais pour la création du tableau ?

Merci.

[zoom61]

Code :

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

1
2
3
4
5
6
7
8
Public Function Test(ByVal Champ1 As String)

Dim monTab() As String
monTab = Split(Champ1, ">>")
For i = LBound(monTab) To UBound(monTabp)
    ici tu mets ton code pour insérer tes données dans la table avec monTab(i)
  Next i
End Function

[Damidou]

ici tu mets ton code pour insérer tes données dans la table avec monTab(i)

C'est bien ça le pb, je sais le faire dans Excel, mais jamais fait dans Access !
Dans la requête, j'ai seulement une colonne de créée.

Par contre (monTabp) correspond à quoi ?
Si j'ai qu'une ville (donc pas de séparateur) dans mon champ, ça fonctionne ?

[zoom61]

C'est bien ça le pb, je sais le faire dans Excel, mais jamais fait dans Access !
Dans la requête, j'ai seulement une colonne de créée.

Il faut donner plus d'info, comme ta table de départ, ta table d'arrivée avec les champs qui composent les tables.

Par contre monTabp correspond à quoi ?

A un tableau qui contiendra toutes les données.

Si j'ai qu'une ville (donc pas de séparateur) dans mon champ, ça fonctionne ?

Normalement oui.

[Damidou]

Il faut donner plus d'info, comme ta table de départ, ta table d'arrivée avec les champs qui composent les tables.

J'ai une table de départ (DONNEES) qui est une liaison ODBC avec une table Oracle. Je ne peux donc pas la modifier.
Dans une requête, j'ai donc récup mon champ avec ma chaîne de caractère. J'ai fait la création des nouveaux champs à partir de cette requête.

Je ne sais pas si je suis assez clair ?

[zoom61]

C'est moi que ne me suis pas fait bien comprendre, ce que je veux c'est la table d'où les données proviennent qui s'appelle "DONNEES" ce qu'il me faudrait c'est :
- sur la table DONNEES le nom des champs
- sur la table de destinations le nom et les champs

@+.

[Damidou]

Désolé de ne pas être revenu plus tôt, mais emploi du temps chargé !

Bon je vais essayer d'expliquer clairement (et que c'est dur) le soucis.

Dans ma base de données, j'ai une seule table, qui est une laison ODBC d'une table Oracle. Dans cette table liée (que je ne peux pas modifier : structure et données) j'ai une vingtaine de champs dont mon champs "Circuit" que je veux décomposer.

A partir de ça, j'ai fait une requête pour solutionner mon pb. Le blocage est là.$

Je n'ai pas de table de destinations.

Merci de ta patience !

@+

[zoom61]

Tu peux bien te créer une table locale dans ta base Access pour faire ta décomposition :

Code :

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

1
2
3
4
5
6
7
Public Function Test(ByVal Champ1 As String)
Dim monTab() As String
monTab = Split(Champ1, ">>")
For i = LBound(monTab) To UBound(monTabp)
    CurrentDb.Execute "insert into table_temporaire value (""" & monTab(i) & """)"
Next i
End Function

[Damidou]

Ok !
Désolé mais je galère un peu (enfin beaucoup) là.

Donc pour résumer, il faut que je fasse une table avec mon champs "circuit" dedans et après les autres champs pour la décomposition font se faire tout seul ou faut que je fasse aussi plusieurs champs vides ?

Ensuite, je fais ma requête (Ajout ?) pour compléter ma table en utilisant ta macro ? Je la copie à l'identique ?

Je fait la brasse coulée en ce moment !!!!

Merci zoom61 !

[zoom61]

Il faut en premier créer une table , par exemple la table T_TEMPORAIRE, avec le champs CIRCUIT.

Ensuite, tu crées module ou tu copies le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function Transfert()
Dim monTab() As String, i as Integer
 
   SQL = "SELECT CIRCUIT FROM T_TABLE_ODBC"
   Set oSQL = CurrentDb.OpenRecordset(SQL)
   Do Until oSQL.EOF
      monTab = Split(oSQL("CIRCUIT"), ">>")
      For i = LBound(monTab) To UBound(monTabp)
         CurrentDb.Execute "insert into T_TEMPORAIRE values (""" & monTab(i) & """)"
      Next i
   oSQL.MoveNext
   Loop
 
End Function

[Damidou]

Ok cool. J'ai avancé un peu et commence à comprendre.

J'ai fait une requête création de table, et je me retrouve donc avec ma T_TEMPORAIRE et mon champ "CIRCUIT".

J'ai ensuite copié/collé le code que tu m'as donné, et lorsque je l'excécute, j'ai un message d'erreur qui s'affiche sur la ligne :

Code :

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

monTab = Split(oSQL("CIRCUIT"), ">>")

avec une erreur d'excécution '94' : Utilisation incorrecte de Null.

[zoom61]

Peux-tu envoyer le code complet de ton module ?

[Damidou]

J'ai mis copié/collé ce que tu m'avais mis en adaptant :

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
Function Transfert()
 
Dim monTab() As String, i As Integer
 
   SQL = "SELECT CIRCUIT FROM T_DONNEES"
   Set oSQL = CurrentDb.OpenRecordset(SQL)
   Do Until oSQL.EOF
      monTab = Split(oSQL("CIRCUIT"), ">>")
      For i = LBound(monTab) To UBound(monTabp)
         CurrentDb.Execute "insert into T_TEMPORAIRE values ('" & monTab(i) & "')"
      Next i
   oSQL.MoveNext
   Loop
 
End Function

[zoom61]

Peux-tu me dire que cela affiche ?

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
Function Transfert()
 
Dim monTab() As String, i As Integer
 
   SQL = "SELECT CIRCUIT FROM T_DONNEES"
   Set oSQL = CurrentDb.OpenRecordset(SQL)
   Do Until oSQL.EOF
      Msgbox oSQL("CIRCUIT")
      monTab = Split(oSQL("CIRCUIT"), ">>")
      For i = LBound(monTab) To UBound(monTab)
         CurrentDb.Execute "insert into T_TEMPORAIRE values (""" & monTab(i) & """)"
      Next i
   oSQL.MoveNext
   Loop
 
End Function

[Damidou]

Je bloque sur :

Code :

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

Msgbox monTab

Erreur d'excécution '13'
Incompatibilité de type.

Je ne sais pas si ça vient de là, mais dans ma table temporaire, je n'ai pas mis les champs qui doivent recevoir le découpage. J'ai juste le champ CIRCUIT.

[zoom61]

As-tu essayé de faire la requête SELECT CIRCUIT FROM T_DONNEES que donne t'elle ?

[Damidou]

Oui, je l'ai essayé, elle me donne tous les circuits.

Par contre parfois, il arrive que le champ soit vide.

[zoom61]

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
Function Transfert()
 
Dim monTab() As String, i As Integer
 
   SQL = "SELECT CIRCUIT FROM T_DONNEES WHERE CIRCUIT IS NOT NULL"
   Set oSQL = CurrentDb.OpenRecordset(SQL)
   Do Until oSQL.EOF
      Msgbox oSQL("CIRCUIT")
      monTab = Split(oSQL("CIRCUIT"), ">>")
      For i = LBound(monTab) To UBound(monTab)
         CurrentDb.Execute "insert into T_TEMPORAIRE values (""" & monTab(i) & """)"
      Next i
   oSQL.MoveNext
   Loop
 
End Function