Titre du sujet : Re: archivé dans un autre classeur
par JCGL le 04/12/2008 17:31:57
Bonjour à tous,
Décompresse l'archive dans le même répertoire
Ouvre le classeur 'Classeur Source.xls'
Clique sur l'image
Tes données en 'A1:G40' de la feuille 'F1' du classeur Classeur Source.xls' sont copiées dans la feuille 'F1' du classeur 'Classeur Cible.xls'
Si tu cliques de nouveau sur l'image, les données seront recopiées à la suite sur la feuille 'F1' du classeur 'Classeur Cible.xls'
Utilisation de :
Option Explicit
Sub Archivage()
Sheets("F1").Range("A1:G40").Copy 'Determine la plage a copier
Workbooks.Open Filename:=ThisWorkbook.Path & "\Classeur Cible.xls" 'Ouvre le classeur Cible
ActiveCell.Select ' Se positionne sur une cellule qui sera determinee plus loin
ActiveSheet.Paste 'Copie la plage
Application.DisplayAlerts = False 'Suppression des alertes pour ne pas avoir 'Le classeur existe deja'
Range("A" & Range("A65536").End(xlUp).Row + 1).Select 'Se positionne sur la premiere ligne vide en A
ActiveWorkbook.Save 'Sauve le classeur Cible
ActiveWindow.Close 'Ferme le classeur Cible
Application.DisplayAlerts = True 'Reactive les alertes (toujours penser a les reactiver le plus tot possible)
Application.CutCopyMode = False 'Desactive la plage de copie
End Sub
A+
|
Didier FOURGEOT