Bonjour à tous !!
j'ai un petit soucis sur un save as depuis 1 semaine et impossible de trouver une réponse...
J'ai fait des recherches mais je crois que mes connaissances en VBA son limité
voila le soucis :
J'ai une expression appeler ced qui me sort une liste de feuilles suivant une listbox. Je souahiterai en fait avoir des noms de feuilles (par exemple MODELE, LISTE...) qui soit déjà inscrit ds VBA.
Lorsque je clique sur ok, cela me copie dans un nouveau classeur avec les feuilles déjà inscrit dans VBA + les feuilles choisis dans la listbox.
Voila la formule save as + la pièce jointe du prog.
Si qqun à une petite idée, il serait tip top cool !
Dim wb As Workbook
Dim i As Integer, tmp As Byte
Dim ced() As Variant
Set wb = ActiveWorkbook
With ListBox2
For i = 0 To .ListCount - 1
If .Selected(i) = False Then
ReDim Preserve myarray(tmp)
ced(tmp) = ListBox2.List(i)
tmp = tmp + 1
End If
Next
End With
wb.Worksheets(ced).Copy
Application.Dialogs(xlDialogSaveAs).Show
Pour info j'avais essayé cela mais cela ne fonctionner pas :
ced(tmp) = ListBox2.List(i) + Sheets. ("MODELE")
mais cela ne fonctionner pas.
j'ai un petit soucis sur un save as depuis 1 semaine et impossible de trouver une réponse...
J'ai fait des recherches mais je crois que mes connaissances en VBA son limité
voila le soucis :
J'ai une expression appeler ced qui me sort une liste de feuilles suivant une listbox. Je souahiterai en fait avoir des noms de feuilles (par exemple MODELE, LISTE...) qui soit déjà inscrit ds VBA.
Lorsque je clique sur ok, cela me copie dans un nouveau classeur avec les feuilles déjà inscrit dans VBA + les feuilles choisis dans la listbox.
Voila la formule save as + la pièce jointe du prog.
Si qqun à une petite idée, il serait tip top cool !
Dim wb As Workbook
Dim i As Integer, tmp As Byte
Dim ced() As Variant
Set wb = ActiveWorkbook
With ListBox2
For i = 0 To .ListCount - 1
If .Selected(i) = False Then
ReDim Preserve myarray(tmp)
ced(tmp) = ListBox2.List(i)
tmp = tmp + 1
End If
Next
End With
wb.Worksheets(ced).Copy
Application.Dialogs(xlDialogSaveAs).Show
Pour info j'avais essayé cela mais cela ne fonctionner pas :
ced(tmp) = ListBox2.List(i) + Sheets. ("MODELE")
mais cela ne fonctionner pas.