Workbooks.Open ("\\nomduserveur.net\Test en situation réel\Macro lettre interco_test_lancer_macro_pour_tous.xls"), UpdateLinks:=0
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionDim j As Integer
For j = 1 To Worksheets.Count
Sheets(j).Activate
ActiveWorkbook.Sheets(j).Name = "RECAP-SUMMARY-" & xlBook.Sheets("data").Range("A1") & "-" & xlSheet.Range("B1")
Next j
Comme je te l'ai déjà dit je n'ai pas de formation de développeur ou d'informaticien. Donc oui j'avance à tâtons
J'ai donc cherché une autre façon d'arriver au même résultat, ce qui explique que l'on soit "ailleurs" du premier "exposé".
j'ai passé une journée complète sur ce problème
lettre.Sheets(lettre.Worksheets.Count).Range("B4") = xlBook.Sheets("Data").Range("A1")
ActiveWorkbook.Sheets(Worksheets.Count).Range("B4") = xlBook.Sheets("Data").Range("A1")