Discussion :

[bech59]

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 :

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

[Caro-Line]

Première question :
la Peut-on appeler une macro d'un autre classeur ?

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim Ws As Worksheet
 
    For Each Ws In ActiveWorkbook.Worksheets
       'Faire ce que tu veux faire       
 
    Next Ws

[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

[Caro-Line]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Gorfael]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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+

[bech59]

je voudrais appliquer ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

dans ceci

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

[Gorfael]

Salut bech59 et le forum
Je ne comprends pas ce que tu veux faire, et ta macro
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+

[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

[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

[bech59]

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


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