Discussion :

[Mistigri5]

Bonjour,

J'essaie de créer une macro qui me va copier coller des données d'un autre fichier excel dans l'ouvrir. J'ai lu sur différents posts qu'il faut commencer par créer une connexion ADO. J'ai donc essayé mais j'obtiens un message d'erreur.... Voici le début de ma macro :

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
Sub ouverture()
 
Dim Cn As ADODB.Connection
Dim Fichier As String
 
'Définit le classeur fermé servant de base de données
Fichier = "G:\blablabla"
 
Set Cn = New ADODB.Connection
 
With Cn
    .Provider = "Microsoft.Jet.OLEDB.4.0"
    .ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" _
        & Fichier & ";Extended Properties=""Excel 12.0;HDR=YES;"""
    .Open
End With
 
 
End Sub

Le problème réside dans le lancement de la macro, j'obtiens le message suivant : Compile error: User-defined type not defined

Savez-vous pourquoi?

Je précise que je travaille sous Excel 2010....


Merci à toutes et à tous,

Très bonne journée à vous et surtout bon week-end!

[Invité]

Bonjour,

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
Sub ouverture()
 
Dim Cn As Object'ADODB.Connection
Dim Fichier As String
 
'Définit le classeur fermé servant de base de données
Fichier = "G:\blablabla\fichier.xls"
 
Set Cn = creatobject("ADODB.Connection")
 
With Cn
    .Provider = "Microsoft.Jet.OLEDB.4.0"
    .ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" _
        & Fichier & ";Extended Properties=""Excel 12.0;HDR=YES;"""
    .Open
End With
 
 
End Sub

[Nico Chg]

Le code de rdurupt est bien et va répondre à ta problématique, mais juste pour savoir d'ou vient ton erreur :

Tu définis Cn as ADODB.Connection, hors tu n'a pas activer les bonnes références, et VBA ne reconnais pas ce type de variables. Il devine alors que c'est un type de variable définis par l'utilisateur, d'ou ton erreur.

La ou rdurupt ne génère pas l'erreur, c'est qu'il instancie Cn d'abord comme un objet (type reconnu par VBA), et qu'uniquement après il le type en ADODB.Connection, via le CreateObject. ça s'appelle du Late Bindings, contrairement à ce que tu as fait, qui est de l'early bindings.

[kiki29]

Salut, autrement dit voir : Early ou Late Binding, et développer en Early et déployer en Late, surtout si environnement hétérogène.

[Mistigri5]

Bonjour,

Je viens d'essayer le code mais j'aiun lessage d'erreur lorsque j'éxécute le code.


Je code se bloque sur 'createobject' et j'ai un message d'erreur suivant : 'Compile error : Sub or function not defined'

Auriez-vous une petite idée pour résoure ce problème ?

Je vous remercie!

Boris

[Invité]

Bonjour,
faute de frappe

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
Sub ouverture()
 
Dim Cn As Object'ADODB.Connection
Dim Fichier As String
 
'Définit le classeur fermé servant de base de données
Fichier = "G:\blablabla\fichier.xls"
 
Set Cn = CreateObject("ADODB.Connection")
 
With Cn
    .Provider = "Microsoft.Jet.OLEDB.4.0"
    .ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" _
        & Fichier & ";Extended Properties=""Excel 12.0;HDR=YES;"""
    .Open
End With
 
 
End Sub