Copie et Sauvegarde de fichier

[benoa]

Bonjour,

J'ai un fichier tampon dont je souhaiterais faire une copie, ce fichier tampon est contenu dans un classeur, et la sauvegarde est contenu dans un autre classeur.

Je choisi de copier l'intégralité du fichier tampon, pour cela je stocke en variable la dernière ligne et la dernière colonne non vide. Je sélectionne de la cellule(1,1) jusqu'à la cellule(dernLign, derncolonne), je sélectionne la bonne feuille de sauvegarde, puis je colle le tout en A1.

Voici le code VBA :

Public Sub SauvegardeMensuelle()

Dim CeMois As String
CeMois = ActiveCell.Value

Dim DernLigne As Long
DernLigne = Range("A" & Rows.Count).End(xlUp).Row

Dim DernCol As Long
DernCol = Cells(1, Cells.Columns.Count).End(xlToLeft).Column

Dim Selection As Range
Set Selection = Sheets("MOI").Range(Cells(1, 1), Cells(DernLigne, DernCol)).Select


Set MonFichier = GetObject("c:\test.xls")
Set FeuilMoi = MonFichier.Sheets(CeMois)

FeuilMoi.Activate
ActiveSheet.Paste​

End Sub

Après Débogage, il y a une erreur 424, "objet manquent" à la ligne surligner. Avez-vous des idées quant à la résolution du problème?

De plus, est ce que les quatre dernières lignes vous semblent justes?

Merci à tous pour vos suggestions.

 

[benoa]

Re : Copie et Sauvegarde de fichier

J'ai réussi !! Merci, ton aide m'a été précieuse

 

[Pierrot93]

Re : Copie et Sauvegarde de fichier

Re,

on ne peut insérer une feuille dans une autre... il faut copier les cellules d'une feuille sur une autre... voir post de 15h18