Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 Récuperer donner

K

Keiko

XLDnaute Occasionnel
Bonjour à tous,

Voici un code qui me permet d'ouvrir un excel choisi, et d'envoyer des informations des cellules du fichier ou la macro (donneur d'ordre) se trouve vers le fichier ouvert.
Je voudrais faire maintenant l'inverse.
Je voudrais que ce code ouvre un fichier, et colle les informations du fichier ouvert vers l'excel ou se trouve la macro (donneur d'ordre).
Pouvez-vous m'aider?
Voici le code de base :

Sub TRANSFERER()
Dim Sortie As Workbook
Dim FeuilleOrigine As Worksheet, FeuilleDestination As Worksheet

'Référence la feuille origine des données à copier
Set FeuilleOrigine = ThisWorkbook.Sheets("l")

NomFichierSortie = Application.GetOpenFilename("Fichier Excel (*.xls;*.xlsx;*.xlsm),*.xls;*.xlsx;*.xlsm")
' On verifie que l'on a selectionné un nom de classeur
If NomFichierSortie <> False Then
' On ouvre le classeur
Set Sortie = Workbooks.Open(NomFichierSortie)

'Référence la feuille de destination des cellules copiées
Set FeuilleDestination = Sortie.Sheets("l")
' On copie les cellules de la feuille désirée vers la feuille de sortie
With FeuilleOrigine
.Range("D1421").Copy Destination:=FeuilleDestination.Range("D1421")
.Range("G14:H21").Copy Destination:=FeuilleDestination.Range("G14:H21")
.Range("D2526").Copy Destination:=FeuilleDestination.Range("D2526")
.Range("D2829").Copy Destination:=FeuilleDestination.Range("D2829")
.Range("D3138").Copy Destination:=FeuilleDestination.Range("D3138")
.Range("G25:H36").Copy Destination:=FeuilleDestination.Range("G25:H36")
.Range("D4246").Copy Destination:=FeuilleDestination.Range("D4246")
.Range("F42:F46").Copy Destination:=FeuilleDestination.Range("F42:F46")
.Range("G42:H42").Copy Destination:=FeuilleDestination.Range("G42:H42")
.Range("G43:H46").Copy Destination:=FeuilleDestination.Range("G43:H46")
.Range("B51:C52").Copy Destination:=FeuilleDestination.Range("B51:C52")
.Range("F51:F52").Copy Destination:=FeuilleDestination.Range("F51:F52")
.Range("B55:C56").Copy Destination:=FeuilleDestination.Range("B55:C56")
.Range("E55:E56").Copy Destination:=FeuilleDestination.Range("E55:E56")
.Range("B59:C60").Copy Destination:=FeuilleDestination.Range("B59:C60")
.Range("F59:F60").Copy Destination:=FeuilleDestination.Range("F59:F60")
.Range("B6364").Copy Destination:=FeuilleDestination.Range("B6364")
.Range("H63:H64").Copy Destination:=FeuilleDestination.Range("H63:H64")
.Range("D7783").Copy Destination:=FeuilleDestination.Range("D7783")
.Range("F77:F83").Copy Destination:=FeuilleDestination.Range("F77:F83")
.Range("H77:H83").Copy Destination:=FeuilleDestination.Range("H77:H83")
.Range("D96:H99").Copy Destination:=FeuilleDestination.Range("D96:H99")
.Range("D103").Copy Destination:=FeuilleDestination.Range("D103")
.Range("D106108").Copy Destination:=FeuilleDestination.Range("D106108")
.Range("D111113").Copy Destination:=FeuilleDestination.Range("D111113")
.Range("D118").Copy Destination:=FeuilleDestination.Range("D118")
.Range("D120").Copy Destination:=FeuilleDestination.Range("D120")
.Range("D123").Copy Destination:=FeuilleDestination.Range("D123")
.Range("F103").Copy Destination:=FeuilleDestination.Range("F103")
.Range("F106:F108").Copy Destination:=FeuilleDestination.Range("F106:F108")
.Range("F111:F113").Copy Destination:=FeuilleDestination.Range("F111:F113")
.Range("F120").Copy Destination:=FeuilleDestination.Range("F120")
.Range("F123").Copy Destination:=FeuilleDestination.Range("F123")
.Range("H103").Copy Destination:=FeuilleDestination.Range("H103")
.Range("H106:H108").Copy Destination:=FeuilleDestination.Range("H106:H108")
.Range("H111:H113").Copy Destination:=FeuilleDestination.Range("H111:H113")
.Range("H120").Copy Destination:=FeuilleDestination.Range("H120")
.Range("H123").Copy Destination:=FeuilleDestination.Range("H123")
.Range("D146").Copy Destination:=FeuilleDestination.Range("D146")
.Range("D149151").Copy Destination:=FeuilleDestination.Range("D149151")
.Range("D154156").Copy Destination:=FeuilleDestination.Range("D154156")
.Range("D163").Copy Destination:=FeuilleDestination.Range("D163")
.Range("D167").Copy Destination:=FeuilleDestination.Range("D167")
.Range("F146").Copy Destination:=FeuilleDestination.Range("F146")
.Range("F149:F151").Copy Destination:=FeuilleDestination.Range("F149:F151")
.Range("F154:F156").Copy Destination:=FeuilleDestination.Range("F154:F156")
.Range("F163").Copy Destination:=FeuilleDestination.Range("F163")
.Range("F167").Copy Destination:=FeuilleDestination.Range("F167")
.Range("H146").Copy Destination:=FeuilleDestination.Range("H146")
.Range("H149:H151").Copy Destination:=FeuilleDestination.Range("H149:H151")
.Range("H154:H156").Copy Destination:=FeuilleDestination.Range("H154:H156")
.Range("H163").Copy Destination:=FeuilleDestination.Range("H163")
.Range("H167").Copy Destination:=FeuilleDestination.Range("H167")
.Range("D189:F189").Copy Destination:=FeuilleDestination.Range("D189:F189")
.Range("E194:F196").Copy Destination:=FeuilleDestination.Range("E194:F196")
.Range("D208209").Copy Destination:=FeuilleDestination.Range("D208209")
.Range("C213236").Copy Destination:=FeuilleDestination.Range("C213236")
.Range("C238239").Copy Destination:=FeuilleDestination.Range("C238239")
.Range("F213:H224").Copy Destination:=FeuilleDestination.Range("F213:H224")
.Range("F226:H233").Copy Destination:=FeuilleDestination.Range("F226:H233")
.Range("D259260").Copy Destination:=FeuilleDestination.Range("D259260")
.Range("D262264").Copy Destination:=FeuilleDestination.Range("D262264")
.Range("D267").Copy Destination:=FeuilleDestination.Range("D267")
.Range("F259:H264").Copy Destination:=FeuilleDestination.Range("F259:H264")
.Range("F266:H270").Copy Destination:=FeuilleDestination.Range("F266:H270")
.Range("F273:H277").Copy Destination:=FeuilleDestination.Range("F273:H277")
.Range("D283:H287").Copy Destination:=FeuilleDestination.Range("D283:H287")
.Range("D290:H290").Copy Destination:=FeuilleDestination.Range("D290:H290")
.Range("D295:H295").Copy Destination:=FeuilleDestination.Range("D295:H295")
.Range("D301:H301").Copy Destination:=FeuilleDestination.Range("D301:H301")
.Range("D305:H305").Copy Destination:=FeuilleDestination.Range("D305:H305")
.Range("D311:H315").Copy Destination:=FeuilleDestination.Range("D311:H315")
.Range("D318:H318").Copy Destination:=FeuilleDestination.Range("D318:H318")
.Range("D323:H323").Copy Destination:=FeuilleDestination.Range("D323:H323")
.Range("D329:H329").Copy Destination:=FeuilleDestination.Range("D329:H329")
.Range("D333:H333").Copy Destination:=FeuilleDestination.Range("D333:H333")
.Range("D339:H339").Copy Destination:=FeuilleDestination.Range("D339:H339")
.Range("D344:H344").Copy Destination:=FeuilleDestination.Range("D344:H344")
End With
Sheets("l").Select
End If
End Sub

