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

materhorn

XLDnaute Occasionnel
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
 

Fichiers joints

vgendron

XLDnaute Barbatruc
Hello
un test avec ce code
VB:
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
 

Discussions similaires


Haut Bas