VBA_première_fois
XLDnaute Junior
Bonsoir forme
j'avais un code intila qui me permettait d'archiver le classeur1 dans SaveCopyAs (nom)tout en supprimant mon code VBA
j'ai rajouté des lignes de code qui m permettent d'enregistrer juste les feuilles 1,2,3 et 4 mai ça ne marche pas
pourriez vous me dire ou mettre les 2 ligne de code en en rouge pour que mon application marche et qu'il m'enregistre ses feuille dans le classeur SaveCopyAs (nom)
merci d'avance
NB: le code en rouge je l ai copié d'internet
j'avais un code intila qui me permettait d'archiver le classeur1 dans SaveCopyAs (nom)tout en supprimant mon code VBA
j'ai rajouté des lignes de code qui m permettent d'enregistrer juste les feuilles 1,2,3 et 4 mai ça ne marche pas
pourriez vous me dire ou mettre les 2 ligne de code en en rouge pour que mon application marche et qu'il m'enregistre ses feuille dans le classeur SaveCopyAs (nom)
Code:
Private Sub CommandButton10_Click()
Dim wkbSource As Workbook, wkbCible As Workbook, fichier As String, nom As String, ws As Worksheet
Set wkbSource = ThisWorkbook
Application.ScreenUpdating = False
fichier = ThisWorkbook.Path
nom = fichier & "\" & R .Value & "_" & Format(Date, "dd-mm-yyyy") & ".xls"
ActiveWorkbook.[COLOR="Lime"]SaveCopyAs (nom)[/COLOR]
Workbooks.Open (nom)
Application.DisplayAlerts = False
ActiveWorkbook.Close Savechanges:=True
ActiveWorkbook.Save
Set wkbCible = ActiveWorkbook 'Au cas ou .. pour garder un accés au nouveau classeur
[COLOR="Red"] wkbSource.Sheets(Array("FEUIL1", "FEUIL2", "FEUIL3", "FEUIL4")).Select
wkbSource.Sheets(Array("FEUIL1", "FEUIL2", "FEUIL3", "FEUIL4")).Copy[/COLOR]
'Suppression des formules ( mon code VBA)
Worksheets.Select
With ActiveSheet
.Cells.Copy
.Cells.PasteSpecial xlPasteValues
.Select
End With
Application.CutCopyMode = False
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
merci d'avance
NB: le code en rouge je l ai copié d'internet