Bonjour à tous,
je reviens avec mes questions ;-)
Je suis en train de crée un UserForm comme ci-dessous.
L’idée est que, je dois exporter les divers onglet avec des extensions différente.
Exemple :
Onglet 1 -> PDF
Onglet 2 -> TXT
Onglet 3 -> TXt
Onglet 4 -> TXT
J'ai récupérer une partie du code que j'ai essayé d'adapter. Le premier fonctionne bien en PDF maintenant je bock sur la suite pour faire mes onglet 2 3 et 4
Merci de l'aide
A++
je reviens avec mes questions ;-)
Je suis en train de crée un UserForm comme ci-dessous.
L’idée est que, je dois exporter les divers onglet avec des extensions différente.
Exemple :
Onglet 1 -> PDF
Onglet 2 -> TXT
Onglet 3 -> TXt
Onglet 4 -> TXT
J'ai récupérer une partie du code que j'ai essayé d'adapter. Le premier fonctionne bien en PDF maintenant je bock sur la suite pour faire mes onglet 2 3 et 4
Merci de l'aide
A++
VB:
Private Sub CheckBox1_Click()
End Sub
Private Sub CheckBox2_Click()
End Sub
Private Sub CommandButton1_Click()
Dim NomsFeuilles() As Variant
Dim i As Integer, idx As Integer
Dim prefixName As String
prefixName = Range("A1").Value
ChangerRepertoire
For i = 1 To 1
If Me.Controls("CheckBox" & i) Then
idx = idx + 1
ReDim Preserve NomsFeuilles(1 To idx)
NomsFeuilles(idx) = "Onglet " & i
End If
Next
If idx > 0 Then
Application.DisplayAlerts = False 'on évite les alertes
'Sheets("Onglet 1").Visible = True
With Sheets("Onglet 1") 'on copie la feuille
.Copy
End With
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=repertoire & prefixName & "_Wizard.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
ActiveWindow.Close 'on ferme
'Sheets("Onglet 1").Visible = False
End If
End Sub
Sub ChangerRepertoire()
Set NewRep = Application.FileDialog(msoFileDialogFolderPicker)
NewRep.Show
If NewRep.SelectedItems.Count > 0 Then
repertoire = NewRep.SelectedItems(1) & "\"
ChDir repertoire
Else
MsgBox "Aucun Répertoire Sélectionné"
End If
End Sub
Private Sub UserForm_Click()
End Sub