Macro copier donnees dans nouveau fichier Excel

Bonjour,

J'ai un souci pour la création d'une macro.

J'ai un classeur excel "A" et un autre "B". Je voudrais copier les valeurs (classeur A) d'une selection ("B13:C16"). en les transposant dans le classeur "B". De plus, il faut que la selection ("B13:C16") soit copier apres la derniere ligne saisi dans le classeur B.

J'ai commencé le code mais je seche pour la partie "coller" dans le classeur B. En gros, je pense qui faut verifier où coller la ligne.

Voilà ce que j'ai commencé à faire :

Range("B13:C16").Select

Selection.Copy

Range("B25").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=True

Merci pour votre aide

Cordialement

Bonsoir,

Il faut que les 2 classeurs soit ouverts

Sub Saisie()
    Range("B13:C16").Copy
    Workbooks("ClasseurB.xls").Activate
        With Sheets("Feuil2").Range("b65536").End(xlUp)(2)
            .PasteSpecial Paste:=xlValues, Transpose:=True
        End With
    Application.CutCopyMode = False
End Sub

Amicalement

Claude.

dubois a écrit :

Bonsoir,

Il faut que les 2 classeurs soit ouverts

Sub Saisie()
    Range("B13:C16").Copy
    Workbooks("ClasseurB.xls").Activate
        With Sheets("Feuil2").Range("b65536").End(xlUp)(2)
            .PasteSpecial Paste:=xlValues, Transpose:=True
        End With
    Application.CutCopyMode = False
End Sub

Amicalement

Claude.

Merci Claude

ca marche super

j'ai rajouté l'ouverture du fichier par Workbooks.Open Filename:="C:\Classeur2.xlsx"

sinon pour optimiser le truc je voudrais

la possibilité de copier 2 selections différentes et les coller à la suite.

exemple : ("B13:C16")&A2 copier

coller la selection à la suite (B13 C13 B14 C14 B15 C15 B15 C15 A2

Merci d'avance

re,

Où va le "A2" ?

envoie ta feuille, çà sera + mieux !

Claude.

ci joint les 2 fichiers.

Merci encore de ton aide

Bert

re,

La date en A1, c'est la date du jour "AUJOURDHUI()" ou une date quelconque ?

c'est une date quelconque.

Ce n'est pas forcement sa bonne place mais c'est pour avoir la methode

Merci encore

re,

Sub Saisie()
Dim Lg%, Lg2%, Wbk$, Sh
''Macros par Claude Dubois pour "bert13" Excel-Pratique le 15/12/09
    Wbk = ActiveWorkbook.Name
    Sh = ActiveSheet.Name
    Lg = Range("b65536").End(xlUp).Row

      Workbooks("Classeur2.xls").Activate          
            Lg2 = Range("Feuil1!b65536").End(xlUp)(2).Row
            Workbooks(Wbk).Sheets(Sh).Range("b13:C" & Lg).Copy
            Range("b" & Lg2).PasteSpecial Paste:=xlValues, Transpose:=True
            Workbooks(Wbk).Sheets(Sh).Range("a1").Copy Destination:=Range("a" & Lg2)
    Application.CutCopyMode = False
    Workbooks(Wbk).Activate
End Sub

Bonne fin de soirée

Claude.

édit: suppression du With

Merci Claude. Super boulot. ca marche super bien.

Cordialement.

Bertrand

Bonjour,

Je me permets de poster sur cette page car elle m'a aidée a faire en partie ce que je voulais : une macro qui copie une plage de cellules de la page active vers une autre page (du meme fichier) en collant les donnés en dessous de la derniere cellule pleine (ligne la plus basse) de la colonne A.

Cependant j'ai un pb: il arrive souvent que la derniere cellule pleine de ma selection ne soit pas en colonne A mais en E ou F. Du coup quand j'active la macro , ça ecrase les données des cellules en E ou F du dernier collage.

Que faudrait il rajouter au collage dans ma macro? je joints le détail:

Sub copie_achat()

Range("A6:H27").Copy

Worksheets("ACHAT").Activate

With Sheets("ACHAT").Range("a65536").End(xlUp)(2)

.PasteSpecial Paste:=xlValues, Transpose:=False

End With

Application.CutCopyMode = False

End Sub

Merci aux personnes qui se donneront la peine de m'aider.

Bonjour,

Une macro ne marche que sur le fichier pour lequel elle a été conçue !

De plus, ce poste est résolu,

ouvre-en un à ton nom

Amicalement

Claude.

Bonsoir,

Je suis à la recherche d'un peu d'aide pour une macro... Je souhaite copier des données vers un nouveau fichier excel mais en les sélectionnant au préalable. J'ai une liste de vendeurs et un ensemble de données les concernant (chiffres d'affaires, produits vendus etc) et je dois copier les données d'un seul vendeur sur le nouveau fichier (le vendeur est sélectionné par un message inputbox).

je sèche sur la partie copier coller les données vers le nouveau fichier excel...

Si vous pouviez m'éclairer, ce serait super !

Merci par avance,

Léa

Voici le début de mon code (je ne connais pas le code pour exporter vers un autre fichier, seulement vers une autre feuille).

Sub info_vendeur()

Dim Vendeur As String

Sheets("Vente").Select

Vendeur = InputBox("Quel vendeur souhaitez vous ?")

Range("N2") = Vendeur

Sheets.Add after:=Sheets(Sheets.Count)

ActiveSheet.Name = Sheets("Vente").Range("N2").Value

'Faire un filtre avancé pour extraire les données vers la nouvelle feuille

Sheets("Vente").Range("A1").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, criteriarange:=Sheets("Vente").Range("G1"), copytorange:=Range("A1"), Unique:=False

End Sub