Re : Copier-Coller des données d'un fichier different à l'aide d'une macro
'llo
Voici mon idée :
' Importer
Dim nom$, WBKSource As Workbook
With Application.FileDialog(msoFileDialogOpen)
.Title = "Yeaaa choose your Fichier"
.Filters.Clear
.Filters.Add "Ton Tableur", "*.xlsX*, *.Xlsm*, *.Xls*"
.AllowMultiSelect = False
If .Show <> 0 Then
nom = .SelectedItems(1)
Set WBKSource = Workbooks.Open(nom)
With WBKSource
.ActiveSheet.Copy Before:=ThisWorkbook.Sheets(1)
.Close False
End With
Else
MsgBox "Boaaa t'veux rien !", , "dô_Ôb": Exit Sub
End If
End With
' Renommer l'onglet '
temp = ThisWorkbook.Sheets(1).Name
' Le placer à la fin '
Sheets(temp).Move after:=Sheets(Sheets.Count)
' Copier Coller le contenu
Sheets(temp).Activate
ActiveSheet.UsedRange.Select
Selection.Copy
Sheets("History & Forecast D-7").Activate
Sheets("History & Forecast D-7").Range("A65536").End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
' Supprimer l'onglet inutile
Application.DisplayAlerts = False
Sheets(temp).Delete
Application.DisplayAlerts = True