Discussion :

[gbbtt]

Bonjour à tous,

J'ai besoin d'exporter des données à partir d'un classeur fermé. J'ai donc utilisé ADO et cela fonctionne bien.
J'ai cependant deux questions: comment exporter la mise en forme en même temps que les données?
Et pourquoi la première ligne n'est pas exportée?

Edit: Apres étude plus minutieuse de mes résultats, ce n'est pas forcément la première ligne qui manque.
Pour certains fichiers elle est bien présente mais il manque d'autres cellules, pour d'autres elle manque et tout le reste est là et pour d'autres encore elle manque et d'autres cellules également!
Une explication?

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
54
55
56
57
58
59
Private Sub Exporterdonnees_Click() 
 
'Déclaration des variables
Dim Box As CheckBox
Dim Cn As ADODB.Connection
Dim Fichier As String
Dim NomFeuille As String
Dim NomFich As String
Dim Chemin As String
Dim texte_SQL As String
Dim Rst As ADODB.Recordset
Dim i As Double
 
i = 1 'On initialise i à 1
 
'On efface complètement l'onglet Données exportées pour pouvoir ensuite écrire les données exportées
Worksheets("Données exportées").Range("A1:BZ4000").Clear
 
For Each Box In Worksheets("Liste des projets").CheckBoxes 'On parcourt les cases à cocher de la page Liste des projets
 
    If Box.Value = 1 Then 'Si la case est cochée on lance l'exportation
 
 
        'Définit le classeur fermé servant de base de données
        NomFich = Box.Caption
        Chemin = "d:\personal\gt\desktop\Projets annexes\"
        Fichier = Chemin & NomFich
 
        'Nom de l'onglet à exporter dans le classeur fermé
        NomFeuille = "CotationA$" 
 
        Set Cn = New ADODB.Connection
 
        ' Connection
        With Cn
            .Provider = "Microsoft.Jet.OLEDB.4.0"
            .ConnectionString = "Data Source=" & Fichier & _
                 ";Extended Properties=""Excel 8.0;HDR=NO"""
            .Open
        End With
 
        'Définit la requête.
        texte_SQL = "SELECT * FROM [" & NomFeuille & "]"
 
        Set Rst = New ADODB.Recordset
        Set Rst = Cn.Execute(texte_SQL)
 
        'Ecrit le résultat de la requête toute les 40 lignes
        Worksheets("Données exportées").Cells(i, 1).CopyFromRecordset Rst
        i = i + 40
 
        'Déconnexion
        Cn.Close
        Set Cn = Nothing
 
    End If
 
Next
End Sub

Merci d'avance à ceux qui prendront le temps de me donner un coup de main.

gbbtt

[dev_ggy]

comment exporter la mise en forme en même temps que les données?

Tu ne pourras pas le faire via ADO qui est une interface pour les bases de données.

Et pourquoi la première ligne n'est pas exportée?

Essaie de mettre ton code HDR = Yes et non à No

Code :

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

1
2
3
4
5
6
        With Cn
            .Provider = "Microsoft.Jet.OLEDB.4.0"
            .ConnectionString = "Data Source=" & Fichier & _
                 ";Extended Properties=""Excel 8.0;HDR=Yes"""
            .Open
        End With

Si j'ai bien compris la doc en anglais, l'option No a pour effet de donner à ta colonne le nom de la premier ligne.

Cordialement.

[gbbtt]

Bonjour dev-ggy

Merci de ta réponse, c'est bien dommage pour la mise en forme! Je vais chercher une autre solution.

Sinon le passage de Yes à No n'a absolument rien changé!

[Michel_M]

Bonjour

Ta feuille à importer doit ^tre une liste de données: est ce le cas?

[gbbtt]

Bonjour,

Qu'est-ce que tu appelles une liste de données?
Étant donné que je ne sais pas ce que c'est il y a peu de chance que ça en soit une...

C'est une feuille assez classique avec un tableau, des chiffres, des commentaires...

[Pierre Fauconnier]

Salut.

Ce ne doit pas forcément être une liste de données (menu Données > Liste > Créer une liste) mais si cela n'en est pas une, cela doit être une plage rectangulaire qui pourra être considérée par le moteur de données comme une table de données.

Elle doit donc respecter les points suivants :

• posséder une ligne d'entête ;
• ne pas avoir de cellules vides dans la ligne d'entête ;
• ne pas comporter de lignes entièrement vide dans le corps des données ;
• la cellule du coin supérieur gauche doit être en A1;
• les colonnes doivent contenir des données de même type.

A ces conditions, tu pourras récupérer un recordset ADO valide sans perte de données. Note que si la plage de récupération ne contient pas d'entête, tu pourras récupérer les noms des champs par une boucle sur la collection des champs du recordset et l'extraction des noms desdits champs.

Si tes données sont éparses sur la feuille et ne respectent donc pas le schéma ci-dessus, ... bonne chance... Tu trouveras dans les tutos de SilkyRoad des exemples d'extraction de données de classeurs fermés. La FAQ te renseignera également sur le sujet.

[gbbtt]

Salut

Merci pour cette réponse détaillée.

Effectivement ma feuille de données ne correspond pas à ses critères et je ne peux hélas pas modifier ces classeurs.

Je vais donc me pencher sur les tutos pour essayer de m'en sortir.

gbbtt