Bonjour à tous,

Voila j'ai l'intention d'ouvrir et de copier dans mon classeur excel et sur deux feuille différente deux fichiers en correspondances dans le même dossier.

J'arrive à ouvrir et à copier dans la feuille 1 le premier fichier avec le code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
        MsgBox "Selection du fichier" 'boite de dialogue ouvrant un fichier
        strCsv = Application.GetOpenFilename("All Files ,*.*", , "Sélectionner le fichier à ouvrir")
 
 
        Workbooks.OpenText strCsv, xlWindows, 1, xlDelimited, , , True, , , , , , , , "." '**Ouvrir fichier
 
        ActiveSheet.Cells.Copy shG.Cells(1, 1) '******************************* Copier contenu dans "feuil1"
        ActiveWorkbook.Close False '******************************************* Fermeture du fichier
Le premier fichier que j'ouvre s'appel "station1 du 29-5_1"
Le deuxième fichier que je voudrais ouvrir s'appel "station2 du 29-5_1"
J'ai réussi a mettre dans la variable strCsv le nom du 1er fichier mais je n'arrive pas à l'utilser pour trouver le 2ème.

Voila en espérant de mettre bien expliqué, je reste à votre disposition pour d'autre info si besoin.

Cordialement