Contenue textbox vers cellules et export pdf

Bonjour le forum

Je viens solliciter votre aide sur une manip que j'aimerai realiser. J'ai essayer mais j'arrive a le faire sur juste une feuille.

Ci joint le fichier

J'aimerai

• copier le contenu de textbox1 vers A1 sur les feuilles 1,2,3 et 4.
• exporter la feuille 2 en pdf
• exporter la feuille 4 en xlsx

Merci d'avance

Bonjour harry226h, le forum,

A tester:

copier le contenu de textbox1 vers A1 sur les feuilles 1,2,3 et 4.

Private Sub CommandButton1_Click()
 Dim ws As Worksheet

 For Each ws In ThisWorkbook.Worksheets
  If ws.Name <> "NEUTRE" Then ws.Range("A1") = TextBox1.Value
 Next ws

End Sub

exporter la feuille 2 en pdf

Private Sub CommandButton2_Click()
 With Sheets("Feuil2")
  .ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & "Feuille2  " _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False
    Application.ScreenUpdating = True
 End With
End Sub

exporter la feuille 4 en xlsx

Private Sub CommandButton3_Click()

Sheets("Feuil4").Copy
'chemin à adapter
ActiveWorkbook.SaveAs Filename:= _
"C:\Users\maison\Desktop\Nouveau dossier\Feuil4.xls", FileFormat:= _
 xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
Workbooks("Feuil4.XLS").Close SaveChanges:=True

End Sub

Cordialement,

Bonjour xorsankukai

Merci ca fonctionne