Copier onglet dans un fichier aléatoire

[JANO]

Bonsoir le forum,

La macro copie un onglet dans le classeur test, mais j'aurais besoin qui copie l'onglet dans le classeur ouvert quelque soit son nom.

Est-ce que c'est possible ?

merci de votre aide

Sub copie_base()

Windows("Macros.xls").Visible = True
Sheets("base").Select
Sheets("base").Copy Before:=Workbooks("Test.xls").Sheets(1)
Windows("Macros.xls").Visible = Fasle

End Sub

 

[Staple1600]

Re : Copier onglet dans un fichier aléatoire

Bonsoir

Est-on sur qu'il n'y aura que deux classeurs ouverts?

 

[Fred0o]

Re : Copier onglet dans un fichier aléatoire

Bonsoir JANO,

Tu peux essayer ceci (non testé) :

Sub copie_base()
    Windows("Macros.xls").Visible = True
    Sheets("base").Select
    Sheets("base").Copy Before:=Sheets(1)
    Windows("Macros.xls").Visible = Fasle
End Sub

A+

 

[JANO]

Re : Copier onglet dans un fichier aléatoire

Bonsoir Staple1600
Oui il n'y aura pas d'autre calsseur d'ouvert.

Bonsoir Fred0o
La macro copie l'onglet dans le classeur marcro.
merci

 

[Fred0o]

Re : Copier onglet dans un fichier aléatoire

Re-bonsoir,

Correction apportée grâce à la réponse que tu as apporté à la question de Staple. C'est ça le travail d'équipe.

Sub copie_base()
    Dim nf
    Windows("Macros.xls").Visible = True
    ActiveWindow.ActivateNext
    nf = ActiveWorkbook.Name
    ActiveWindow.ActivateNext
    ActiveWorkbook.Sheets("base").Copy Before:=Workbooks(nf).Sheets(1)
    Windows("Macros.xls").Visible = False
End Sub

A+

Edit : BING. Salut Staple

 

[Staple1600]

Re : Copier onglet dans un fichier aléatoire

Re


Cela fonctionne chez moi (avec 2 classeurs ouverts)

Sub a()
Dim wbk As Workbook
For Each wbk In Workbooks
If wbk.Name <> ThisWorkbook.Name Then
ThisWorkbook.Sheets(1).Copy after:=wbk.Sheets(wbk.Sheets.Count)
End If
Next wbk
End Sub

EDITION: Bing, houps désolé, salut FreDOo

 

[JANO]

Re : Copier onglet dans un fichier aléatoire

Oui rien de tel que le partage,cela marche, merci à vous, c'est gentil.

Bonne fin soirée.

 

[Staple1600]

Re : Copier onglet dans un fichier aléatoire

Re


Une variante plus secure et sans boucle

Sub b()
Dim check As Boolean
check = Workbooks.Count = 2
If check Then
Workbooks(1).Sheets(1).Copy after:=Workbooks(2).Sheets(Workbooks(2).Sheets.Count)
End If
Workbooks(1).Sheets(1).Activate
End Sub

Et pour le fun, avec des endives (mais sans jambon ni gruyère 😉 )

Sub c()
Dim check As Boolean: check = Workbooks.Count = 2
With Workbooks(check * -1)
    With .Sheets(1)
        .Copy after:=Workbooks(2).Sheets(Workbooks(2).Sheets.Count)
        .Activate
    End With
End With
End Sub

 

[JANO]

Re : Copier onglet dans un fichier aléatoire

Trop bien merci à tous les deux 😱