Bonjour ,
J'ai deux fichier Excel , un fichier ouvert un autre fermé ( qui contient plusieurs sous fichier ) , chaque sous fichier du fichier fermé contient des colonnes verticale que je veux copier en horizontale dans mon fichier ouvert .
J'aimerais ouvrir une boite de dialogue pour sélectionner un sous fichier dans le fichier fermé et pouvoir ensuite le traiter ( supprimer des parties non importante) et enfin copier ma sélection de colonne verticale et la coller dans mon fichier ouvert ( horizontalement )

Voici mon code qui n'est pas fini vu que je ne fais le collage , j'ai juste ouvert un sous fichier sans boite de dialogue et j'ai pu le traiter et copier la partie que je veux coller . Or Moi j'aimerai choisir a chaque fois un nouveau sous fichier parmi la liste puis copier la partie que je veux

voici mon code


Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Sub macro3()
 
' ouverture du sous fichier sélectionné ( or moi je veux ouvrir une boite de dialogue qui m'ouvre n'importe qu'elle sous fichier du dossier tempo) 
 
 
    Workbooks.OpenText Filename:= _
        "C:\Users\FFPF2494\Desktop\macro Nadine\tempo\ijec6286_65099_734946", Origin _
        :=xlMSDOS, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0 _
        , 1), Array(4, 1), Array(13, 1), Array(18, 1), Array(29, 1), Array(37, 1), Array(44, 1), _
        Array(50, 1), Array(59, 1), Array(69, 1)), TrailingMinusNumbers:=True
 
 
' traitement du sous fichier sélectionné parmi tous les sous fichier du dossier tempo , or moi je veux ouvrir une boite de dialogue qui me permet de choisir n'importe quel sous fichier  
 
    Range("A1:J11").Select
    Selection.Delete Shift:=xlUp
 
    Range("A62:J73").Select
    Selection.Delete Shift:=xlUp
    Range("J60").Select
 
'copier verticale de la partie que je souhaite coller horizontalement dans mon fichier ouvert 
    Range("G3:G94").Select
    Selection.Copy
End Sub