Amelioration macro excelRésolu

Question

Bonjour,

J'ai une macro excel qui copie une plage de cellules d'un classeur A vers un classeur B

Workbooks.Open Filename:="C:\Integrate.xlsx"
    Application.WindowState = xlMinimized
    Range("B1:D5").Select
    Selection.Copy
    Windows("Main.xlsm").Activate
    Range("B1").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Range("D12").Select
    Sheets("A").Select

Je voudrais si c'est possible que si les données sont copiées a partir d'une feuille qui s'appelle "france" du classeur A la macro les copie dans la feuille "france" du classeur B

Merci pour votre aide

Cordialement,

Eric

cs_lermite222 · Accepted Answer

Bonjour,
Peut-être comme ça ?
Sub Copier()
Dim Nom As String
    Workbooks.Open Filename:="C:\Integrate.xlsx"
    Nom = ActiveSheet.Name
    Range("B1:D5").Copy Workbooks("Main.xlsm").Sheets(Nom).Range("B1")
    
End Sub
A+

cs_loulou69 · Answer

Bonjour

Pour selectionner la feuille france

Sheets("france").Select

Cordialement

zebulo80 · Answer

Merci beaucoup cela fonctionne.

Maintenant le fichier que je recoit contient 3 feuilles. Serait-il possible de copier chacune des 3 feuilles du classeur B (integrate) sur leur feuille correspondante du classeur A (feuille avec le meme nom) ?

cs_lermite222 · Answer

Sub Copier()
Dim Nom As String, Wk As Worksheet
    Workbooks.Open Filename:="C:\Integrate.xlsx"
    For Each Wk In ActiveWorkbook.Sheets.Count
        Nom = Wk.Name
        Range("B1:D5").Copy Workbooks("Main.xlsm").Sheets(Nom).Range("B1")
    Next Wk
End Sub
A+

Amelioration macro excel

4 réponses

Votre réponse

Discussions similaires