Appliquer une macro

Version imprimable

Appliquer une macro

Bonjour, je souhaiterais savoir le code pour pouvoir appliquer une macro sur un fichier alors qu'elle est stocké dans un autre fichier?
ET aussi comment appliquer une macro à toutes les feuilles d'un fichier par exemple celle ci

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
Sub EtiquetteDeDonnée()
'
' EtiquetteDeDonnée Macro
' Macro enregistrée le 16/07/2008 par romain.morgan
'
 
'
    Rows("1:1").Select
    Selection.ClearContents
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "Time"
    Range("B1").Select
    ActiveCell.FormulaR1C1 = "Date"
    Range("C1").Select
    ActiveCell.FormulaR1C1 = ""
    Range("D1").Select
    ActiveCell.FormulaR1C1 = "Type of breakedown"
    Range("E1").Select
    ActiveCell.FormulaR1C1 = "Number of breakedown"
    Range("G1").Select
    ActiveCell.FormulaR1C1 = "Days"
    Range("I1").Select
    ActiveCell.FormulaR1C1 = "Hours"
    Range("K1").Select
    ActiveCell.FormulaR1C1 = "Minutes"
    Range("M1").Select
    ActiveCell.FormulaR1C1 = "Seconds"
    Range("O1").Select
    ActiveCell.FormulaR1C1 = "Total"
    Range("O3").Select
End Sub

16/07/2008, 09h25
Caro-Line
Première question :
la :faq: Peut-on appeler une macro d'un autre classeur ?

Deuxième question :
il suffit de boucler sur les feuilles du classeur.
Exemple :
Code:

1 2 3 4 5 6 Dim Ws As Worksheet For Each Ws In ActiveWorkbook.Worksheets 'Faire ce que tu veux faire Next Ws
16/07/2008, 10h29
bech59

désolé je ne comprend pas le topic pour apeler une macro d'un autre classeur
un exemple peut être avec la macro juste au dessus????
merci
16/07/2008, 13h09
Caro-Line

L'exemple donné est avec une fonction mais cela doit fonctionner pareil avec une macro :

Code:

Application.Run("TonFichier.xls!EtiquetteDeDonnée"

Salu bech59 et le forum
Comme d'autre répondent , juste un dépoussiérage de la macro

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub EtiquetteDeDonnée()
    Rows(1).ClearContents
    Range("A1").FormulaR1C1 = "Time"
    Range("B1").FormulaR1C1 = "Date"
    Range("C1").FormulaR1C1 = ""
    Range("D1").FormulaR1C1 = "Type of breakedown"
    Range("E1").FormulaR1C1 = "Number of breakedown"
    Range("G1").FormulaR1C1 = "Days"
    Range("I1").FormulaR1C1 = "Hours"
    Range("K1").FormulaR1C1 = "Minutes"
    Range("M1").FormulaR1C1 = "Seconds"
    Range("O1").FormulaR1C1 = "Total"
    Range("O3").Select
End Sub

A+

je voudrais appliquer ceci

Code:

Application.Run("breakedown data.xls!Supp_lignes")

dans ceci

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
Sub Supp_lignes()
Set mf1 = Sheets("Feuil1")
pl = 1
dl = mf1.Range("D65536").End(xlUp).Row
txt = "STARTING"
 
For i = 1 To dl
    If i > dl Then
    End
    End If
 
    With mf1
    If Left(Cells(i, 4), 8) = txt Then
    .Rows(i).Delete Shift:=xlUp
    dl = dl - 1
    i = i + 1
    End If
 
    If Left(Cells(i, 4), 8) <> txt Then
    .Rows(i).Delete Shift:=xlUp
    dl = dl - 1
    i = i - 1
    Else
    i = i - 1
    End If
    End With
Next i
 
End Sub

comment et surtout où dois je placer cette formule dans ma macor j'ai toutes essayé mais je n'arrive pas à le faire fonctionner!!!:oops:

16/07/2008, 14h14
Gorfael

Salut bech59 et le forum
Je ne comprends pas ce que tu veux faire, et ta macro :aie:
Si tu veux de l'aide, explique ton but au lieu d'expliquer comment tu comptes y parvenir.

Je ne comprends pas ton code, tu sautes 2 lignes si tu en supprimes une ?
Tu comptes appeler cette macro depuis un autre classeur ? Et tu bloques le nom de la feuille ?

Avec juste les éléments que je peux lire sur ce topic, la démarche est incohérente. Alors explique ce que tu veux que la macro fasse
A+
16/07/2008, 14h22
Invité

Bonjour à tous,

Bech59 :

Je veux bien passer du temps à vous proposer des solutions et bien évidemment que d'autres vous en proposent et sans doute de meilleures,
c'est bien le but de ce forum.

Que vous ayez envie de trouver des solutions vous même, c'est encore mieux, mais que vous me répondiez sur un sujet avec de nouvelles précisions et qu'en même temps vous postiez un autre sujet pour le même problème, je trouve cela un peu "cavalier" pour ne pas dire autre chose.

Donc, j'abandonne.

Pour information le précédent sujet est ici :

http://www.developpez.net/forums/sho...d.php?t=586659
16/07/2008, 14h27
bech59

svp, ne prennez pas mal ma démarche ce n'est pas le but c'est juste que j'essaye de glanner la maximum d'information à propos du problème auxquel je suis confronté.
je vous prie d'accepter mes plus plates excuses
16/07/2008, 14h29
bech59

effectivement le problème de départ et celui ci dessous!

http://www.developpez.net/forums/sho...d.php?t=586659