VBA Choisir un fichier Excel et importer des données dans un autre fichier

Version imprimable

Bonjour à tous,
J'ai créer un code en VBA qui me permet de copier des données d'un fichier Excel (ici Fichier1) pour les coller dans un autre fichier Excel (mon fichier actif avec mon code VBA).

J'aimerais faire deux modification :

1) Ce serai de pouvoir choisir mon fichier Excel. C'est à dire ouvrir une boite qui me permettrait de choisir un fichier Excel et non devoir changer à chaque fois mon chemin dans le code.

2) Et ici je sélectionne 2 colonnes C et D que je copy/colle. Je voudrais aussi sélectionner la colonne M, pour la copy/colle aussi mais je n'y arrive pas comme elles ne sont pas à coté.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Sub Choix_du_Fichier() Dim Source As Workbook Set Source = Workbooks.Open("C:\Fichier1.xlsx") With Workbooks("Fichier1.xlsx").Worksheets("feuille1").Range("C12:D800").Copy End With Range("A1:B800").PasteSpecial Workbooks("Fichier1.xlsx").Close False End Sub
Merci à vous par avance pour votre aide.

Bonjour,

pour répondre à ton 1)

il te faut utiliser les filesDialog.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
   'ouverture d'un fichier par boite FileDialog
'********************************************************************************
    'Declaration d'une variable comme objet FileDialog
    Dim fd As FileDialog
 
    'Creation d'un objet FileDialog comme un File Picker dialog box.
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
 
    'Déclaration d'une variable contenant le "path" de style variant
    Dim vrtSelectedItem As Variant 'obligatoirement de type variant
 
    With fd
 
        'donner le Path initial lors de l'affichage de la boite filedialog.
        'Cela permet d'arriver directement sur le repertoire addéquat
        .InitialFileName = "D:\Travail_tempo\Tuc\Machin\Bidule\"
        ' Cela peut être une adresse réseau comme : = "\\ReseauA\........................."       
 
       'Utilisation de la méthode show pour afficher le File Picker de la boite de dialogue et
        '   retourne la valeur de l'action de utilisateur.
        If .Show = -1 Then
 
            'pour le cas d'une selection multiple, selection de chacundans la collection FileDialogSelectedItems .
            For Each vrtSelectedItem In .SelectedItems
 
                'vrtSelectedItem est un String contenant le "path"  de chaque item selectionné.
                'affichage du "PATH et du fichier selectionné" dans une boite message
                'MsgBox "Vous avez sélectionné : " & vrtSelectedItem
                file_select = vrtSelectedItem
            Next vrtSelectedItem
 
        'Au cas où l'utilisateur appuis sur Cancel...
        Else
            'Dans ce programme je ne fais rien.
        End If
    End With
 
    'Pour le cas rien.
    Set fd = Nothing
 
'**********************************************************************************
    Workbooks.Open file_select

voilà dans "file_select" tu as l'adresse de ton fichier

Tu me dis si cela te convient bien

Bonjour,
Oui merci Igloobel, ton code m'a bien aidé.

J'aurais une autre question.
J'ai réussi à faire un code pour récupérer un fichier Excel et sélectionner mes colonnes à partir de la ligne 15.

Mais je voudrais maintenant que ma sélection de colonne commence lorsque la case C contient soit la lettre "C" soit "A". Et copier donc les colonnes D et M qui correspondent.

Je vous met mon code ci-dessous.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 Sub Choix_du_Fichier() Dim FichierSource As Variant Dim Source As Workbook Dim Cible As Worksheet On Error GoTo Fin Set Cible = Sheets("Fin de Travaux réalisés") FichierSource = Application.GetOpenFilename("Fichiers (*.xlsx),*.xlsx") If FichierSource = False Then GoTo Fin Application.ScreenUpdating = False Set Source = Workbooks.Open(FichierSource) With Source .Sheets("Fin de Travaux réalisés").Range("C15:D800,M15:M800").Copy Destination:=Cible.Range("A1") .Close False End With Application.ScreenUpdating = True MsgBox "Fin de l'import !" GoTo Fin Fin: Application.ScreenUpdating = True Set Cible = Nothing Set Source = Nothing End Sub
Si quelqu'un à une idée ça fait un petit moment que je cherche. Merci à vous.

