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
 

Pièces jointes

  • B.xlsx
    9.1 KB · Affichages: 17
  • SUIVI RDV.xlsm
    36.3 KB · Affichages: 23

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

Statistiques des forums

Discussions
311 725
Messages
2 081 943
Membres
101 849
dernier inscrit
florentMIG