Le tronquage et ADODB

Version imprimable

16/04/2014, 12h24
tohrak

Le tronquage et ADODB

Bonjour,

Je suivi les explications données ici: http://silkyroad.developpez.com/VBA/ClasseursFermes/

J'ai lu les explications données par Microsoft mais je me trouve en face d'un problème que je ne comprends pas du tout.

Pour pas me casser la tête, j'ai décider de faire un if la cellule = 255 caractère alors j'affiche un warning pour prévenir que la cellule est peut-être tronquée. Jusque la tous va bien.

Mais je viens de remarquer à ma grande surprise que le tronquage n'est pas toujours fait. J'ai certains fichiers où les cellules sont >255 et ça ne pose pas de problème alors que d'autre ont toutes leurs cellules tronquée..

Donc la question que je me pose c'est comment le pilote fonctionne réellement? ( Ils disent que c'est les 8 premières lignes mais j'ai des fichiers non tronqués où il y un maximum de 20 caractère par cellules dans le première ligne)

Bon du coup la seule solution que j'ai trouvé pour éviter le tronquage c'est de faire une première connexion, d'écrire 256 caractère en A1 de fermer la connexion, puis de l'ouvrir

C'est pas très pro mais c'est le seul truc que je vois.

Par contre je n'arrive pas à écrire dans la cellule A1.

Code:

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
 
Sub ErrTronq()
 
    Dim Cn As ADODB.Connection
    Dim Cd As ADODB.Command
    Dim Rst As ADODB.Recordset
    Dim fichier As String
    Dim cheminConn As String
 
    chemin = ThisWorkbook.Path & "\"
    fichier = Dir(chemin & "*.xl*")
    cheminConn = chemin & fichier
 
    Do While fichier <> ThisWorkbook.Name
 
        Set Cn = New ADODB.Connection
 
        With Cn
            .Provider = "Microsoft.Jet.OLEDB.12.0"
            .ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" _
                & fichier & ";Extended Properties=""Excel 12.0;HDR=YES;"""
            .Open
        End With
 
        Set Cd = New ADODB.Command
        Cd.ActiveConnection = Cn
        Cd.CommandText = "SELECT * FROM [Sheet1$A1:A1]"
 
        Set Rst = New ADODB.Recordset
        Rst.Open Cd, , adOpenKeyset, adLockOptimistic
        Rst(0).Value = "Test"
        Rst.Update
 
        Cn.Close
        Set Cn = Nothing
        Set Cd = Nothing
        Set Rst = Nothing
 
        fichier = Dir
    Loop

Edit: Apparemment, ça claque à 'Rst.Open Cd, , adOpenKeyset, adLockOptimistic' il me dit que Microsoft Acess n'as pas pu trouver l'objet Sheet1$A1:A1

Je me trompe au niveau de la ponctuation?

23/04/2014, 07h25
grisan29

bonjour tohrak

Citation:

il me dit que Microsoft Acess

c'est sur le forum access que tu aurais du poster

Pascal
23/04/2014, 10h49
tohrak

Bonjour,

Je suis bien sur Excel. C'est le message d'erreur qui me spécifie que le moteur de base de données Microsoft Access n'a pas pu trouver l'objet Sheet1$A1:A1..

Apparemment c'est un problème de chemin d'accès mais j'arrive pas à le résoudre.

bonjour tohrak

peut que la terminaison de tes fiches ne sont celles demandés par cette ligne

Code:

fichier = Dir(chemin & "*.xl*")

qui dit .xl mais peut etre est-ce .xls où .xlxs où .xlsm

mais quelle version d'office utilise-tu
car pour enregistre sous voir ci dessous

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Case Is = "XLS"
            With pompe
                .Provider = "Microsoft.Jet.OLEDB.4.0"
                .ConnectionString = "Data Source=" & CLIENT_CHOISI & ";Extended Properties=Excel 8.0;"
                .Open
            End With
        Case Is = "XLSX"
            With pompe
                .Provider = "Microsoft.ACE.OLEDB.12.0"
                .ConnectionString = "Data Source=" & CLIENT_CHOISI & ";Extended Properties=Excel 12.0 Xml;"
                .Open
            End With
        End Select

voila le code qui fait que j'ai le choix entre .xls et .xlsx dans mon fichier

Pascal

23/04/2014, 15h40
tohrak

Citation:

Envoyé par grisan29

bonjour tohrak

peut que la terminaison de tes fiches ne sont celles demandés par cette ligne

Code:

fichier = Dir(chemin & "*.xl*")

qui dit .xl mais peut être est-ce .xls où .xlxs où .xlsm

Pascal

C'est pourquoi j'ai mis un * à la fin de xl pour prendre toute les terminaisons possibles. Le problème ne vient pas de là car plus loin dans mon code je récupère les informations des feuilles sans soucis. Là, la connexion à l'air de ce faire sauf que ça me sort une erreur quand le pilote essaie d'écrire quelque chose dans le feuille

Edit pour en dessous: Merci mais la connexion s'effectue sans soucis. Le problème n'a pas l'air de venir de là.
23/04/2014, 15h44
grisan29

re