11/05/2022, 11h45
Igloobel
Citation:

Envoyé par Mia30

2) Et ici je sélectionne 2 colonnes C et D que je copy/colle. Je voudrais aussi sélectionner la colonne M, pour la copy/colle aussi mais je n'y arrive pas comme elles ne sont pas à coté...

Perso j'utilise les outils à ma disposition tant que je peux. Voici donc le code de l'enregistreur de macro légèrement optimisé qui fait ce que tu demandes dans ton 2)
Code:

1 2 3 4 5 6 Sub Macro1() Sheets("Feuil3").Select Range("C:D,M:M").Copy Sheets("Feuil4").Select ActiveSheet.Paste End Sub
Bien évidemment cela ne fait pas exactement ta demande puisque cela ne copie pas dans un autre fichier mais dans un autre onglet mais il suffit de l'adapter.

C'est surtout la ligne 2 qui est importante. Elle te montre comment combiner les plages non contigües. Tout est dans les ":", ";" et ","
11/05/2022, 14h12
Mia30

D'acc j'ai compris comment combiner les plages non contigües merci à toi.

Mais j'ai une autre question.

Je m'explique.
Mon fichier avec la macro est vierge. Avec ma macro j'importe des donner d'un autre fichier Excel pour récupérer 3 colonnes (Colonnes C, D et M).

Dans la colonne C, j'ai des lettres (Ex : A, C, F, K) et je voudrai sélectionner uniquement les lignes qui on un "A" ou un "K" dans le colonne C. Et prendre aussi les information qui sont dans les colonnes D et M.

Est-ce possible ?
12/05/2022, 10h18
Igloobel

Citation:

Envoyé par Mia30

...
Mon fichier avec la macro est vierge. Avec ma macro j'importe des données d'un autre fichier Excel pour récupérer 3 colonnes (Colonnes C, D et M).

Bon si je comprends bien tu es en train de me dire que systématiquement tu as un classeur Vierge et que tu vas y inclure ta macro... Ce n'est pas une bonne idée parce ton fichier sera un fichier XLSM et que si tu transmets ce fichier tu n'as pas à leurs donner la macro.

Donc bien sûr il existe une bien meilleure idée. :twisted:

Je te conseille de faire un classeur de type XLAM ce type de classeur contient des macros personnelles, bien sûr il faut les intégrer aux compléments de ton excel (sur ton poste donc) mais après tu as les macros à dispositions quel que soit ton classeur ouvert du coup ton classeur vierge restera XLSX mais disposera des macros de ton XLAM. De plus ce fichier peut être sur un réseau (sauvegarde automatique). Et rien ne t'empêche rajouter d'autres macros au fur et à mesure.

C'est ce que j'ai moi au travail.

Citation:

Envoyé par Mia30

... Dans la colonne C, j'ai des lettres (Ex : A, C, F, K) et je voudrai sélectionner uniquement les lignes qui on un "A" ou un "K" dans le colonne C. Et prendre aussi les information qui sont dans les colonnes D et M.

Est-ce possible ?

Donc oui c'est possible, mais pour pouvoir être plus précis et voir quelle est la meilleure solution il faut que tu répondes à la mienne :
Cela représente combien de lignes à traiter ?
12/05/2022, 10h33
Raccourcix

Bonjour

Avec Excel 365 je trouve ça dommage d'utiliser VBA pour récupérer des données d'une autre fichier Excel.
C'est très simple avec Power Query dans le menu "Donnée"
Voir par exemple le blog de Pierre : https://www.developpez.net/forums/bl...sseur-externe/
En quelques clics c'est terminé.

Stéphane