Enregistrer fichier Excel dans un autre fichier Excel

Bonjour à tous,

Je cherche à savoir comment faire pour que quand j'enregistre mon fichier excel "Essai_MC", celui-ci s'enregistre dans un autre document excel appelé "Archive".

J'ai essayé cela mais, ça ne fonctionne pas (j'ai un message d'erreur à la 1ere ligne :"L'indice n'appartient pas à la sélection"):

Workbooks("Essai_MC").Select
 Sheets("Saisie").Select
 Sheets("Saisie").Paste
 ActiveWorkbook.SaveAs Filename:= _
 "X:\30_QUALITE\307_Gestion_de_service\Archive.xls", FileFormat:= _
  xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
 , CreateBackup:=False

Quelqu'un pourrait il m'aider??

Merci, par avance, pour votre aide

Alex

Workbooks("Essai_MC.xlsm").Select

Bonjour Engue Engue,

Ta solution ne fonctionne toujours pas...

Je mets toutes les lignes de programme, peut-être ai-je mal positionné ma ligne de code.

Private Sub Valider_Click()

    Dim MaSelection As Range
    Dim wb_destination As Workbook
    Dim ws_destination As Worksheet

    Set wb_destination = Workbooks("MC_essai.xlsm")
    Set ws_destination = wb_destination.Worksheets("Saisie")

    Dim Wb_source As Workbook
    Dim Ws_source As Worksheet
    Dim ZoneColle As Range

  ' Contrôle de la saisie

' Récupération des données dans classeur fermé que j'ouvre !!

    Workbooks("MC_essai.xlsm").Worksheets("Saisie").Cells.ClearContents

' Premier atelier

    Set Wb_source = Workbooks.Open(Filename:="\\Gpao\commun\30_QUALITE\\307_Gestion_de_service\Main_courante_atelier\MC_Plastique.xlsm")
    Set Ws_source = Wb_source.Worksheets("Synthese")
    Ws_source.ListObjects("Tableau1").Range.AutoFilter Field:=2, Criteria1:= _
                                                       N°Semaine.Text
    Set MaSelection = Ws_source.Range(Range("A5"), Cells(Range("B65536").End(xlUp).Row, 19))
    ' MaSelection.Select
    MaSelection.SpecialCells(xlCellTypeVisible).Copy _
            ws_destination.Range("A5")
    Wb_source.Close False

' zonecolle fait référence à Workbooks("MC_essai.xlsm").Worksheets("Saisie")

    Set ZoneColle = ws_destination.Range("A65536").End(xlUp).Offset(1, 0)
    Set Wb_source = Workbooks.Open(Filename:="\\Gpao\commun\30_QUALITE\\307_Gestion_de_service\Main_courante_atelier\MC_Expédition.xlsm")
    Set Ws_source = Wb_source.Worksheets("Synthese")
    Ws_source.ListObjects("Tableau1").Range.AutoFilter Field:=2, Criteria1:= _
                                                       N°Semaine.Text
    Set MaSelection = Ws_source.Range(Range("A5"), Cells(Range("B65536").End(xlUp).Row, 19))
    ' MaSelection.Select
    MaSelection.SpecialCells(xlCellTypeVisible).Copy _
            ZoneColle
    Wb_source.Close False

 ' Enregistrement de mon fichier dans un autre fichier xls nommé "Archive"

Workbooks("Essai_MC.xlsm").Select
 Sheets("Saisie").Select
 Sheets("Saisie").Paste
 ActiveWorkbook.SaveAs Filename:= _
 "X:\30_QUALITE\307_Gestion_de_service\Archive.xls", FileFormat:= _
  xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
 , CreateBackup:=False

UserForm1.Hide

End Sub

Merci pour ton aide

Tu dois préciser les parents de tes sheets... workbooks(nom).sheets(nom) sinon il va les chercher dans le classeur actif...

Peux tu me faire un exemple stp car, je ne comprends trop ce que tu veux dire...

Sheets("Saisie").Select
 Sheets("Saisie").Paste

Ici il n'y a pas les parents...

Workbooks("blabla.xls").Sheets("Saisie").Select

Ici oui

Je viens de tester et un second message s'est affiché:

"Propriété ou méthode non géré par cet objet".

Qu'est-ce que ça veut dire?

Voici le code:

Workbooks("MC_essai.xlsm").Select
Workbooks("MC_essai.xlsm").Sheets("Saisie").Select
Workbooks("MC_essai.xlsm").Sheets("Saisie").Copy
ActiveWorkbook.SaveAs Filename:= _
 "X:\30_QUALITE\307_Gestion_de_service\Archive.xls", FileFormat:= _
 xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
 , CreateBackup:=False

Merci pour ton aide

Pourquoi Copy tout d'un coup ?

Ben j'essai plusieurs choses mais que ce soit "Copy" ou "Paste" j'ai le même message d'erreur.

Sais tu pourquoi?

Si tu ne me dis pas où ça plante et sans avoir les fichiers plein de possibilités, fichier en lecture seule, classeur protégé, non droit d'écrire dans le lecteur X .... etc...

Ca plante dès la 1ere ligne!

En pièce jointe, mes documents.