Recupération d'un format texte dans un classeur fermé via méthode ADODB

**bboy-eazy** · 17/11/2016, 08h10

Bonjour,

J'ai un problème via une récupération d'une feuille dans un classeur fermé via la méthode ADODB....
J'ai dans mon fichier source la colonne A qui est au format texte et qui contient des nombre commençant par 0 (ex:04512800)

Lorsque cette feuille est copier dans mon classeur lors de son ouverture, malgré avoir mis la colonne A au format Texte, ces nombre deviennent des nombres sans le "0" devant (ex: 04512800 devient 4512800)

Comment faire pour éviter ca?
Pour info j'ai activé la référence: Microsoft ActiveX data object 2.7 Library

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
Private Sub Workbook_Open()
If Not (ThisWorkbook.ReadOnly) Then
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    '===================================================================================================
                    'Mise à jour de la base de données
    '===================================================================================================
    Worksheets("Base").Range("A2:I4000").ClearContents
    Dim Source As ADODB.Connection
    Dim Rst As ADODB.Recordset
    Dim ADOCommand As ADODB.Command
    Dim Fichier As String, Plage As String, Feuille As String
 
    'Adresse de la Plage contenant les données à récupérer
    Plage = "A2:I4000"
    Feuille = "Base$" 'n'oubliez pas d'ajouter $ au nom de la feuille.
    'Chemin complet du classeur fermé
    Fichier = "" & Worksheets("Paramètres").Cells(5, 3) & ""
 
    Set Source = New ADODB.Connection
    Source.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    "Data Source=" & Fichier & ";Extended Properties=""Excel 8.0;IMEX=1;HDR=No;"";"
    Set ADOCommand = New ADODB.Command
 
    With ADOCommand
    .ActiveConnection = Source
    .CommandText = "SELECT * FROM [" & Feuille & Plage & "]"
    End With
    Set Rst = New ADODB.Recordset
    Rst.Open ADOCommand, , adOpenKeyset, adLockOptimistic
    Set Rst = Source.Execute("[" & Feuille & Plage & "]")
 
    ThisWorkbook.Worksheets("Base").Range("A2").CopyFromRecordset Rst
    Rst.Close
    Source.Close
    Worksheets("Base").Visible = True
    Worksheets("Base").Activate
 
    On Error GoTo SkipFormatting
    Columns("A:A").Select
        Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
            TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
            Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
            :=Array(1, 1)
SkipFormatting:
    Worksheets("Base").Visible = False
 
    Set Source = Nothing
    Set Rst = Nothing
    Set ADOCommand = Nothing
    Application.Windows(ThisWorkbook.Name).Visible = True
    End If
End Sub

Merci de votre aide

Invité · 17/11/2016, 12h41

Bonjour,
Quand je vois que ta plage commence en A2, je me dis que la première ligne est les entêtes de colonnes !

Comme le dit Clément Marcotte Excel n'est pas une base de données, les champs ne sont pas typé et peut importe que les cellules sources et cible soient aux format texte.

Ado considère les 10 premières lignes pour typer ses colonnes!

Dans la configuration de ta connexion, la première colonne s'appel [F1] la deuxième [F2] etc..

Il faut formater tes colonnes dans ta requête SQL!

Code :

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

Sql="select format([F1],'0000'),[F2],[Etc] from..."

**bboy-eazy** · 17/11/2016, 13h21

Bonjour Rdurupt et merci pour l'interêt que tu portes à mon problème,

Merci pour tes explications
j'ai donc remplacer ça:

Code :

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

1
2
3
4
    With ADOCommand
        .ActiveConnection = Source
        .CommandText = "SELECT * FROM [" & Feuille & Plage & "]"
    End With

par ça:

Code :

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

1
2
3
4
    With ADOCommand
        .ActiveConnection = Source
        .CommandText = "SELECT format([F1],'@'),* FROM [" & Feuille & Plage & "]"
    End With

mais ca ne fonctionne toujours pas, je dois donc me tromper quelque part. J'ai une question concernant ma première colonne s'appelant selon ma requete F1, pourquoi s'appelle t'elle F1? et non pas A:A?

Invité · 17/11/2016, 14h07

Ado et Excel c'est pas la même chose même si tu te connecte via le driver Excel.

Il y a le nom physique dans Ado Feid1,2,etc et le nom d'alliance qui serait le la valeur de ta ligne 1 si ta connexion était configuré en HDR=Yes (entête colonne 1).

Maintenant dans ta requête tu format ta sortie en texte et dans Excel le résultat doit bien être du texte ("10") et pas 10 écris à gauche dans ta cellule. Format modifie la valeur de sortie de la requête, pas comme Ado l'a compris!

Si il pense avoir à faire à du numérique le jeux son fait! 00001,devient 1 et le format retourne "1".
UI
Si tu veux un retour du genre "00001" c'est bien ce format qu'il faut appliquer.

Format(1,'0000')

Maintenant si tu veux qu'il n'y ait aucune ambiguïté pour Excel Sql="select ''' & Format([F1] '0000')

**bboy-eazy** · 17/11/2016, 14h46

D'accord merci pour tes explications.

Je ne maitrise pas du tout l'ADO, j'essaye de me renseigné un peu sur les site pour comprendre mais j'étant pas dans le domaine, c'est un peu du charabia parfois mdrr. Et comme c'est un tout autre language, je suis un peu pomé.

en fait je ne souhaite pas forcément que les nombres soit en texte mais comme certains sont dans ma base avec un "0" devant, j'aimerai juste pas qu'il se fasse squeezer et qui reste la où j'importe la base. Juste que les données se reportent telle qu'elle sont dans la base source

j'ai donc essayé de multiples tentatives mais rien n'y fait j'ai un message d'erreur suivant à chaque fois: "erreur de syntaxe, opérateur absent"

Code :

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

1
2
3
4
 With ADOCommand
        .ActiveConnection = Source
        .CommandText = "SELECT ''' & format([F1],'0000') FROM [" & Feuille & Plage & "]"
 End With

Code :

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

1
2
3
4
 With ADOCommand
        .ActiveConnection = Source
        .CommandText = "SELECT * & format([F1] '0000') FROM [" & Feuille & Plage & "]"
 End With

Code :

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

1
2
3
4
 With ADOCommand
        .ActiveConnection = Source
        .CommandText = "SELECT * , format([F1] '@') FROM [" & Feuille & Plage & "]"
 End With

Je ne vois donc pas comment lui dire de mettre la première colonne en texte tout en gardant toute la base
Je suis désolé, j'ai un peu de mal