Copier des cellules vers un fichier fermé
Bonjour à tous;
j'ai un bug dans mon code. Je cherche à copier de mon classeur 1 la cellule A3 - B3 - C3 et D3 vers un classeur 2.
A chaque fois que je veux transférer ces données elle doivent se mettre sur la ligne en dessous par exemple A4 - B4-C4 et D4...
J'ai bien le code suivant qui le fait quand les deux classeurs sont ouverts
Sub transfer()
Set WB = ActiveWorkbook
'thefile = Application.GetOpenFilename
'Set WB2 = Workbooks.Open(thefile)
Set WB2 = Workbooks("Classeur2.xlsx")
derlig = WB2.Sheets("Feuil1").Range("B65536").End(xlUp).Row
[A3].Copy
WB2.Sheets("Feuil1").Cells(derlig + 1, 2).PasteSpecial Paste:=xlValues
[B3].Copy
WB2.Sheets("Feuil1").Cells(derlig + 1, 3).PasteSpecial Paste:=xlValues
[C3].Copy
WB2.Sheets("Feuil1").Cells(derlig + 1, 4).PasteSpecial Paste:=xlValues
[D3].Copy
End Sub
J'aimerai que ça marche sans à ouvrir le classeur2
J'ai trouvé des début de code mais ça marche pas.
Pouvez-vous m'aider
Merci
Fred
Personne peut m'aider?
merci
J'ai essayé avec ce code mais ça marche pas non plus
Sub RequeteClasseurFerme_Excel2007()
Dim Cn As ADODB.Connection
Dim Fichier As String
Dim NomFeuille As String, texte_SQL As String
Dim Rst As ADODB.Recordset
'Définit le classeur fermé servant de base de données
Fichier = "C:\Documents and Settings\mimi\dossier\Classeur2.xlsx"
'Nom de la feuille dans le classeur fermé
NomFeuille = "Feuil1"
Set Cn = New ADODB.Connection
'--- Connexion ---
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
'-----------------
derlig = WB2.Sheets("Feuil1").Range("B65536").End(xlUp).Row
[A3].Copy
WB2.Sheets("Feuil1").Cells(derlig + 1, 2).PasteSpecial Paste:=xlValues
[B3].Copy
WB2.Sheets("Feuil1").Cells(derlig + 1, 3).PasteSpecial Paste:=xlValues
[C3].Copy
WB2.Sheets("Feuil1").Cells(derlig + 1, 4).PasteSpecial Paste:=xlValues
[D3].Copy
Cn.Close
Set Cn = Nothing
End Sub
Je ne sais pas comment repondre a ce probleme je suis trop "amateur" dan sce type de programation.
Pouvez vous me dire ce qu'il bloque?
merci