Discussion :

[bboy-eazy]

Bonjour à tous,

Je suis encore un amateur du VBA et je me tourne vers vous concernant un problème que je ne comprends pas!

J'ai un fichier excel dans lequel il y a une feuille paramètres qui contient le chemin d'accès au fichier à récuperer et une feuille base pour recevoir la base de données contenue dans un autre classeur.

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
Private Sub Workbook_Open()
 
If Not (ThisWorkbook.ReadOnly) Then
Application.ScreenUpdating = False
Application.DisplayAlerts = False
 
'===================================================================================================
                'Mise à jour de la base de données
'===================================================================================================
Worksheets("Base").Range("A2:I4000").ClearContents
Dim Source As ADODB.Connection
Dim Rst As ADODB.Recordset
Dim ADOCommand As ADODB.Command
Dim Fichier As String, Plage As String, Feuille As String
 
'Adresse de la Plage contenant les données à récupérer
Plage = "A2:I4000"
Feuille = "Base$" 'n'oubliez pas d'ajouter $ au nom de la feuille.
'Chemin complet du classeur fermé
Fichier = "" & Worksheets("Paramètres").Cells(2, 1) & ""
 
Set Source = New ADODB.Connection
Source.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Fichier & ";Extended Properties=""Excel 8.0;IMEX=1;HDR=No;"";"
Set ADOCommand = New ADODB.Command
 
With ADOCommand
.ActiveConnection = Source
.CommandText = "SELECT * FROM [" & Feuille & Plage & "]"
End With
Set Rst = New ADODB.Recordset
Rst.Open ADOCommand, , adOpenKeyset, adLockOptimistic
Set Rst = Source.Execute("[" & Feuille & Plage & "]")
 
ThisWorkbook.Worksheets("Base").Range("A2").CopyFromRecordset Rst
Rst.Close
Source.Close
Worksheets("Base").Visible = True
Worksheets("Base").Activate
Columns("A:A").Select
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 1)
Worksheets("Base").Visible = False
 
Set Source = Nothing
Set Rst = Nothing
Set ADOCommand = Nothing
 
Application.Windows(ThisWorkbook.Name).Visible = True
 
End If
 
End Sub

Le problème, c'est que lorsque j'ouvre mon fichier excel, un message d'erreur apparait:

"erreur de complilation: type définie par l'utilisateur non défini"

Je ne comprends pas ou est l'erreur... :S

Merci de votre aide et bonne journée

[Marc-L]

Bonjour, bonjour,

il y aurait eu certainement des réponses si la question n'avait pas été posée dans le forum Excel (formules de calcul)
mais dans le forum dédié Macros et VBA Excel !

Sans oublier non plus d'indiquer le n° de la ligne déclenchant l'erreur !
Si la ligne n'est pas indiquée, la chercher grâce au mode pas à pas via la touche F8 dans l'environnement VBA …

A tout hasard, la référence de la bibliothèque ADO a bien été activée ?

[bboy-eazy]

Merci Marc-L pour ta réponse.

En effet je viens de voir et comprendre pourquoi je n'avais pas de réponse aprfois! Je n'avais pas vu la section réservé macro... Désolé mais merci du tuyau !

Le problème était en ligne 11 et en effet, vous avez trouvé directement la réponse je n'avais pas activé les références... merci encore!

Bonne journée