Lancement macro pour toutes les fenetres ouvertes

Bonjour,

j'ai passé toute la journée, à changer des données au grès du vent de l'humeur des mes chefs, 44 fichiers avec 4 onglets chacun.

Pourriez vous m'indiquer comment en ouvrant simultanément 44 fichiers la macro ci dessous l'exécute pour toute les feuilles ouvertes?

Chaque fichier à le meme nombre d'onglet, meme nom c est tout pareil sauf que le nom de l'agence change dans une partie du doc.

J'ai du modifier 10 fois les fichiers, une virgule en trop, un point ailleur, un titre a changer etc...

Je vous remercie par avant de l'aide que vous pourriez m'apporter en cette journée catastrophique!

anthooooony

Sub Macro1()

'

' Macro1 Macro

Sheets("Page de garde").Select

'

Range("C42").Select

ActiveCell.FormulaR1C1 = "Tableau de synthèse de l'agence"

Range("C44").Select

ActiveCell.FormulaR1C1 = "Synthèse des factures en cours d'instructions"

Range("C46").Select

ActiveCell.FormulaR1C1 = "Détail des factures en instruction"

Range("D46").Select

ActiveWindow.SmallScroll Down:=-15

Sheets("Synthese Share").Select

ActiveWindow.SmallScroll Down:=-36

Range("A1:K1").Select

ActiveCell.FormulaR1C1 = "TABLEAU DE SYNTHESE DE L'AGENCE"

Range("L1").Select

Sheets("Synthèse instructions").Select

ActiveWindow.SmallScroll Down:=-21

Range("A1:P1").Select

ActiveCell.FormulaR1C1 = _

"SYNTHESE DES FACTURES EN COURS D'INSTRUCTIONS (A DATE D'EXTRACTION)"

Range("Q1").Select

Sheets("Instructions").Select

Range("A1:N1").Select

ActiveCell.FormulaR1C1 = _

"DETAIL DES FACTURES EN INSTRUCTIONS (A DATE D'EXTRACTION)"

Range("A2").Select

End Sub

Bonjour

Sans tests

Testes sur des copies

Sub Macro1()
Dim I As Integer

  For I = 1 To Workbooks.Count
    If Workbooks(I).Name <> ThisWorkbook.Name Then
      With Workbooks(I)
        With .Sheets("Page de garde")
          .Range("C42") = "Tableau de synthèse de l'agence"
          .Range("C44") = "Synthèse des factures en cours d'instructions"
          .Range("C46") = "Détail des factures en instruction"
        End With
        .Sheets("Synthese Share").Range("A1:K1") = _
                "TABLEAU DE SYNTHESE DE L'AGENCE"
        .Sheets("Synthèse instructions").Range("A1:P1") = _
                "SYNTHESE DES FACTURES EN COURS D'INSTRUCTIONS (A DATE D'EXTRACTION)"
        .Sheets("Instructions").Range("A1:N1") = _
                "DETAIL DES FACTURES EN INSTRUCTIONS (A DATE D'EXTRACTION)"
        .Save           ' sauvegarde du fichier modifié
      End With
    End If
  Next I
End Sub

Génial merci beaucoup !!!

J'ai rajouté .close pour qu'ils se ferment tous les Application.DisplayAlerts = True/False pour qu'il ne demande pas autant de fois d'enregistrer que j'ai de fichier

Encore merci !!!!!!!!!!!!! woupiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii

Sub Macro1()
Dim I As Integer
Application.DisplayAlerts = False

  For I = 1 To Workbooks.Count
    If Workbooks(I).Name <> ThisWorkbook.Name Then
      With Workbooks(I)
        With .Sheets("Page de garde")
          .Range("C42") = "Tableau de synthèse de l'agence"
          .Range("C44") = "Synthèse des factures en cours d'instructions"

          .Range("C46") = "Détail des factures en instruction"
               .Range("B48") = ""
                    .Range("C48") = ""
        End With
        .Sheets("Synthese Share").Range("A1:K1") = _
                "TABLEAU DE SYNTHESE DE L'AGENCE"
        .Sheets("Synthèse instructions").Range("A1:P1") = _
                "SYNTHESE DES FACTURES EN COURS D'INSTRUCTIONS (A DATE D'EXTRACTION)"
        .Sheets("Instructions").Range("A1:N1") = _
                "DETAIL DES FACTURES EN INSTRUCTIONS (A DATE D'EXTRACTION)"

        .Save ' sauvegarde du fichier modifié
       .Close
     End With
    End If
  Next I
  Application.DisplayAlerts = True
End Sub

Bonjour

Normalement après le Save un Close ne devrait pas provoquer de message

Mais bon on fait avec

Tu aurais pu aussi essayer (suppression des 2 lignes Application.DisplayAlerts

        .Save ' sauvegarde du fichier modifié
      .Close SaveChanges:=False
     End With
    End If
  Next I
  [barrer]'Application.DisplayAlerts = True[/barrer]
End Sub

Merci

Merci