2 pièce(s) jointe(s)
Problème de macro en VBA sous excel
Bonjour ,
Je suis débutante en VBA et dans le cadre de mon travail je souhaite optimiser mon programme pour qu'il devienne adaptable à n'importe quelle situation . J'ai fais un code qui me permet de copier un ensemble de colonne d'un fichier et les coller horizontalement dans un autre ( transposé ).
Or Je souhaite pouvoir ouvrir le fichier ou je copie les colonnes je dois d'abord le convertir en excel afin de l'ouvrir car il est sous un format différent .
Ci-joint les photos qui représente concrètement ce que j'essaye de faire
et voici mon code
J'ai plusieurs fichier ( soif7336_65099_900801 ) représente FCH donc je copie ces rendez vous dispo et je les colle dans FCH de mon autre fichier horizontalement. Je fais la même chose avec le fichier (soif7336_65099_900802) qui représente FLH je copie l'ensemble des colonnes RDV dispo et les colle horizontalement dans FLH de mon autre fichier ainsi de suite.
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
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
| 'FCH Copie des donnés FCH vers rendez vous dispo
Sub FCH()
' FCH Macro
'
Windows("soif7336_65099_900801").Activate
Range("G3:G116").Select
Selection.Copy
Windows("RDV dispo.xls").Activate
Range("DV2700").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
End Sub
Sub FLH()
'FCH Copie des donnés FLH vers rendez vous dispo
' FLH Macro
'
'
Windows("soif7336_65099_900802").Activate
Range("G3:G116").Select
Selection.Copy
Windows("RDV dispo.xls").Activate
Range("DV2701").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
End Sub
Sub fbh()
'FCH Copie des donnés FbH vers rendez vous dispo
' fbh Macro
'
'
ActiveWindow.SmallScroll Down:=-3
Windows("soif7336_65099_900806").Activate
Application.CutCopyMode = False
Selection.Copy
Windows("RDV dispo.xls").Activate
Range("DV2702").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
End Sub
'FMH Copie des donnés FMH vers rendez vous dispo
Sub FMH()
'
' FMH Macro
'
'
Windows("soif7336_65099_900808").Activate
Application.CutCopyMode = False
Selection.Copy
Application.WindowState = xlMinimized
Windows("RDV dispo.xls").Activate
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
ActiveWindow.SmallScroll Down:=12
End Sub
'FPH Copie des donnés FPH vers rendez vous dispo
Sub fph()
'
' fph Macro
'
'
Windows("soif7336_65099_900811").Activate
Application.CutCopyMode = False
Selection.Copy
Application.WindowState = xlMinimized
Windows("RDV dispo.xls").Activate
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
End Sub |
J'aimerai trouver une solution pour ne pas avoir à mettre les noms des fichiers à traiter dans mon code , par exemple ouvrir une boite de dialogue ou autre je veux qu'il soit adaptable et plus optimal.
Merci de votre aide :D:D.
Bonne journée
Nadia :P
