B
benoa
Guest
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()
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.
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
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.