Copie d'un classeur à un autre "VBA"
Résolu
Alex_HX8XF
Messages postés
11
Date d'inscription
Statut
Membre
Dernière intervention
-
Alex_HX8XF Messages postés 11 Date d'inscription Statut Membre Dernière intervention -
Alex_HX8XF Messages postés 11 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je souhaite copier des cellules d'un classeur à un autre:
de: "Classeur1:A83:A2000;G83:H2000"
vers:"Classeur2:A83:A2000;B83:C2000" (Les cellules de G&H du classeur1 se retrouvent en B&C)
Sachant aussi que dans le classeur1 j'insert souvent une ligne entre A83 et A84 (cela vas poser un problème?).
Donc est-ce possible?
Merci ;)
--
L'amour rend aveugle mais le mariage rend la vue...
Je souhaite copier des cellules d'un classeur à un autre:
de: "Classeur1:A83:A2000;G83:H2000"
vers:"Classeur2:A83:A2000;B83:C2000" (Les cellules de G&H du classeur1 se retrouvent en B&C)
Sachant aussi que dans le classeur1 j'insert souvent une ligne entre A83 et A84 (cela vas poser un problème?).
Donc est-ce possible?
Merci ;)
--
L'amour rend aveugle mais le mariage rend la vue...
A voir également:
- Copie d'un classeur à un autre "VBA"
- Copie d'écran ipad - Guide
- Copie disque dur - Guide
- Copie caché - Guide
- Super copie - Télécharger - Gestion de fichiers
- Copie rapide - Télécharger - Gestion de fichiers
3 réponses
Ca devrait suffire (non testé) :
Daniel
Sub Copie()
Dim nomUn, NewBook As Workbook
Set nomUn = ThisWorkbook
Set NewBook = Workbooks.Open("E:\Users\Marco\Desktop\Classement.xlsm")
NewBook.Activate
Sheets("Feuil1").Range("A_END").Copy
nomUn.Activate
Worksheets("Feuil1").Range("B5").PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
NewBook.Close False
End Sub
Daniel
Voici mon code vba: (il y as une erreur mais où?)
Sub SelectFichier() Dim MonFichier MonFichier = Application.GetOpenFilename("E:\Users\Marco\Desktop\Classement.xlsm") If MonFichier <> False Then Copie (MonFichier) Else MsgBox "Vous n'avez pas sélectionné de fichier" End If End Sub Sub Copie(MonFichier) Dim nomUn, NewBook As Workbook Set nomUn = ThisWorkbook Set NewBook = Workbooks.Open(MonFichier) NewBook.Activate Sheets("Feuil1").Range("A_END").Copy nomUn.Activate Worksheets("Feuil1").Range("B5").PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False NewBook.Close False End Sub