2 lignes de code qui faussent l'enregistrement du classeur

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)

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 :D
 

ROGER2327

XLDnaute Barbatruc
Re : 2 lignes de code qui faussent l'enregistrement du classeur

Bonjour VBA_première_fois
Un élément de réponse :
Code:
[B][COLOR="DarkSlateGray"]Sub toto()
  Sheets(Array("FEUIL1", "FEUIL2", "FEUIL3")).Copy
End Sub[/COLOR][/B]
crée un nouveau classeur avec les feuilles désignées.
(La ligne avec Select ne parait pas nécessaire.)


Code:
[B][COLOR="DarkSlateGray"]Sub tata()
  Sheets(Array("FEUIL1", "FEUIL2", "FEUIL3")).Copy Before:=Workbooks("Classeur8").Sheets(1)
End Sub[/COLOR][/B]
ne crée pas de nouveau classeur, mais insère les feuilles désignées avant la première feuille du classeur Classeur8 (pourvu qu'il existe un classeur ouvert portant ce nom).

ROGER2327
#4176


Dimanche 15 Absolu 138 (Ethernité, ST)
1er Vendémiaire An CCXIX
2010-W38-3T21:27:48Z
 

Discussions similaires

Statistiques des forums

Discussions
311 711
Messages
2 081 799
Membres
101 818
dernier inscrit
tiftouf5757