J'ai un soucis avec une macro en vba
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:
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 |
