Automatiser une importation

Je recherche une macro qui me permet d'importer les données d'un autre fichier excel.

Le principe serait le suivant

Je choisi un fichier excel a l'aide de openfiledialog

Dans le fichier source on copie de B10 à la fin et on la recopie dans le

nouveau fichier en A5 et F10 à la fin du fichier source dans C5.

Dans mon fichier source la feuille s’appelle "Données_Bruts" et dans mon fichier de destination la feuille s'appelle "IMPORT"

Merci d'avance pour votre aide

Bonne journée

Bonjour,

Une petite recherche avec l'ami Google et on peut trouver

https://forum.excel-pratique.com/excel/importer-une-feuille-dans-mon-classeur-t59749.html

Bonjour à tous,

Bon comme je m'étais lancé un test :

Sub IMPORT()
Dim NOM$, WB As Workbook
With Application.FileDialog(msoFileDialogOpen)
    If .Show = -1 Then
        .Execute
        Else
        MsgBox "Aucun classeur sélectionné", vbCritical
    End If
End With
Set WB = ActiveWorkbook
Application.ScreenUpdating = False
With WB.ActiveSheet
    .Range("B10:B" & .Cells(.Rows.Count, 2).End(xlUp).Row).Copy
    ThisWorkbook.Worksheets("IMPORT").[A5].PasteSpecial xlPasteValues
    .Range("F10:F" & .Cells(.Rows.Count, 6).End(xlUp).Row).Copy
    ThisWorkbook.Worksheets("IMPORT").[C5].PasteSpecial xlPasteValues
End With
WB.Close
MsgBox "Import terminé", vbInformation
Application.ScreenUpdating = True
End Sub

Même si je rejoins l'avis de BrunoM45.

Cdlt,

Merci

Bonne journée

Re,

Je me permets également de rappeler la charte du forum

Et notamment :

• Ne postez pas la même question sur un autre forum pour éviter de faire perdre bêtement du temps aux membres sur un problème qui peut être déjà résolu sur l'autre forum. L'inverse est également valable, si vous avez déjà posé votre question sur un autre forum, ne créez pas un doublon sur ce forum (à moins d'avoir clôturé le sujet sur l'autre forum).

Ce qui a priori n'est pas le cas, puisque le sujet est également ICI

@BrunoM45 : Tu as vraiment les yeux partout, c'est un poste à temps plein une telle surveillance !

Ergotamine a écrit :

@BrunoM45 : Tu as vraiment les yeux partout, c'est un poste à temps plein une telle surveillance !

On m'appelle iRobot