Copie automatique de certaines feuilles dans un autre fichier

fra7878 Messages postés 3 Statut Membre -  
cs_Le Pivert Messages postés 8437 Statut Contributeur -
Bonjour,

J'ai un tableur qui contient plusieurs feuilles et j'aimerais planifier un tâche mensuelle qui copie deux feuilles de ce même fichier vers un autre fichier situé ailleurs sur le disque.

Le fichier où seront copiées les données comportera déjà les feuilles qui porteront le même nom que sur le fichier d'origine, le principe serait d'écraser les datas lorsque le script tourne.

Pour info, je suis sur Office 2010.

Merci pour votre aide.


A voir également:

2 réponses

Réponse 1 / 2
tyranausor Messages postés 4198 Statut Membre 2 040
 
Bonjour, cela peut être possible avec une macro mais n'étant pas bon en vba, je ne peux te donner une ligne de code.

Dans ton code il est impératif de donner le chemin du fichier où tes données seront copiées
0
Réponse 2 / 2
cs_Le Pivert Messages postés 8437 Statut Contributeur 729
 
Bonjour,

Je ne sais pas si c'est cela que tu désires. Cette macro copie la feuille dans un autre classeur et remplace l'ancienne feuille : 

Sub CopierUneFeuilleDunClasseurDansLautre()
  Dim FichierOùCopier, FichierOùColler
   Application.DisplayAlerts = False
 FichierOùCopier = ActiveWorkbook.Name
  Workbooks.Open ("test.xlsx") 'a adapter, mettre peut-être le chemin complet du classeur qui reçoit la copie
    FichierOùColler = ActiveWorkbook.Name
    Workbooks(FichierOùCopier).Activate
    Sheets("Feuil1").Select 'a adapter
    Sheets("Feuil1").Copy After:=Workbooks(FichierOùColler).Sheets("Feuil1") 'a adapter
   Worksheets("Feuil1").Delete 'a adapter
   Sheets("Feuil1 (2)").Name = "Feuil1" 'a adapter
    MsgBox "Copie réussie"
 Application.DisplayAlerts = True
End Sub





Il faudrait faire  l'opération pour chaque feuille que tu veux copier

 

                
                

    
        

    
            
        0