Discussion :

[mnladson]

Moi, j'utilise Office 2010 x64 pro, et j'ai ce message d'erreur quand, dans un fichier excel, je veux executer un objet de type commande(adodb.command) pour ecrire dans un autre fichier excel ferme sans l'ouvrir. J'ai deja mis a jour les references mais l'erreur continue. Je dois lire des valeurs dans un fichier excel ferme, chose que je fais deja puis les ecrire dans autre fichier excel ferme. La commande est lancee a partir dans un fichier excel supportant le macro. En lisant sur le forum sur la maniere d'ecrire dans un fichier excel ferme, je suis tombe sur un article qui illustre l'usage des ADODB, mais chez moi, ca ne marche pas. Pouvez vous m'aidez svp.

[AlainTech]

Bonjour,

Comment veux-tu qu'on t'aide si tu ne postes pas ton code?

[Invité]

utilises des CreateObject comme ça plus de problème de références!

Code :

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

1
2
Set Cn = CreateObject("adodb.connection")
Set Cm = CreateObject("adodb.command")

[mnladson]

Bonjour,
Voici le code que qui ne marche pas:

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
 
Sub exportDonneeDansCelluleClasseurFerme()
 
    Dim source As Object
    Dim requete As Object    
 
    Dim Fichier As String, Feuille As String, strSQL As String
    Fichier = "C:\Users\Lui\Desktop\Condence.xls" 'chemin complet du fichier fermé
    Feuille = "Feuil2" 'Onglet où les données doivent être insérées
    Dim nom As String, prenom As String, age As Integer
    nom = "Titi"
    prenom = "Toto"
    age = 22
 
    Set Cnx = CreateObject("ADODB.Connection") 
 
    With Cnx
 
        .Provider = "MSDASQL"
        .ConnectionString = "Driver={Microsoft Excel Driver (*.xls)};" & _
            "DBQ=" & Fichier & "; ReadOnly=False;"
        .Open
    End With
    'Les données doivent être indiquées dans le même ordre que les champs dans la base de données.
    strSQL = "INSERT INTO [" & Feuille & "$] VALUES ( '" & nom & "', '" & prenom & "', " & age & ")"
 
    Cnx.Execute strSQL
 
    Cnx.Close
    Set Cnx = Nothing
End Sub

Le module marche bien jusqu'au niveau de l'exécution de la commande, sur la ligne

Code :

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

 Cnx.Execute strSQL

.
Le message d'erreur que j'ai est celui-ci:
Erreur d'exécution '-2147217865(800040e37)': Erreur Automation.
Merci d'avance pour vos réponses.

[Invité]

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
Sub exportDonneeDansCelluleClasseurFerme()
 
    Dim source As Object
    Dim requete As Object
 
    Dim Fichier As String, Feuille As String, strSQL As String
    Fichier = "C:\Users\RDurupt\Desktop\Condence.xls" 'chemin complet du fichier fermé
    Feuille = "Feuil2" 'Onglet où les données doivent être insérées
    Dim nom As String, prenom As String, age As Integer
    nom = "Titi"
    prenom = "Toto"
    age = 22
 
    Set Cnx = CreateObject("ADODB.Connection")
 
    With Cnx
 
       ' .Provider = "MSDASQL"
        .ConnectionString = "Driver={Microsoft Excel Driver (*.xls)};" & _
            "DBQ=" & Fichier & "; ReadOnly=False;"
        .Open
    End With
    'Les données doivent être indiquées dans le même ordre que les champs dans la base de données.
    strSQL = "INSERT INTO [" & Feuille & "$] (nom, prenom, age) VALUES ( '" & nom & "', '" & prenom & "', " & age & ")" ' (nom, prenom, age)  si le nom des entête sont bien ça dans Excel!
 
    Cnx.Execute strSQL
 
    Cnx.Close
    Set Cnx = Nothing
End Sub

[mnladson]

J'ai bien mis ce code et m'assurer que mes colonnes portaient ces noms, mais ca me donne le même message d'erreur.

[Invité]

et ça n'écrit pas dans ton fichier ? car tu te doute bien que j'ai fait un test avant de poster!

[mnladson]

Non ca n'ecrit pas dans le fichier, déjà que l'erreur est levée avant l'exécution de la commande.

[mnladson]

Bon jusque là, je n'arrive pas à résoudre le problème, mais j'ai pu utiliser une autre méthode, pas tellement comme je l'ai voulais, mais faisant presque la même chose. J'ouvre le fichier de manière caché, puis j'y ecris et ensuite je le ferme. Je le fais à partir de Outlook, qui ouvre le premier fichier excel contenant le code de traitement, puis ce fichier fait la lecture dans un fichier reçu et ecrit dans le fichier cité au début, dans lequel je n'arrivais pas à écrire avec la méthode d'ADO. Mais avec ca, j'ai un problème: le processus excel reste en background, et je n'arrive pas à le fermer. Il le faut parce que, juste après je peux avoir besoin d'ouvrir un autre fichier excel, mais il ne se voit pas parce que excel tourne en tache de fond. Quelqu'un peut m'aider svp...