Boucle copie onglets

bonjour ,

j'ai une macro qui me permet d'importer des données d'un classeur fermé.

j'ai 2 classeurs avec des noms d'onglet identiques.

peut on faire une boucle pour faire ce copier coller entre chaque feuille du même nom ?

par exemple

on copie ("A1:B40") Feuille 1 du classeur fermé et on colle en ("A1:B40") Feuille 1 du classeur ouvert.

on copie ("A1:B40") Feuille 2 du classeur fermé et on colle en ("A1:B40") Feuille 2 du classeur ouvert.

et ainsi de suite...

merci d'avance

cordialement

   Sub IMPORTATION()
Dim Cel As Object

        Dim Fichier As String

      Application.DisplayAlerts = False

        Worksheets("Feuil1").Activate

      Fichier = "d:\Users\toto\Desktop\essai class1.xlsm"

      If Dir(Fichier) = "" Then
        MsgBox "Fichier " & Fichier & " introuvable"
        Exit Sub
      End If

      With Workbooks.Open(Fichier)

        .Sheets(1).Range("A1:B40").Copy ' on reprend
        ThisWorkbook.Sheets("Feuil1").Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
        .Close savechanges:=False
      End With
  End Sub

Salut,

sans VBA, les connexions pourrait t'aider je pense : https://support.office.com/fr-fr/article/Connecter-des-donn%C3%A9es-d-un-autre-classeur-%C3%A0-votre-classeur-3a557ddb-70f3-400b-b48c-0c86ce62b4f5?CorrelationId=ffe2e605-243c-4040-b697-ed190711f823

merci André

il faut que je passe par VBA cette macro fera partie d'un ensemble de macros qui compose ce classeur.

merci quand même

si quelqu'un a une idée ?

pas d'idées ?

Bonjour,

Tu fais une boucle sur les feuilles concernées de ton classeur, en récupérant le nom dans une variable, pour répéter la commande sur chaque feuille.

Cordialement