Discussion :

[kap]

Bonjour à tous !!

Je dispose de fichiers Excels que j'aimerais exporter vers MySQL. Mes fichiers Excels sont assez conséquent (jusqu'à 129 Mo) et leurs structures ne correspondent pas à celle de ma base de donnée. Je dois effectuer quelques pré-traitements avant de pouvoir faire l'ajout dans ma bdd. J'ai commencé par regarder des librairies php :

• PHPExcel : mes fichiers étant lourds, le script a des problèmes de mémoire ou de temps d'exécution
• COM : je n'arrive pas à trouver la documentation concernant les méthodes de l'objet COM ( le tutorial ne fournit que des exemples pour l'écriture de fichier Excel)

Auriez-vous d'autres pistes à me proposer? Quelle vous semble la meilleure solution pour exporter les données? Merci d'avance pour vos réponses!

[Qwazerty]

Salut
Je ne suis pas très alèse en base de donnée, mais as tu regardé du coté d'ADO, il est possible à partir d'un fichier excel légé, contenant juste ta macro d'intégration, de concidérer ton fichier excel contenant tes donnée, uniquement comme une base de donnée et de la manipuler comme telle. Regarde ici dans la FAQ.
Sinon une autre piste serait peut être de passer par Access et d'importer ta BD dans Access à partir de celui-ci.
++
Qwaz

[kap]

Merci pour tes réponses !!

Sinon une autre piste serait peut être de passer par Access et d'importer ta BD dans Access à partir de celui-ci.
++
Qwaz

Humm... Je préfère limiter le nombre d'étapes intermédiaires autant que possible, je sens que le passage Excel à Access va poser des soucis

Pour ADO je regarde mais j'ai du mal à comprendre... La documentation de Microsoft est bien bordélique (je trouve) et je n'arrive pas à trouver les informations basiques (comment ça s'installe, fonctions de base...). Côté VBA je galère aussi mais j'ai réussi à pondre un code pour accéder à mes données :

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
Private Sub Workbook_Open()
 
    Dim Classeur As Workbook
    Dim UL As Worksheet
    Dim AgCentre As Worksheet
    Dim AgPopTot As Worksheet
    Dim AgNb As Worksheet
 
    NomFichier = Application.GetOpenFilename("Classeurs Excel(*.xls),*.xls")
    Set Classeur = Workbooks.Open(NomFichier)
    Set UL = Classeur.Sheets("_UL")
    Set AgCentre = Classeur.Sheets("_AgCentre")
    Set AgPopTot = Classeur.Sheets("_AgPopTot")
    Set AgNb = Classeur.Sheets("_AgNb")
 
    Dim ID_agglo As String
    Dim Name_agglo As String
    Dim X_agglo As Double
    Dim Y_agglo As Double
 
    For compteur = 1 To UL.Rows.Count Step 1
        If UL.Range("AU" & compteur) = "i" Or UL.Range("AU" & compteur) = "z1" Then
            ID_agglo = UL.Range("A" & compteur)
            Name_agglo = UL.Range("J" & compteur)
            X_agglo = UL.Range("DR" & compteur)
            Y_agglo = UL.Range("DS" & compteur)
            MsgBox ID_agglo
        End If
    Next compteur
End Sub

Si vous avez des remarques sur le code je suis preneur

[kap]

J'ai ajouté ce code pour essayer de me connecter à ma base mySQL mais ça ne fonctionne pas... Vous avez une idée du problème?

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
    ' Declaration des varables de connexion a la base
    Dim DSN As String
    Dim Server As String
    Dim DataBase As String
    Dim Login As String
    Dim Pass As String
 
    ' Server MySQL
    Server = "localhost" ' ou 192.168.200.9
    ' Nom de la base
    DataBase = "egeopolis"
    ' Utilisateur pour la connexion
    Login = "root"
    ' Mot de passe de l'utilisateur
    Pass = ""
    ' Création de la chaine de connexion a la base
    DSN = "driver={MySql};server=" & Server & ";db=" & DataBase & ";UID=" & Login & ";pwd=" & Pass & ";option=2048"
 
    ' Instantiation des objets d'utilisation de la base
    Set Db = New ADODB.Connection
 
    ' Parametrage de la connexion base
    Db.ConnectionTimeout = 30
    Db.CommandTimeout = 30
 
    ' Connexion a la base
    Db.Open DSN

[kap]

J'ai finalement réussi à me connecter à ma base en faisant comme ça :

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
    ' Declaration des varables de connexion a la base
    Dim Db As ADODB.Connection
    Dim DSN As String
    Dim Server As String
    Dim DataBase As String
    Dim Login As String
    Dim Pass As String
 
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    'Connection à la base de donnée
 
    ' Server MySQL
    Server = "localhost" ' ou 192.168.200.9
    ' Nom de la base
    DataBase = "egeopolis"
    ' Utilisateur pour la connexion
    Login = "root"
    ' Mot de passe de l'utilisateur
    Pass = ""
    ' Création de la chaine de connexion a la base
    DSN = "driver={MySQL ODBC 5.1 Driver};server=" & Server & ";db=" & DataBase & ";UID=" & Login & ";pwd=" & Pass & ";option=2048"
 
    ' Instantiation des objets d'utilisation de la base
    Set Db = New ADODB.Connection
    ' Parametrage de la connexion base
    Db.ConnectionTimeout = 30
    Db.CommandTimeout = 30
    ' Connexion a la base
    Db.ConnectionString = DSN
    Db.Open

cela suppose que tu es des bases en SQL

Le SQL ça devrait aller, c'est plutôt le VBA qui me pose problème (j'ai jamais aimé ce language!! )

[kap]

J'arrive à faire des ajouts dans ma base mais je rencontre un petit problème. J'aimerais récupérer la valeur de la clé (autoincrement) créée à chaque ajout dans ma table. 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
MonRs.Open "SELECT * FROM agglomerations", Db, adOpenStatic, adLockOptimistic, adCmdText
            MonRs.Properties("Update Resync") = adResyncAutoIncrement
 
            With MonRs
                .AddNew
                .Fields("name_agglomeration") = Name_agglo
                .Fields("country") = ID_country
                .Fields("x") = X_agglo
                .Fields("y") = Y_agglo
                .Fields("z") = Y_agglo
                .Fields("area") = 100
                .Update
            End With
            MsgBox MonRs.Fields("id_agglomerations").Value
            'MsgBox ID_agglo_bdd
            MonRs.Close

J'obtiens une erreur run-time 3265 à la ligne

Code :

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

MonRs.Properties("Update Resync") = adResyncAutoIncrement

Avez-vous une idée?

[kap]

Je n'arrive toujours pas à utiliser la propriété "Update Resync". J'ai néanmoins réussi à contourner le problème en créant un deuxième recordset. Ca fonctionne mais ce n'est pas totalement satisfaisant... 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
            MonRs.Open "SELECT * FROM agglomerations", Db, adOpenKeyset, adLockOptimistic, adCmdText
            With MonRs
                .AddNew
                .Fields("name_agglomeration") = Name_agglo
                .Fields("country") = ID_country
                .Fields("x") = X_agglo
                .Fields("y") = Y_agglo
                .Fields("z") = Y_agglo
                .Fields("area") = 100
                .Update
            End With
            MonRs.Close
 
            MonRs2.Open "SELECT * FROM agglomerations WHERE name_agglomeration = '" & Name_agglo & "'", Db, adOpenKeyset, adLockOptimistic
            ID_agglo_bdd = MonRs2.Fields("id_agglomerations").Value
            MonRs2.Close

Si vous avez des informations sur le Update Resync je suis preneur. Merci.