Microsoft 365 Problème macro copie/colle

st007 à dit:

Bonjour, un essai

Cliquez pour agrandir...

vgendron à dit:

Bonjour

un essai ici:

VB:

Sub Macro2()
'
' Macro2 Macro
' Importe la BASE RELANCE
'
Application.DisplayAlerts = False
' Touche de raccourci du clavier: Ctrl+Shift+B
'
    Dim wkA As Workbook, wkB As Workbook
    Dim chemin As String, classeur As String, fichier As String
    Dim DernLigne As Long, DernColonne As Integer

    Set wkA = ActiveWorkbook
'Ouvre le fichier voulu
    With Sheets("Mode d'Emploi")
        chemin = .Range("D11") ' la partie fixe
        classeur = .Range("D12")  ' pour récupérer le nom du classeur
    End With
    fichier = chemin & classeur
    Workbooks.Open fichier
'Copie le contenu du fichier ouvert
    Set wkB = ActiveWorkbook
    With wkB.Sheets("Feuil1")
        .UsedRange.Offset(1, 0).Copy 'on copie toute la feuille SAUF la ligne d'entete
'        DernLigne = .Range("A" & .Rows.Count).End(xlUp).Row
'        DernColonne = .Cells(1, .Cells.Columns.Count).End(xlToLeft).Column
'        .Range(Cells(1, 1), .Cells(DernLigne, DernColonne)).Select
'        Selection.Copy
    End With
'Colle le contenu du fichier ouvert dans l'onglet BASE RELANCE de mon fichier
    wkA.Activate
    Sheets("BASE RELANCE").Range("A2").PasteSpecial Paste:=xlPasteValues
'ferme le classeur ouvert par la macro
    Workbooks(classeur).Close True
Application.DisplayAlerts = True
End Sub

Cliquez pour agrandir...