Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Copier d'un classeur à un autre

Copier d'un classeur à un autre

5 réponses
Avatar
Quaisako
Bonjour le forum,

'Avec ce code, je copie les colonnes Nom et Prénom (B, C de la feuille
'Detail) dans la feuille (Paiements colonnes A et B).

L2 = Sheets("Paiements").Range("A65536").End(xlUp).Row + 1
With Sheets("Paiements")
.Range("A" & L2).Value = TxtNom.Value
.Range("B" & L2).Value = TxtPrénom.Value
End With

Comment écrire que la copie se fasse dans le classeur "Basket_Banque"
=>"Feuil1" => Colonnes A et B?

Merci pour votre aide
Jipé
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
MichDenis
Bonjour Quaisako,

Tu veux copier QUOI (nom du classeur , feuille, la plage à copier) OÙ (nom du classeur, feuille, plage)

Salutations!



"Quaisako" a écrit dans le message de news:
Bonjour le forum,

'Avec ce code, je copie les colonnes Nom et Prénom (B, C de la feuille
'Detail) dans la feuille (Paiements colonnes A et B).

L2 = Sheets("Paiements").Range("A65536").End(xlUp).Row + 1
With Sheets("Paiements")
.Range("A" & L2).Value = TxtNom.Value
.Range("B" & L2).Value = TxtPrénom.Value
End With

Comment écrire que la copie se fasse dans le classeur "Basket_Banque"
=>"Feuil1" => Colonnes A et B?

Merci pour votre aide
Jipé
Avatar
Corona
Bonjour Jipé,
Pour copier dans le "classeur/feuille" actif les données se trouvant dans
un classeur ouvert nommé "Classeur2" et feuille "Test"
L2 = Sheets("Paiements").Range("A65536").End(xlUp).Row + 1
With Sheets("Paiements")
.Range("A" & L2).Value =
Workbooks("Classeur2.xls").Worksheets("Test").Range("B2")
.Range("B" & L2).Value =
Workbooks("Classeur2.xls").Worksheets("Test").Range("C2")
End With
Philippe

"Quaisako" a écrit dans le message de news:

Bonjour le forum,

'Avec ce code, je copie les colonnes Nom et Prénom (B, C de la feuille
'Detail) dans la feuille (Paiements colonnes A et B).

L2 = Sheets("Paiements").Range("A65536").End(xlUp).Row + 1
With Sheets("Paiements")
.Range("A" & L2).Value = TxtNom.Value
.Range("B" & L2).Value = TxtPrénom.Value
End With

Comment écrire que la copie se fasse dans le classeur "Basket_Banque"
=>"Feuil1" => Colonnes A et B?

Merci pour votre aide
Jipé



Avatar
Quaisako
Bonjour le Forum,

Dans un premier temps:
Je voudrais copier les données de la feuille "Detail" plage"B6:Cxxxxxxxxx"
du classeur nommé "Basket_Saisie"

et les coller dans le classeur "Basket_Banque" la plage "A6:Bxxxxxx" feuil1.

Merci
Jipé


"MichDenis" a écrit dans le message de news:
%
Bonjour Quaisako,

Tu veux copier QUOI (nom du classeur , feuille, la plage à copier) OÙ
(nom du classeur, feuille, plage)

Salutations!



"Quaisako" a écrit dans le message de news:

Bonjour le forum,

'Avec ce code, je copie les colonnes Nom et Prénom (B, C de la feuille
'Detail) dans la feuille (Paiements colonnes A et B).

L2 = Sheets("Paiements").Range("A65536").End(xlUp).Row + 1
With Sheets("Paiements")
.Range("A" & L2).Value = TxtNom.Value
.Range("B" & L2).Value = TxtPrénom.Value
End With

Comment écrire que la copie se fasse dans le classeur "Basket_Banque"
=>"Feuil1" => Colonnes A et B?

Merci pour votre aide
Jipé





Avatar
MichDenis
Bonjour Quaisako,

'------------------------------
Sub Copie()

