[VBA EXCEL] Macro pour un autre fichier excel

Version imprimable

28/09/2015, 11h12
sidewolf

[VBA EXCEL] Macro pour un autre fichier excel

Bonjour à tous,

j'explique mon idée : je dois traiter beaucoup de fichier xls ou xlsm manuellement pour appliquer certains filtre, supprimer certaines lignes etc...

j'aimerais un fichier excel qui contient toutes les macros des autres fichiers excels dont des du traitement à effectuer.

j'ajoute un bouton par fichier, et hop mon process s'effectue en automatique.

le hic c'est que je connais que les bases des macro excel (je ne suis pas un expert dans le domaine)

j'imagine que je dois tout abord ouvrir l'excel à traiter, puis lancer la macro, mais j'imagine que je dois écrire ma macro en tenant compte du nom du classeur et de la feuille excel.

Pourriez-vous m'orienter sur la démarche svp.

Ah j'oubliais, je ne peux pas mettre les macro directement dans les fichiers concernés car il s'agit de flux sortant Talend et chaque semaine, le job est lancé générant un autre fichier excel (avec en dynamique la date de l'exécution du job)

merci d'avance

Bonjour,

Vous pouvez utiliser le modèle objet pour cela: Workbook -> Worksheet -> Range etc ....
A vous ensuite de spécifier sur quel workbook s'applique votre procédure. Vous pouvez / devez le passer en argument, par exemple:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Function GetLastDate(Wbk As Workbook, RefDateAddr As String, PromptUser As Boolean) As Date
'
 
Funcname = "GetLastDate"
 
    Dim RefDate As Date, WsRefDate As Date, RngVal As Variant
    Dim Ws As Worksheet
 
    On Error GoTo Err_GetLastDate
 
    If IsMissing(Wbk) Then Set Wbk = ActiveWorkbook
 
   For Each Ws in Wbk.Worksheets
 
         RngVal = Ws.Range(RefDateAddr)
         Debug.Print Ws.Name, Range(RefDateAddr)
 
        If IsDate(RngVal) Then (....)

28/09/2015, 14h30
sidewolf

dsl j'ai du mal avec ton code, (pas de commentaires loool ahhh ces développeurs qui ne commente pas leur code hihi)
Blague à part, j'aimerais vraiment qu'on me dise comment définir une macro pour un autre classeur excel.

Soit je créer un unitform indépendant avec des boutons qui exécuteront les macros destinés à d'autres classeurs excel ou soit je créé un classeur excel, et dans une feuille de calcul j'insert des bouton qui exécuteront les marcros destinés à d'autres classeurs excel.

J'aimerais bien que me donne la procédure à suivre pour y parvenir.

Merci d'avance

Bonjour..

Voici un exemple :

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 Main()
 
 Dim wb As Workbook
 
 'Pour appliquer la macro au classeur actuel
 Set wb = ThisWorkbook
 
 Call TaMacro(wb)
 
 'Pour appliquer la macro a un classeur fermé
 AutreClasseur = "C:\Users\client\Downloads\Casino.xls"
 
'Ouvrir le classeur
 Set wb = Workbooks.Open(Filename:=AutreClasseur)
 
'Appeler la macro
 Call TaMacro(wb)
 
End Sub
 
Sub TaMacro(wb)
 
 wb.Worksheets("Feuil1").Cells(2, 2) = wb.Name
 
End Sub