Copie d'un classeur à un autre "VBA"

Résolu/Fermé

Alex_HX8XF Messages postés 340 Date d'inscription mercredi 26 février 2014 Statut Membre Dernière intervention 30 octobre 2018 - 19 juin 2018 à 15:03
Alex_HX8XF Messages postés 340 Date d'inscription mercredi 26 février 2014 Statut Membre Dernière intervention 30 octobre 2018 - 19 juin 2018 à 18:00

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 ;)

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
Corinne copie un texte sur le web et le colle dans un document avec l'option "texte non formaté" (aussi appelée "texte sans mise en forme"). qu'est-ce qui est conservé ? - Forum Bureautique

3 réponses

Réponse 1 / 3

danielc0 Messages postés 830 Date d'inscription mardi 5 juin 2018 Statut Membre Dernière intervention 17 avril 2024 74
19 juin 2018 à 15:21

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

Alex_HX8XF Messages postés 340 Date d'inscription mercredi 26 février 2014 Statut Membre Dernière intervention 30 octobre 2018 417
19 juin 2018 à 16:46

Donc j'ai renommer la plage "A83:A2000" en A_END

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

Réponse 2 / 3

danielc0 Messages postés 830 Date d'inscription mardi 5 juin 2018 Statut Membre Dernière intervention 17 avril 2024 74
19 juin 2018 à 17:32

La méthode GetOpenFileName n'est pas correcte. Qu'est-ce que tu cherches à faire ?.

Daniel

Alex_HX8XF Messages postés 340 Date d'inscription mercredi 26 février 2014 Statut Membre Dernière intervention 30 octobre 2018 417
19 juin 2018 à 17:35

Je cherche à copier "A_END" qui est dans "Feuil1" du classeur "Classement"
Vers "B5" qui est dans "Feuil1" du classeur ou se trouve le code.

Réponse 3 / 3

danielc0 Messages postés 830 Date d'inscription mardi 5 juin 2018 Statut Membre Dernière intervention 17 avril 2024 74
19 juin 2018 à 17:49

Ca devrait suffire (non testé) :

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

Alex_HX8XF Messages postés 340 Date d'inscription mercredi 26 février 2014 Statut Membre Dernière intervention 30 octobre 2018 417
19 juin 2018 à 18:00

Génial merci!!!!

Discussions similaires

lien copié

"L'indice n'appartient à la sélection" + VBA

Comment retrouver des lien copier sur sont téléphone

ouverture d'un fichier excel à partir d'un code VBA

manon

Discussions similaires

Newsletters