Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Clément Marcotte
Bonjour,
Un userForm, avec 3 texboxes et un bouton de commande et Excel fermé.
Private Sub CommandButton1_Click() Dim appxl As Object, lafeuille As Object Set appxl = CreateObject("Excel.application") appxl.Visible = True appxl.workbooks.Add appxl.ActiveWorkbook.SaveAs "testppt.xls" Set lafeuille = appxl.activesheet lafeuille.Range("a1").Value = TextBox1.Value lafeuille.Range("a2").Value = TextBox2.Value lafeuille.Range("a3").Value = TextBox3.Value appxl.Save appxl.Quit Set appxl = Nothing Unload Me End Sub
"Christian" a écrit dans le message de news:
Bonjour,
je saisie des informations dans un userform sous powerpoint. Est t-il possible de transférer ces informations dans un fichier excel ?
Je ne suis pas parvenu à ouvrir Excel depuis powerpoint.
Merci de votre aide.
Bonjour,
Un userForm, avec 3 texboxes et un bouton de commande et Excel fermé.
Private Sub CommandButton1_Click()
Dim appxl As Object, lafeuille As Object
Set appxl = CreateObject("Excel.application")
appxl.Visible = True
appxl.workbooks.Add
appxl.ActiveWorkbook.SaveAs "testppt.xls"
Set lafeuille = appxl.activesheet
lafeuille.Range("a1").Value = TextBox1.Value
lafeuille.Range("a2").Value = TextBox2.Value
lafeuille.Range("a3").Value = TextBox3.Value
appxl.Save
appxl.Quit
Set appxl = Nothing
Unload Me
End Sub
"Christian" <christian.neu@tele2.fr> a écrit dans le message de
news:eNJ4LG9KFHA.688@TK2MSFTNGP10.phx.gbl...
Bonjour,
je saisie des informations dans un userform sous powerpoint.
Est t-il possible de transférer ces informations dans un fichier
excel ?
Je ne suis pas parvenu à ouvrir Excel depuis powerpoint.
Un userForm, avec 3 texboxes et un bouton de commande et Excel fermé.
Private Sub CommandButton1_Click() Dim appxl As Object, lafeuille As Object Set appxl = CreateObject("Excel.application") appxl.Visible = True appxl.workbooks.Add appxl.ActiveWorkbook.SaveAs "testppt.xls" Set lafeuille = appxl.activesheet lafeuille.Range("a1").Value = TextBox1.Value lafeuille.Range("a2").Value = TextBox2.Value lafeuille.Range("a3").Value = TextBox3.Value appxl.Save appxl.Quit Set appxl = Nothing Unload Me End Sub
"Christian" a écrit dans le message de news:
Bonjour,
je saisie des informations dans un userform sous powerpoint. Est t-il possible de transférer ces informations dans un fichier excel ?
Je ne suis pas parvenu à ouvrir Excel depuis powerpoint.