N
natacha
Guest
bonjour
p ton changer le nom du classeur env avec un nom dans Userform d'une liste déroul d'une feuil 1
Merci
voir fichier attacher
Private Sub CommandButton1_Click()
Dim Origine As Workbook
Dim PremiereFeuille As Boolean
On Error GoTo er
PremiereFeuille = True
Set Origine = ActiveWorkbook
For i = 1 To ActiveWorkbook.Sheets.Count
If ListBox1.Selected(i - 1) = True Then
If PremiereFeuille = True Then
Origine.Sheets(ListBox1.List(i - 1)).Copy
Else
Origine.Sheets(ListBox1.List(i - 1)).Copy After:=Workbooks(Application.Workbooks.Count).Sheets(Workbooks(Application.Workbooks.Count).Sheets.Count)
End If
PremiereFeuille = False
End If
Next i
ActiveWorkbook.SendMail Recipients:=TextBox1.Value, Subject:='Voici le sujet de ce mail...', ReturnReceipt:=Faste
Application.DisplayAlerts = False
ActiveWorkbook.Close ' supprime le classeur créé après l'envoi
Application.DisplayAlerts = True
ActiveWorkbook.Worksheets('ACCUEIL').Activate
Exit Sub
er:
'MsgBox err.Description
End Sub [file name=email_20060219181523.zip size=12692]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/email_20060219181523.zip[/file]
p ton changer le nom du classeur env avec un nom dans Userform d'une liste déroul d'une feuil 1
Merci
voir fichier attacher
Private Sub CommandButton1_Click()
Dim Origine As Workbook
Dim PremiereFeuille As Boolean
On Error GoTo er
PremiereFeuille = True
Set Origine = ActiveWorkbook
For i = 1 To ActiveWorkbook.Sheets.Count
If ListBox1.Selected(i - 1) = True Then
If PremiereFeuille = True Then
Origine.Sheets(ListBox1.List(i - 1)).Copy
Else
Origine.Sheets(ListBox1.List(i - 1)).Copy After:=Workbooks(Application.Workbooks.Count).Sheets(Workbooks(Application.Workbooks.Count).Sheets.Count)
End If
PremiereFeuille = False
End If
Next i
ActiveWorkbook.SendMail Recipients:=TextBox1.Value, Subject:='Voici le sujet de ce mail...', ReturnReceipt:=Faste
Application.DisplayAlerts = False
ActiveWorkbook.Close ' supprime le classeur créé après l'envoi
Application.DisplayAlerts = True
ActiveWorkbook.Worksheets('ACCUEIL').Activate
Exit Sub
er:
'MsgBox err.Description
End Sub [file name=email_20060219181523.zip size=12692]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/email_20060219181523.zip[/file]