XL 2010 MACRO COPIER COLLER VALEUR d'un fichier à un autre

Lone-wolf

XLDnaute Barbatruc

• 23 Avril 2018

• #2

Bonjour Matthieu et bienvenue sur XLD

Joint les fichiers pour une aide plus éfficace. De plus

Je souhaiterais copier la selection C4 à AG4 de la feuille MAY18forecast du fichier A au depart de la cellule C3 de la feuille MAI2018 du fichier B

Cliquez pour agrandir...

Moi je lit ceci: Fichier B : Forecast RM catégorie SPé. Où est la feuille MAI2018??

 

Vote positif 0 Vote négatif

M

Matthieu Sattler

XLDnaute Nouveau

• 23 Avril 2018

• #3

Bonjour Lone-wolf merci beaucoup pour ta réactivité.

Je viens d'éditer le message precedent et les deux fichier sont joints dessus.

La feuille MAI2018 est une des feuilles du fichier B nommé forecast RM catégorie SPé.

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 23 Avril 2018

• #4

Re

Encore une chose. Est-tu sûr de vouloir copié juste cette ligne? Voici la macro

VB:

Option Explicit

Public Sub Copie_Ligne()
Dim WbSource As Workbook, WbDest As Workbook, Wb As Workbook

    Set Wb = "ResReportKON May2018.xlsx"
    Set WbSource = Workbooks.Open(Wb)
    Set WbDest = ThisWorkbook

    WbSource.Sheets("May18FORECAST").Range("c4:cg4").Copy
    WbDest.Sheets("Mai2018").Range("c3").PasteSpecial Paste:=xlPasteValues
   
    Application.CutCopyMode = 0
    Application.Goto WbDest.Sheets("Mai2018").Range("a1")
   
    ActiveWorkbook.Close False
End Sub

Est-ce que c'est juste?

 

Vote positif 0 Vote négatif

M

Matthieu Sattler

XLDnaute Nouveau

• 23 Avril 2018

• #5

Alors en réalité je souhaiterais copier 6 lignes du Fichier A vers le fichier B. Mais je ne voulais pas abuser de votre temps.

Je me suis dis qu'il suffirait de rajouter les codes de la première ligne et de juste changer les cellules de depart et de destination.

C'est pas le cas c'est ça ? c'est plus complexe ?

 

Vote positif 0 Vote négatif

M

Matthieu Sattler

XLDnaute Nouveau

• 23 Avril 2018

• #6

et un grand merci pour cette macro vraiment tu assures !!

 

Vote positif 0 Vote négatif

M

Matthieu Sattler

XLDnaute Nouveau

• 23 Avril 2018

• #7

Petite question, je copie colle ton script où ? ^^ je le copie colle tel quell ?

Je suis pas un debutant pour rien AHAH

 

Vote positif 0 Vote négatif

M

Matthieu Sattler

XLDnaute Nouveau

• 23 Avril 2018

• #8

Quand je copie colle ton script dans le créateur de macro j'ai cette erreur qui apparait

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 23 Avril 2018

• #9

Re

La tu abuse. Depuis quelle ligne et jusqu'à quelle ligne tu veux faire la copie?? . Il faut d'abord enregistrer Forecast Rm au format xlsm (classeur prenant en charge les macros. Clique sur developpeur(si tu l'as) > Visual Basic > Insertion, et tu insère un module (pas module de classe). Là tu fait un copié-collé de cette macro.

VB:

Public Sub Copie_Ligne()
Dim WbSource As Workbook, WbDest As Workbook, Wb As String

    Application.ScreenUpdating = False
    'Chemin à modifier si besoin
    Wb = ThisWorkbook.Path & "\ResReportKON May2018.xlsx"
 
    Set WbSource = Workbooks.Open(Wb)
    Set WbDest = ThisWorkbook

    WbSource.Sheets("May18FORECAST").Range("c4:cg10").Copy
    WbDest.Sheets("Mai2018").Range("c3").PasteSpecial Paste:=xlPasteValues
 
    Application.CutCopyMode = 0
    Application.Goto WbDest.Sheets("Mai2018").Range("a1")
    Application.DisplayAlerts = False
    ThisWorkbook.Save
 
    WbSource.Close False
End Sub

EDIT: désolé j'avais oublié ThisWorkbook.Path &

 

Vote positif 0 Vote négatif

M

Matthieu Sattler

XLDnaute Nouveau

• 23 Avril 2018

• #10

Super merci en gros je veux copier coller donc la ligne que tu as déjà coder + la ligne C5 à AG5 du fichier A au depart de C4 sur le fichier B
puis C12 à AG12 au depart de C30 sur fichier B, C13 à AG13 au depart de c31 sur fichier B, C20 à AG 20 au depart de C57 sur fichier B et de C21 à AG21 au depart de C58 sur fichier B

 

Vote positif 0 Vote négatif

M

Matthieu Sattler

XLDnaute Nouveau

• 23 Avril 2018

• #11

Dernière question, j'ai réussi à rajouter toutes les lignes que je voulais donc top, mais aurait-il un moyen pour que je puisse lancer la macro avec le fichier source (resreportKONmay2018) ouvert ? Car là dès que je lance la macro il me dit que le fichier doit être fermé :/

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 23 Avril 2018

• #12

Re

dans ce cas

Set Wb = "ResReportKON May2018.xlsx"

Et tu supprime Set WbSource = Workbooks.Open(Wb)

 

Vote positif 0 Vote négatif

M

Matthieu Sattler

XLDnaute Nouveau

• 23 Avril 2018

• #13

Super merci, et petite question, si je veux prendre les infos dans le meme documents, je peux partir de ce meme code et simplement changer le fichier source ? Par exemple si à la place de ce chemin Wb = ThisWorkbook.Path & "\ResReportKON May2018.xlsx" je veux prendre les info sur une page du fichier Thisworkbook il me suffit de changer resreportKON May2018.xls par thisworkbook ?

 

Vote positif 0 Vote négatif

M

Matthieu Sattler

XLDnaute Nouveau

• 23 Avril 2018

• #14

Je souhaiterais également ajouter un condition supplémentaire au collage, par exemple la function collage transposé en plus de la function collage en valeur, c'est possible ?

Le mec relou oui oui c'est moi

 

Vote positif 0 Vote négatif

M

Matthieu Sattler

XLDnaute Nouveau

• 24 Avril 2018

• #15

Help Please

 

Vote positif 0 Vote négatif