Copie d'un classeur à un autre "VBA"
Résolu
Alex_HX8XF
Messages postés
340
Date d'inscription
Statut
Membre
Dernière intervention
-
Alex_HX8XF Messages postés 340 Date d'inscription Statut Membre Dernière intervention -
Alex_HX8XF Messages postés 340 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 ;)
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 ;)
A voir également:
- Copie d'un classeur à un autre "VBA"
- Copie cachée - Guide
- Super copie - Télécharger - Gestion de fichiers
- Copie écran samsung - Guide
- Copie disque dur - Guide
- Copie rapide - Télécharger - Gestion de fichiers
3 réponses
Bonjour,
Donne un nom aux deux plages source. Ils intégreront les lignes insérées.
Pour la destination, ne précise que la première cellule.
Cordialement.
Daniel
Donne un nom aux deux plages source. Ils intégreront les lignes insérées.
Pour la destination, ne précise que la première cellule.
Cordialement.
Daniel
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