[Resolu] Importer des données d'un autres fichiers excel en le choisissant

[Meosus]

Bonjour à tous,

Je suis a la recherche d'une macro, après mettre arracher tous les cheveux en parcourant des forums, je n'ai pas réussit a trouver mon bonheur.

Je voudrait simplement pouvoir choisir un fichier à partir du bouton sur la Feuille "Import SAP" de mon classeur afin de sélectionner l'extraction mensuel que je veut crée.

1 - Lorsque je clique, je veut pouvoir avoir une fenêtre me permettant d'aller chercher le fichier que je veut (Ex: Export juillet 2015.xlsx).
2 - Vider le tableau "Tab_SAP" si il y a quelque chose des les cellules (fichier: TEST SAP2.xlsm)
3 - Importer les 3ère colonnes sauf entête (A2:C3000) par exemple et les mettre dans les 3 première colonne de mon tableau "Tab_SAP" du fichier principale (TEST SAP2.xlsm)

4 - Après j'y est mis une macro qui supprime les doublons de la colonne A.

Je n'arrive pas a trouver comment faire!!

Si quelqu'un peux me tuyauté... ^^

Je joint mes 2 fichiers exemple: - export juillet 2015.xlsx (Extraction de SAP)
- TEST SAP2.xlsm (fichier de stat commande)

Merci d'avance à qui me répondra.

Meosus

 

[Staple1600]

Re : Importer des données d'un autres fichiers excel en le choisissant

Bonjour à tous

1 - Lorsque je clique, je veut pouvoir avoir une fenêtre me permettant d'aller chercher le fichier que je veut (Ex: Export juillet 2015.xlsx).

Les exemples de ce point précis sont pourtant légion dans les archives du forum.
Un exemple au hasard
https://www.excel-downloads.com/threads/resolu-ouvrir-un-repertoire-en-vba.196193/
(Il faudra juste adapter au niveau de l'extension du fichier, ici dans ce post, c'était txt )
et un autre (un peu moins au hasard )
https://www.excel-downloads.com/thr...our-afficher-son-nom-dans-une-cellule.229960/

 

[Meosus]

Re : Importer des données d'un autres fichiers excel en le choisissant

Bonjour Staple1600,

Merci de ta réponse, je vais regarder sa!! J'avais regarder sur le forum mais il y a tellement de chose différente que je ne savais pas trop lequel chopé!! ^^

 

[don_pets]

Re : Importer des données d'un autres fichiers excel en le choisissant

'llo Staple1600, Meosus,

Voici ma contribution matinale :

pour l'import :

' 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

pour le copier coller :

' Vider le contenu potentiel
Sheets(" Import SAP").Select
Range("A2:E" & [E65536].End(xlUp).Row).Select
Selection.ClearContents

' Copier coller contentu de l'import
Sheets(1).Select
Sheets(1).Range("A1").Select
Selection.CurrentRegion.Select
Selection.Copy

Sheets(" Import SAP").Activate
Sheets(" Import SAP").Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False

' Suppression ligne2
ActiveSheet.Rows("2:2").Select
Selection.Delete Shift:=xlUp

don

 

[Meosus]

Re : Importer des données d'un autres fichiers excel en le choisissant

Super don_pets!!

Sa marche nickel, je l'ai un peu adapter selon des paramètres de ma feuille et rajouter la suppression de la feuille Sheet1 qui se crée en tampon.

merci encore!

Meosus

 

[don_pets]

Re : [Resolu] Importer des données d'un autres fichiers excel en le choisissant

Dé nada

don