Discussion :

[Nadounette123]

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

[Michel_M]

Bonjour

Pour choisir un fichier à ouvrir, tu as la méthode pr^te à cuire dans VBA Excel
Application.GetOpenFilename

regarde dans l'aide

[Nadounette123]

Mais la je n'ai pas le nom du fichier j'aimerai ouvrir une boite de dialogue pour choisir le fichier j'y arrive pas pas en entrant un nom de fichier
Merci de m'aider à faire le code les mecs !!!

[Philippe Tulliez]

Bonjour,
Comme te la très justement proposé Michel_M, tu peux utiliser ma méthode GetOpenFilename

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim FileNAme As String
FileNAme = Application.GetOpenFilename
MsgBox "Vous avez sélectionné " & FileName

Il suffit d'utiliser la méthode Open avec la variable FileName