Copier les donnes dynamique d'un classeur ferme dans un autre classeur
Bonjour.
Je voudrais importer les donnees du classeur "Ruis.xlsx" dans mon classeur active: "Stat.Xlsm". avec le code suivant:
Sub Importer()
Dim Chemin As String, Fichier As String
Chemin = "D:\STATISTIQUES\"
Fichier = "Ruis.xls"
Application.DisplayAlerts = False
ThisWorkbook.Names.Add "BDR", _
RefersTo:="='" & Chemin & "[" & Fichier & "]BaseR'!$A$2:$D$5"
Sheets("Base").Select
derlig = Cells.Find("*", , , , xlByRows, xlPrevious).Row
With Sheets("Feuil2")
.[A2:D5] = "=BDR"
.[A2:D5].Copy
Sheets("Base").Range("A" & derlig + 1).PasteSpecial xlPasteValues
.[A2:D5].Clear
End With
Application.DisplayAlerts = True
End Sub
Le probleme est que je colle les cellules A2:D5 du classeur "Ruis.xlsx" qui grossit de jour en jour. Est-il possible de remplacer A2:D5 par un nom de cellules dynamiques.
Merci.
slt,
essaie de créer une plage dynamique dans ton fichier Ruis.xls et remplace A2:A5 par le nom de la nouvelle plage
pour créer une plage dynamique voir ce lien:
https://www.extendoffice.com/fr/documents/excel/1335-excel-create-dynamic-range.htmlSinon ...... à suivre