Discussion :

[GarnierFlorian]

Bonjour à tous !

Je pense que l'intitulé de mon problème est assez explicite :

je cherche à savoir si il est possible de faire une méthode Replace sur toutes les valeurs contenu dans mon recordset, afin de supprimer les retours chariots et les sauts de lignes, avant de faire un copyfromrecordset sur mon fichier excel !

Si vous avez besoin de précision n'hésitez pas, mais je ne vois pas comment être plus clair ^^

Merci d'avance !

Peace

[GarnierFlorian]

Bonjour !

Toujours personne ?

J'ai fait pas mal de recherche mais je n'ai pas trouvé comment faire !

J'avais pensé faire mon Replace sur chaque ligne du recordset, mais on a pas d'éléments du style "Row", donc pas moyen :X A moins que quelqu'un sache comment faire ?^^

Ou autrement j'avais pensé à une autre chose : est-ce possible d'effectuer mon replace sur tout le contenu du recordset sans avoir besoin de traiter chaque ligne ?

Merci,

Peace

[Invité]

Bonjour

As-tu essayé d'utiliser le Replace dans la requête SQL qui alimente ton Recordset ?

Philippe

[GarnierFlorian]

Bonjour Philippe !

Merci deja pour ta réponse ! Et bien je n'y avais pas pensé !

Mais à vrai dire je ne vois pas trop comment faire : voici mon 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
Sub SelectSQL()
    Dim supcar As String
    Dim plage, cellule As Range
 
    On Error GoTo SelectSQL_Error
        nbrecords = 0
        supcar = ""
        CHR_SUP_A = Chr(10)
        CHR_SUP_B = Chr(13)
        'On déclare le recordset
        Set rs = New ADODB.Recordset
        'Exécute la requête
        rs.CursorLocation = adUseClient
        rs.Open REQ_SELECT, connect_foxpro, adOpenStatic, adLockReadOnly
        'On sélectionne la feuille de destination
        ActiveWorkbook.Sheets(NOM_FEUILLE_SELECT).Activate
        'On efface l'ensemble du contenu précédent
        ActiveSheet.Cells.Clear
        'On vérifie que l'on a bien récupéré des enregistrements
        If Not rs.EOF Then
            rs.MoveFirst
            Set targetrange = ActiveWorkbook.Sheets(NOM_FEUILLE_SELECT).Cells(1, 1)
            'Mise en place des noms de champs comme entêtes de colonne
            For intcolindex = 0 To rs.Fields.Count - 1
                targetrange.Offset(0, intcolindex).Value = UCase(rs.Fields(intcolindex).Name)
            Next
            Application.StatusBar = "Extraction des enregistrements ..."
            'Intègre le contenu du jeu d'enregistrements dans la feuille de calcul Excel
            targetrange.Offset(1, 0).CopyFromRecordset rs

Je renseigne ma requete via une constante, mais je vois pas à quel moment je pourrais utiliser le recordset sur ma requete entre le moment où j'y fais appel, et le moment où mon recordset l'utilise !!

J'espère que je suis assez clair :$

Merci d'avance,

Peace

[tototiti2008]

Bonjour à tous,

Mais à vrai dire je ne vois pas trop comment faire

Il faut modifier le SQL contenu dans REQ_SELECT, pour ça...

mais comme nous n'avons pas accès à ce contenu...

[GarnierFlorian]

Bonjour tototiti2008 !

Ba ecoute, c'est pas plus compliqué :

Code :

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

Public Const REQ_SELECT As String = "Select * from client"

Ma requete est toute simple, mais je vois pas vraiment ou est que l'on utilise un replace là-dessus :/

J'admet que j'ai encore jamais utilisé ça, et c'est la première fois que j'en entends parlé !!

Merci,

Peace

[tototiti2008]

Re,

Comme ta requête utilise * (qui signifie tous les champs), il faudrait la modifier pour citer chaque champ à lire, puis essayer un Replace sur chacun d'entre eux... bref pas forcément simple
en plus tu as l'air de te connecter à foxpro (?) et je ne connais pas les éventuelles spécificités du SQL foxpro

L'autre solution est de ne pas utiliser un copyfromrecordset mais de boucler sur chaque champ et chaque enregistrement pour ecrire dans chaque cellule, ce qui permettrait de remplacer avant d'ecrire dans la cellule