Executer une macro dans plusieurs classeurs

[pledger]

Bonjours le forum ! =)

Voila mon petit soucis : j'ai cette macro

Sub Macro5()

    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets(Array("Lisez-moi", "Sélection étapes")).Select
    Sheets("Sélection étapes").Activate
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    Sheets(Array("Lisez-moi", "Sélection étapes", "Synthèse PRPo", "Synthèse CCP", _
        "Plan d'action dang. à maîtriser", "Plan d'action dang. à éliminer", _
        "Planning investissements")).Select
    Sheets("Synthèse PRPo").Activate
    ActiveWindow.SelectedSheets.Delete
    ActiveWindow.SmallScroll Down:=-52
    Range("T6").Select
    ActiveWindow.SmallScroll Down:=-12
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
End Su

Et je souhaiterai l’exécuter dans plusieurs classeurs en même temps vous savez comment je pourrai faire?

 

[Pierrot93]

Re : Executer une macro dans plusieurs classeurs

Bonjour,

tu as déjà posé la question ici me semble t-il ??
https://www.excel-downloads.com/thr...lusieurs-classeurs-dun-meme-repertoir.174020/

bonne journée
@+

 

[pledger]

Re : Executer une macro dans plusieurs classeurs

Bonjours Pierrot93 ,

En effet mais je pensais que mon sujet étais trop loin pour être vu pas les lecteurs du forum.

Je suis dsl

 

[Pierrot93]

Re : Executer une macro dans plusieurs classeurs

Re,

il est toujours préférable de faire remonter un fil (en y répondant soi même) plutôt que d'en rouvrir un autre... toujours très difficile à suivre pour tout le monde....

 

[pledger]

Re : Executer une macro dans plusieurs classeurs

Je comprend tout à fait . Tu m'as déja aidé de nombreuses fois et pour ca je te remerci ainsi que tous les membres du forum

 

[Pierrot93]

Re : Executer une macro dans plusieurs classeurs

Re,

Et je souhaiterai l’exécuter dans plusieurs classeurs en même temps vous savez comment je pourrai faire?

pour ton problème, il faut boucler sur tous les classeurs en question... un exemple ci-dessous qui prend en compte tous les classeurs ouverts dont le nom commence par "NomClasseur"... A adapter à ton projet...

Option Explicit
Sub test()
Dim wb As Workbook
For Each wb In Workbooks
    If wb.Name Like "NomClasseur*" Then
        'tes instructions
    End If
Next wb
End Sub

 

[pledger]

Re : Executer une macro dans plusieurs classeurs

Ca tombe bien tous mes classeurs commencent par "Analyse" je vais tester et adapter merci beaucoup je tiens au courant de l'avancée

 

[pledger]

Re : Executer une macro dans plusieurs classeurs

Je viens te tester la macro voici le code que j'ai utilisé :

Option Explicit
Sub test()
Dim wb As Workbook
For Each wb In Workbooks
    If wb.Name Like "Analyse des dangers*" Then
            ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets(Array("Lisez-moi", "Sélection étapes")).Select
    Sheets("Sélection étapes").Activate
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    Sheets(Array("Lisez-moi", "Sélection étapes", "Synthèse PRPo", "Synthèse CCP", _
        "Plan d'action dang. à maîtriser", "Plan d'action dang. à éliminer", _
        "Planning investissements")).Select
    Sheets("Synthèse PRPo").Activate
    ActiveWindow.SelectedSheets.Delete
    ActiveWindow.SmallScroll Down:=-52
    Range("T6").Select
    ActiveWindow.SmallScroll Down:=-12
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    End If
Next wb
End Sub

Mais cela n'a marché que pour le classeur actif j'ai une erreur : l'indice n'appartiens pas a la selection

 

[Pierrot93]

Re : Executer une macro dans plusieurs classeurs

Re,

normal, dans ton code tu fais ce type de référence...

ActiveWindow.ScrollWorkbookTabs Position:=xlFirst

remplace par :

Windows(wb.Name).ScrollWorkbookTabs Position:=xlFirst

 

[Pierrot93]

Re : Executer une macro dans plusieurs classeurs

Re,

A noter également que ces instructions

ActiveWindow.SmallScroll Down:=-12

ne sont guère utiles...

 

[pledger]

Re : Executer une macro dans plusieurs classeurs

J'ai suivit tes conseils , j'ai changer les lignes et supprimé les instruction inutiles :

Option Explicit
Sub test()
Dim wb As Workbook
For Each wb In Workbooks

    If wb.Name Like "Analyse*" Then
    Windows(wb.Name).ScrollWorkbookTabs Position:=xlFirst
    Sheets(Array("Lisez-moi", "Sélection étapes")).Select
    Windows(wb.Name).ScrollWorkbookTabs Position:=xlFirst
    Sheets(Array("Lisez-moi", "Sélection étapes", "Synthèse PRPo", "Synthèse CCP", _
        "Plan d'action dang. à maîtriser", "Plan d'action dang. à éliminer", _
        "Planning investissements")).Select
    ActiveWindow.SelectedSheets.Delete
    Range("T6").Select
   Windows(wb.Name).ScrollWorkbookTabs Position:=xlFirst
   
    End If
Next wb
End Sub

Mais toujours la même erreur

 

[Pierrot93]

Re : Executer une macro dans plusieurs classeurs

Re,

les "select" sont inutiles, et il faut préciser l'objet "workbook" concerné pour l'objet "sheets" :

wb.Sheets("NomFeuille")..........

 

[pledger]

Re : Executer une macro dans plusieurs classeurs

En fait ce code a été généré par l'enregistreur de macro ....

J'ai tenté de faire ceci :

Sub test()
Dim wb As Workbook
For Each wb In Workbooks

    If wb.Name Like "Analyse*" Then
    
    wb.Sheets("Lisez-moi", "Sélection étapes", "Synthèse PRPo", "Synthèse CCP", "Plan d'action dang. à maîtriser", "Plan d'action dang. à éliminer", "Planning investissements").Select
    ActiveWindow.SelectedSheets.Delete
  
   
    End If
Next wb
End Sub

Mais sans résultat :/

 

[Pierrot93]

Re : Executer une macro dans plusieurs classeurs

Re,

modifie comme suit :

wb.Sheets("Lisez-moi", "Sélection étapes", "Synthèse PRPo", "Synthèse CCP", "Plan d'action dang. à maîtriser", "Plan d'action dang. à éliminer", "Planning investissements").Delete

pas de select...

 

[pledger]

Re : Executer une macro dans plusieurs classeurs

Au niveau de

 wb.Sheets

j'ai cette erreur : Nombre d'arguments ou affectation de propriété incorrecte