copier userforme dans un autres classeur

[aime_jeux]

salam
voila mon probleme c que je ne trouve pas la manup pour copier des userf
dans un autre classe

apres avoir copier les feuilles je veux bien si c possible de copier les userf
merci a vous

🙂

 

[jeanpierre]

Re : copier userforme dans un autres classeur

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

 

[aime_jeux]

Re : copier userforme dans un autres classeur

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

merci a vous pttr que j'ai pas bien expliquer mon blm
voila je veux bien creer un classeurB avec des feuilles ainsi que certains userf d'un classeurA
mon blm et comment avoir le code vba "macro" pour le faire
merci a vous

 

[jeanpierre]

Re : copier userforme dans un autres classeur

Re,

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

 

[aime_jeux]

Re : copier userforme dans un autres classeur

Re,

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

merci

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

j'aimerais bien ajouter un code pour copier les userf avec
merci

 

[jeanpierre]

Re : copier userforme dans un autres classeur

Re,

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

Zippé tu dois pouvoir tout mettre.

 

[aime_jeux]

Re : copier userforme dans un autres classeur

Re,

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

Zippé tu dois pouvoir tout mettre.

merci
voila un exemple

 

[mromain]

Re : copier userforme dans un autres classeur

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".

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+

 

[aime_jeux]

Re : copier userforme dans un autres classeur

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".

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+

salam
merci sincerement une aide precieuse