Discussion :

[BRUNO71]

Bonjour à vous,
Je suis bloqué,en utilisant la méthode ADODB.Connection
Exemple:
j'aimerai à partir d'un classeur1 ouvert, copier la ligne 5 d'une feuil1 et l'envoyer vers un classeur2 fermé a la ligne 5 de la Feuil2 sans l'ouvrir.
Par exemple au moment d'imprimer un texte, la macro ( imprime, copie, colle sans ouvrir le classeur2)
J'ai téléchargé dans le forum :
Lire et écrire dans les classeurs Excel fermés
Et bien c'est coton....
Quelqu'un a t'il une macro bien avancé ??
Bien cordialement
Bruno

[fred65200]

bonjour,

je ne maîtrise absolument pas ADO
mais teste ce 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
Option Explicit
 
 
Sub exportDonneeDansCelluleClasseurFerme()
   Dim Cn As ADODB.Connection
   Dim Cd As ADODB.Command
   Dim Rst As ADODB.Recordset
   Dim Fichier As String
   Dim NomFeuille As String
   Dim DerCol As Integer
   Dim NomCol As String
   Dim i As Integer
 
   Fichier = "C:\Users\Fred\Desktop\Classeur2.xls"
   NomFeuille = "Feuil2"
   Set Cn = New ADODB.Connection
   ' pour Xl 2007
   Cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _
      "Data Source=" & Fichier & ";" & _
      "Extended Properties=""Excel 12.0;HDR=NO;"""
   'Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
      "Data Source=" & Fichier & ";" & _
      "Extended Properties=""Excel 8.0;HDR=No;"";"
 
   Set Cd = New ADODB.Command
   Cd.ActiveConnection = Cn
   DerCol = Rows(5).Find("*", , , , , xlPrevious).Column
   For i = 1 To DerCol
      NomCol = Split(Columns(i).Address, ":$")(1)
      Cd.CommandText = "SELECT * FROM [" & NomFeuille & "$" & NomCol & "5:" & NomCol & "5]"
      Set Rst = New ADODB.Recordset
      Rst.Open Cd, , adOpenKeyset, adLockOptimistic
      Rst(0).Value = Cells(5, i).Value
      Rst.Update
   Next i
   Cn.Close
 
   Set Cn = Nothing
   Set Cd = Nothing
   Set Rst = Nothing
End Sub

cordialement

[BRUNO71]

Bonsoir fred,

Super ton code, merci.
Néanmoins j'aimerai copier la ligne 5 en totalité.
Alors que dans cette exemple je copie la case A5.

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
Dim Cn As ADODB.Connection
Dim Cd As ADODB.Command
Dim Rst As ADODB.Recordset
Dim Fichier As String
Dim NomFeuille As String
Dim DerCol As Integer
Dim NomCol As String
Dim i As Integer
Fichier = "C:\Documents and Settings\Bruno\Mes documents\Classeur1.xls"
NomFeuille = "Feuil3"
Set Cn = New ADODB.Connection
Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Fichier & ";" & _
"Extended Properties=""Excel 8.0;HDR=No;"";"
Set Cd = New ADODB.Command
Cd.ActiveConnection = Cn
DerCol = Rows("5:5").Column
For i = 1 To DerCol
NomCol = Split(Columns(i).Address, ":$")(1)
Cd.CommandText = "SELECT * FROM [" & NomFeuille & "$" & NomCol & "5:" & NomCol & "5]"
Set Rst = New ADODB.Recordset
Rst.Open Cd, , adOpenKeyset, adLockOptimistic
Rst(0).Value = Cells(5, i).Value
Rst.Update
Next i
Cn.Close
Set Cn = Nothing
Set Cd = Nothing
Set Rst = Nothing

Comment faire.
Bien cordialement

edit

[BRUNO71]

Merci Fred
J'ai résolu le probleme

Bien cordialement

[fred65200]

bonjour,

peux tu nous faire profiter de ta solution.

edit je vois que tu as modifier cette ligne

Code :

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

1
2
DerCol = Rows("5:5").Column

donc DerCol = 1, tu n'auras effectivement que A5.

@+

[BRUNO71]

Bonjour,

Oui bien sur, voici le code...
Par contre j'ai un petit souci à résoudre... J'aimerai inclure dans ma macro l'insertion d'une ligne vierge dan le classeur fermé, comme ça je peux a nouveau copier mes cellules dans la ligne 5...
Mais comment faire ?

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
 Dim Cn As ADODB.Connection
Dim Cd As ADODB.Command
Dim Rst As ADODB.Recordset
Dim Fichier As String
Dim NomFeuille As String
Dim DerCol As Integer
Dim NomCol As String
Dim i As Integer
Sheets("Récap").Select
Range("B4").Value = TextBox1.Value
Range("E4").Value = TextBox3.Value
Range("A4").Formula = Format(Date, "DD - MMMM - yy")
Range("G4").Value = 1
Range("I4").Value = Environ("UserName")
Range("H4").Value = ""
Range("N4").Value = ""
Sheets("Courriers").Select
Range("E18").Select
adresseclient.Hide
Fichier = "Q:\GAR\Stat_Courriers_LT01\Récap_courriers_LT11.xls"
NomFeuille = "Récap"
Set Cn = New ADODB.Connection
Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Fichier & ";" & _
"Extended Properties=""Excel 8.0;HDR=No;"";"
Set Cd = New ADODB.Command
Cd.ActiveConnection = Cn
DerCol = Cells("15").Column
For i = 1 To DerCol
NomCol = Split(Columns(i).Address, ":$")(1)
Cd.CommandText = "SELECT * FROM [" & NomFeuille & "$" & NomCol & "5:" & NomCol & "5]"
Set Rst = New ADODB.Recordset
Rst.Open Cd, , adOpenKeyset, adLockOptimistic
Rst(0).Value = Worksheets("Récap").Cells(4, i).Value
Rst.Update
Next i
Rows("5:5").Select
Selection.Insert Shift:=xlDown
Cn.Close
Set Cn = Nothing
Set Cd = Nothing
Set Rst = Nothing

J'ai incorporé (en rouge) cette insertion pour le classeur fermé mais ça ne fonctionne pas ...

Bref quelqu'un a t'il une solution ?

Merci, bien cordialement.

Bruno