XL 2010 Récupération valeurs derniere colonne renseignée

[materhorn]

Bonjour,

Je dois dans un fichier récupérer les valeurs figurant dans la derniere colonne renseignée d'un autre fichier,en l'occurence celles figurant dans l'onglet Rapport à ce jour en S34 ( en S35 figure des formules que je reporte chaque semaine dans la semaine suivante )
Les chiffres sont à réinsérer dans le fichier B

Merci pour votre aide

 

[vgendron]

Hello
un test avec ce code

Sub import()
Set wb = Workbooks("SUIVI RDV.xlsm")
Set WDest= Workbooks("B.xlsx")

With wb.Sheets("Rapport")
    '.Activate
    fin = .Range("BE7").End(xlToLeft).Column - 1
    .Cells(7, fin).Resize(7, 1).Copy Destination:=WDest.Sheets("Feuil1").Range("B4")
End With

End Sub