Bien à vous,
 
Trier par date Trier par votes

Robert

XLDnaute Barbatruc
Repose en paix
Bonjour Keiko, bonjour le forum,

Si je me suis pas gouré, ça donnerait ça :
VB: 
Sub TRANSFERER()
Dim CD As Workbook 'déclare la variable CD (Classeur Destination)
Dim OD As Worksheet 'déclare la variable OD (Onglet Destination)
Dim CS As Workbook 'déclare la variable CS (Classeur Source)
Dim OS As Worksheet 'déclare la variable OS (Onglet Source)
Dim F As String 'déclare la variable F (Fichier)

Set CD = ThisWorkbook 'définit le classeur destination CD (celui qui contient la macro)
Set OD = CD.Worksheets(1) 'définit l'onglet destination OD (ici le premier de CD)
F = Application.GetOpenFilename("Fichier Excel (*.xls;*.xlsx;*.xlsm),*.xls;*.xlsx;*.xlsm") 'définit le fichier F
If F <> "" Then 'condition : si F n'est pas vide
    Set CS = Workbooks.Open(F) 'définit le classeur source CS en l'ouvrant
    Set OS = CS.Worksheets(1) 'définit l'onglet source OS (ici le premier de CS)
End If 'fin de la condition
OS.Range("D14:D21").Copy OD.Range("D14:D21") 'pour copier tous (les formats, les formules et les valeurs)
OD.Range("D14:D21").Value = OS.Range("D14:D21") 'pour ne récupérer que les valeurs
'etc.
End Sub
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

K
  • Question
Microsoft 365 problème macro trim
Réponses
8
Affichages
535
mapomme
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…