Dim Rg As Range, Rg1 As Range
With Worksheets("Detail")
Set Rg = .Range("B6:C" & .Range("C65536").End(xlUp).Row)
End With
With Worksheets("Basket_Banque")
Set Rg1 = .Range("A6:B" & .Range("B65536").End(xlUp).Row)
End With
Rg1.Clear
Rg.Copy Rg1(1, 1)
Set Rg = Nothing: Set Rg1 = Nothing

End Sub
'------------------------------


Salutations!



"Quaisako" a écrit dans le message de news:
Bonjour le Forum,

Dans un premier temps:
Je voudrais copier les données de la feuille "Detail" plage"B6:Cxxxxxxxxx"
du classeur nommé "Basket_Saisie"

et les coller dans le classeur "Basket_Banque" la plage "A6:Bxxxxxx" feuil1.

Merci
Jipé


"MichDenis" a écrit dans le message de news:
%
Bonjour Quaisako,

Tu veux copier QUOI (nom du classeur , feuille, la plage à copier) OÙ
(nom du classeur, feuille, plage)

Salutations!



"Quaisako" a écrit dans le message de news:

Bonjour le forum,

'Avec ce code, je copie les colonnes Nom et Prénom (B, C de la feuille
'Detail) dans la feuille (Paiements colonnes A et B).

L2 = Sheets("Paiements").Range("A65536").End(xlUp).Row + 1
With Sheets("Paiements")
.Range("A" & L2).Value = TxtNom.Value
.Range("B" & L2).Value = TxtPrénom.Value
End With

Comment écrire que la copie se fasse dans le classeur "Basket_Banque"
=>"Feuil1" => Colonnes A et B?

Merci pour votre aide
Jipé





Avatar
Quaisako
Bonjour le Forum,

Merci MichDenis pour ta proposition.
N'étant pas un pro de vba, et n'étant pas parvenu à faire fonctionner ton
code comme tu l'as écris, je l'ai modifié "comme ci-dessous". Il fonctionne.
Merci pour ton aide
Jipé

Sub SaisieBanque()

Dim Rg As Range, Rg1 As Range
With Worksheets("Detail")
Set Rg = .Range("B6:C" & .Range("C65536").End(xlUp).Row)
End With
With Workbooks.Open("C:Basket_Banque.xls")
With Worksheets("Feuil1")
Set Rg1 = .Range("A6:B" & .Range("B65536").End(xlUp).Row)
End With
End With
Rg1.Clear
Rg.Copy Rg1(1, 1)
Set Rg = Nothing: Set Rg1 = Nothing

End Sub

"MichDenis" a écrit dans le message de news:

Bonjour Quaisako,

'------------------------------
Sub Copie()

Dim Rg As Range, Rg1 As Range
With Worksheets("Detail")
Set Rg = .Range("B6:C" & .Range("C65536").End(xlUp).Row)
End With
With Worksheets("Basket_Banque")
Set Rg1 = .Range("A6:B" & .Range("B65536").End(xlUp).Row)
End With
Rg1.Clear
Rg.Copy Rg1(1, 1)
Set Rg = Nothing: Set Rg1 = Nothing

End Sub
'------------------------------


Salutations!



"Quaisako" a écrit dans le message de news:

Bonjour le Forum,

Dans un premier temps:
Je voudrais copier les données de la feuille "Detail" plage"B6:Cxxxxxxxxx"
du classeur nommé "Basket_Saisie"

et les coller dans le classeur "Basket_Banque" la plage "A6:Bxxxxxx"
feuil1.

Merci
Jipé


"MichDenis" a écrit dans le message de news:
%
Bonjour Quaisako,

Tu veux copier QUOI (nom du classeur , feuille, la plage à copier) OÙ
(nom du classeur, feuille, plage)

Salutations!



"Quaisako" a écrit dans le message de
news:

Bonjour le forum,

'Avec ce code, je copie les colonnes Nom et Prénom (B, C de la feuille
'Detail) dans la feuille (Paiements colonnes A et B).

L2 = Sheets("Paiements").Range("A65536").End(xlUp).Row + 1
With Sheets("Paiements")
.Range("A" & L2).Value = TxtNom.Value
.Range("B" & L2).Value = TxtPrénom.Value
End With

Comment écrire que la copie se fasse dans le classeur "Basket_Banque"
=>"Feuil1" => Colonnes A et B?

Merci pour votre aide
Jipé