il y a eu croisement quand je mettait un autre code

Pascal
23/04/2014, 15h55
kiki29

Salut, voir ici rubrique contournement ( sans garantie )
23/04/2014, 16h08
Invité

Salut,

Sans essayer le code, est-tu sûr qu'il existe une feuille nommé "Sheet1" dans ton 1er classeur ? Parce que si ce code n'est pas de toi et que tu ne l'as pas adapté...
Parce que je vois que tu met .Provider = "Microsoft.Jet.OLEDB.12.0", puis en dessous, "Microsoft.ACE.OLEDB.12.0" par exemple (pas sûr que Jet 12.0 existe en plus).
23/04/2014, 16h15
tohrak

Citation:

Envoyé par kiki29

Salut, voir ici rubrique contournement ( sans garantie )

Merci pour le lien. Je ne comprend pas tout par contre. Je ne vois pas a quel moment il écrive dans un autre fichier,

Code:

DialogSheets(1).TextBoxes(1).Characters(first).Insert String:=var

c'est ça ?

Citation:

Envoyé par Nouveau2

Salut,

Sans essayer le code, est-tu sûr qu'il existe une feuille nommé "Sheet1" dans ton 1er classeur ? Parce que si ce code n'est pas de toi et que tu ne l'as pas adapté...
Parce que je vois que tu met .Provider = "Microsoft.Jet.OLEDB.12.0", puis en dessous, "Microsoft.ACE.OLEDB.12.0" par exemple (pas sûr que Jet 12.0 existe en plus).

Ce code n'est pas de moi en effet, mais je l'ai adapté. Oui je suis sur que la feuille de mon premier classeur est Sheet1. Après pour ce qui est du Jet et du Ace j'avoue que j'avais même pas fait gaffe.

Edit: J'ai mis avec Jet aux deux endroit ( en testant 4.0 8.0 et 12.0) et il me dit "Impossible de trouver le fournisseur. Il est peut-être mal installé."
23/04/2014, 17h31
Invité

Il me semble que Jet n'est plus du tout fourni avec Office 2010/2013. ACE remplace de toute façon Jet et fait normalement tout ce que faisait l'autre moteur Jet comme dit ici Programmation de données avec Access 2010 (Microsoft)

Citation:

Qu’en est-il du moteur Microsoft JET ?

Avant Access 2007, Access utilisait le moteur Microsoft JET (Joint Engine Technology). Même si JET a généralement été vu comme faisant partie d’Access, le moteur JET était un produit distinct. Depuis la sortie de Microsoft Windows 2000, JET a été inclus dans le système d’exploitation Windows, puis distribué ou mis à jour avec les composants MDAC (Microsoft Data Access Components). Cependant, à la sortie d’Access 2007, le moteur JET a été abandonné et il n’est plus distribué avec MDAC. À la place, Access utilise maintenant un moteur ACE intégré et amélioré, dont le développement a commencé par une capture instantanée du code de base JET d’origine.

Le moteur ACE a une compatibilité descendante complète avec les versions antérieures du moteur JET et il peut donc lire et écrire les fichiers (.mdb) des versions antérieures d’Access. L’équipe Access possédant dorénavant le moteur, les développeurs sont assurés que leurs solutions Access non seulement continueront à fonctionner dans le futur mais aussi seront plus rapides, plus robustes et plus riches en fonctionnalités. Par exemple, avec l’édition d’Access 2010, entre autres améliorations, le moteur ACE a été mis à niveau pour prendre en charge les versions 64 bits et pour améliorer l’intégration avec les technologies liées à SharePoint et aux services Web en général. Microsoft considère Access en tant que plateforme pour les développeurs.
24/04/2014, 12h30
tohrak

Bonjour, le code ne fonctionnait pas parce que j'ai oublier de changer fichier par cheminConn. Bref, du coup la connexion s'effectue et il me claque une erreur comme quoi je ne suis pas dans la plage de données.

Après multiple essais, on a trouver que ce code permet seulement de modifier une cellule mais pas d'écrire dans une cellule vide. La solutions est donc de rechercher une cellule avec des caractères dans les 8 premières lignes, puis de modifier celle-ci.

Pour ça j'ai trouver mon bonheur sur un autre site.

Merci à tous pour votre aide.

Bonjour,

Je voulais éditer mon poste mais je ne pouvais pas alors j'en fait un nouveau.

Je vous communique un bout de code qui permet d'éviter la troncature car il évite la connexion via ADODB pour ceux qui aurait pu avoir le même problème que moi.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub ImporterDonneesSansOuvrir()     
Dim Chemin As String, Fichier As String     
Chemin = "C:\Pijaku\Ne_fait_rien_de_ses_journées\CCM\"     
Fichier = "source.xls"     
ThisWorkbook.Names.Add "plage", _     
            RefersTo:="='" & Chemin & "[" & Fichier & "]Feuil1'!$A$1:$F$10"     
    With Sheets("Feuil2")     
        .[A1:F10] = "=plage"     
        .[A1:F10].Copy     
        Sheets("Feuil1").Range("A1").PasteSpecial xlPasteValues     
        .[A1:F10].Clear     
    End With     
End Sub