Copier un groupe de cellules sur un autre classeur

Version imprimable

03/06/2016, 14h40
csouffle

Copier un groupe de cellules sur un autre classeur

Bonjour,
Je découvre les macros et VBA. Je suis en stage et j'essaie de résoudre un problème sur des outils de travail excel que mon patron a créé.
Il a créé trois outils (classeur excel à compléter) à utiliser l'un après l'autre selon l'avancé d'un projet.
Dans chacun on demande au début certaines informations, de la même manière (même présentation, même cellule...). c'est la partie supérieur du premier feuillet de chaque classeur (un rectangle de A1-A8 à T1-T8). On aimerai que une fois rempli le premier, cela complète automatiquement les deux suivants et qu'on puissent les enregistrer sous un autre non pour garder les outils de base intactes.
De plus on veut pouvoir ensuite déplacer les fichier indépendament sans que cela n'entraine d'erreur (type ne retouve plus la soucre, donc il faut bien copier et pas faire de lien).
Voilà ça m'a l'air très compliqué mais, si quelqu'un peut m'aider ce serait super !
03/06/2016, 15h09
halaster08

Bonjour,

Si je comprend bien, tu veux une fois les données remplie faire deux autres copie du fichiers, pour cela il me semble que le souvegarder sous répond exactement à ton besoin.
Pour ce qui est de la syntaxe VBA je te conseille d'utiliser l'enregistreur de macro qui te donnera la base du code.
Pour te former, il y a pleins de tutoriel disponibles dans la section appropriée notamment un sur l'enregistreur de maccro: http://fauconnier.developpez.com/tut...istreur-macro/
03/06/2016, 15h12
csouffle

merci je vais regarder ça !!

Voici deux exemples de ce que donne l'enregistreur de macro quand on fait sauvegarder sous, suivant que tu souhaite conserver ou non les macro:

Code:

1
2
3
4
5
6
7
8
9
10
Sub copie_classeur()
    ActiveWorkbook.SaveAs Filename:="X:\STAGES\STAGE ROMAIN\macro\test2.xlsm", _
        FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub
 
 
Sub copie_sans_macro()
    ActiveWorkbook.SaveAs Filename:="X:\STAGES\STAGE ROMAIN\macro\test.xlsx", _
        FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
End Sub

Une fois tes entêtes remplies sur un classeur tu peux les copier sur les autres.
Voici quelques exemples de code trouver rapidement sur le net pour le copier/coller

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
'Copier une plage de cellules
    Workbooks("Liste.xls").Worksheets("feuil1").Range("B3:F3").Copy _
    destination:=Workbooks("Classeur1").Worksheets("Feuil1").Range("B3:F3")
 
    'Copier des colonnes
    Workbooks("Liste.xls").Worksheets("feuil1").Range("B:F").Copy _
    destination:=Workbooks("Classeur1").Worksheets("Feuil1").Range("B1")
    'ou
    Workbooks("Liste.xls").Worksheets("feuil1").Range("B:F").Copy _
    destination:=Workbooks("Classeur1").Worksheets("Feuil1").Range("C:G")
 
    'Copier les lignes
    Workbooks("Liste.xls").Worksheets("feuil1").Rows(5).Copy _
    destination:=Workbooks("Classeur1").Worksheets("Feuil1").Rows(6)
    'ou
    Workbooks("Liste.xls").Worksheets("feuil1").Rows("5:8").Copy _
    destination:=Workbooks("Classeur1").Worksheets("Feuil1").Rows("9:12")
    'ou
    Workbooks("Liste.xls").Worksheets("feuil1").Rows(5).Copy
    Workbooks("Classeur1").Worksheets("Feuil1").Rows("67:67").Insert Shift:=xlDown