Discussion :

[froggystar69]

Bonjour a vous,

Je viens a vous pour vous solliciter, j'ai effectue une macro pour récupérer des lignes sur un fichier excel qui est fermé.

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
Sub connexionfichierferme()
 
 
Dim cnx As ADODB.Connection
Dim rst As ADODB.Recordset
Dim cmd As ADODB.Command
Dim cheminf, plage, nfeuille As String
 
'********* Info sur le fichier cible *********
 
plage = "A1:N1"
nfeuille = "TOPBAD"
cheminf = "D:\Users\u170045\Documents\Base de travail INDISPO 24 06 2019.xlsx"
 
'********* Connexion sur le fichier cible *********
 
Set cnx = New ADODB.Connection
With cnx
   .Provider = "Microsoft.Jet.OLEDB.4.0"
   .ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" _
   & cheminf & ";Extended Properties=""Excel 12.0;HDR=No;IMEX=1;"""
   .Open
End With
 
'MsgBox "connexion effectuée sur le fichier : " & Mid(cheminf, 28, 34)
 
'********** Preparation de la commande SQL *********
 
Set cmd = New ADODB.Command
With cmd
    .CommandText = "SELECT * FROM [" & nfeuille & plage & "]"
    .CommandType = adCmdText
    .ActiveConnection = cnx
End With
 
'********** Action de la commande SQL *********
 
Set rst = New ADODB.Recordset
With rst
    .ActiveConnection = cnx
    .Open cmd, , adOpenKeyset, adLockOptimistic
End With
Set rst = cnx.Execute("[" & nfeuille & plage & "]")
ThisWorkbook.Worksheets("Feuil1").Range("A1").CopyFromRecordset rst
 
 
'******** Fermeture de la connexion, de la command et du recordset du fichier cible *********
 
rst.Close
cheminf.Close
cnx.Close
Set cnx = Nothing
Set cmd = Nothing
Set rst = Nothing
 
End Sub

J'ai une erreur lors de la compilation :



il semblerai que l'erreur en question se trouve à .Open cmd, , adOpenKeyset, adLockOptimistic quand je fais le step by step.

J'ai regarde un peu partout sur le net et les forums mais sans succès.

Quelqu'un aurai une idée concernant mon souci ?

En vous remerciant d'avance.

Froggy

[Thumb down]

Bonsoir,
nfeuille = "TOPBAD$"

[froggystar69]

Bonsoir,
nfeuille = "TOPBAD$"

Merci pour votre réponse je vais tester cela et je vous tiens au courant.
Merci

[froggystar69]

Thumb ce fut exactement ca !!!!!!!!!!!!!!!!!!!

Je te remercie cent fois !!!!!!!!!!!!!!!!!!!

Bon je ne sais pas a quoi il sert le $ mais ca marche !!!!!!

Encore merci pour ton aide.

[Thumb down]

Moi non plus mais j'imagine que c'est une convention ado?