macro enregistrer : importer lignes de classeur 1 vers classeur 2 , et enregistrer

[VBA_première_fois]

ceci est mon code : il me permet de creer un classeur ou je vais enregister les modifications effectuées sur le classeur que j'utilise ( afin de ne pas le changer)
mon code est le suivant

Private Sub Button_enregistrer_Click()

    Dim wkbSource As Workbook, wkbCible As Workbook, fichier As String
    Set wkbSource = ThisWorkbook
    Application.ScreenUpdating = False
    fichier = ThisWorkbook.Path
    
   
     Dim wb As Workbook
     Set wb = Workbooks.Add

'

'verification si classeur existe : ,

    Dim Fso As Object, x As Boolean
    Set Fso = CreateObject("Scripting.FileSystemObject")
   nom = ThisWorkbook.Path & "\a garder \"
    x = Fso.FileExists(nom)
    
'si classeur n'existe pas : creer New classeur

   If x = False Then wb.SaveAs nom
    
    ActiveWorkbook.SaveCopyAs (nom)
    
      Application.DisplayAlerts = False
   
    ActiveWorkbook.Close Savechanges:=True
  

    ActiveWorkbook.Save
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
    MsgBox "Vous avez Créé le fichier et Archivé sous" & vbCrLf & nom, , "Traitement effectué"

End Sub

qui peut me dire pourquoi je n'arrive pas à copier les données de mon classeur ctif vers le classeur que j'ai creer

 

[mercant76]

Re : macro enregistrer : importer lignes de classeur 1 vers classeur 2 , et enregistr

bonjour,

à priori, tu ne copies rien.

tu ne sélectionnes pas de plage ni de feuilles, donc tu n'a rien à mettre dans l'autre fichier.

@+