copier userforme dans un autres classeur

jeanpierre à dit:

Bonjour aime jeux,

Sous VBE, par Alt F11, tu peux copier ton USF vers un autre classeur en cliquant dessus et en le transportant vers ton autre classeur. Il sera simplement recopié.

Il te faut afficher VBA Exp^lorateur de projet par le menu Affichage pour avoir tes classeurs ouverts.

Bonne soirée.

Jean-Pierre

Cliquez pour agrandir...

jeanpierre à dit:

Re,

"mon blm et comment avoir le code vba "macro" pour le faire", faire quoi ?

Cliquez pour agrandir...

Private Sub copierfeuilles_Click()
Application.ScreenUpdating = False
Application.Sheets("1 er trimst").Visible = True
Application.Sheets("2 er trimst").Visible = True
Application.Sheets("3 er trimst").Visible = True
Application.Sheets("moyen_de_classe").Visible = True

Dim chemin$, fichier$
chemin$ = ThisWorkbook.Path
fichier$ = Range("G12")
Sheets(Array("1 er trimst", "2 er trimst", "3 er trimst", "moyen_de_classe")).Select
'Sheets("1 er trimst").Activate
Sheets(Array("1 er trimst", "2 er trimst", "3 er trimst", "moyen_de_classe")).Copy
ActiveWorkbook.SaveAs chemin$ & "\" & fichier$
Workbooks(fichier$).Close



Application.ScreenUpdating = True
End Sub

Cliquez pour agrandir...

jeanpierre à dit:

Re,

Dépose ton fichier avec tes fameux userf, car là, cela devient brumeux.

Zippé tu dois pouvoir tout mettre.

Cliquez pour agrandir...

mromain à dit:

bonjour aime_jeux, jeanpierre

voici une autre solution :
on fait une copie complète du classeur (avec les macros) et on supprime la feuille "Feuil1".

Code:

Sub copierfeuilles()
Application.ScreenUpdating = False
Dim fichier1 As String, fichier2 As String, fichier$, oldWbk As Workbook, newWbk As Workbook
fichier1 = ThisWorkbook.Path & "\" & ThisWorkbook.Name
fichier2 = ThisWorkbook.Path & "\" & Range("G12") & ".xls"

Application.DisplayAlerts = False
Set newWbk = ThisWorkbook
newWbk.Save
newWbk.SaveAs fichier2
newWbk.Sheets("Feuil1").Delete
Set oldWbk = Application.Workbooks.Open(fichier1)
oldWbk.Activate
oldWbk.Sheets("Feuil1").Select
Application.ScreenUpdating = True
newWbk.Close True
Application.DisplayAlerts = True
End Sub

a+

Cliquez pour agrandir...