Discussion :

[Nadounette123]

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 :

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
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 .

Bonne journée
Nadia