Microsoft 365 macro pour transfert dans autre classeur fermé

rubis54

XLDnaute Occasionnel
Bonjour tout le monde,

ci-joint les classeurs LIVRAISON et HISTORIQUE LIVRAISON.

Je souhaiterai pouvoir copier les données de la cellule "D8" de la feuille "Entrée stock" du classeur "LIVRAISON" vers la feuille "RAPPEL" du classeur "HISTORIQUE LIVRAISON"

Tout cela en faisant référence à la date du jour ainsi que le nom du fournisseur, celui-ci se trouve dans la cellule "D5" de la feuille 1 du classeur LIVRAISON.

Merci d'avance pour votre aide.

Cordialement

Rubis5460
 

Pièces jointes

  • LIVRAISON.xlsm
    13.5 KB · Affichages: 8
  • HISTORIQUE LIVRAISON.xlsm
    10.2 KB · Affichages: 6

danielco

XLDnaute Accro
Attache cette macro au bouton :

VB:
Sub test2()
  Dim Wbk As Workbook, App As Object, L As Variant, C As Variant, V As Variant, Tabl1 As Date
  Dim Tabl2 As String
  Application.ScreenUpdating = False
  Application.Visible = False
  Set Wbk = Workbooks.Open("C:\Users\dcola\OneDrive\mpfe\rubis54\HISTORIQUE LIVRAISON.xlsm")
  ThisWorkbook.Activate
  If [D2] <> "" And [D5] <> "" And [D8] <> "" Then
    With Wbk.Sheets("RAPPEL")
      .[C4].Offset(Application.Match([D2], .[C5:C35], 0), _
        Application.Match([D5], .[D4:H4], 0)) = [D8]
    End With
  End If
  Wbk.Close True
  Application.Visible = True
End Sub

Daniel
 

rubis54

XLDnaute Occasionnel
Attache cette macro au bouton :

VB:
Sub test2()
  Dim Wbk As Workbook, App As Object, L As Variant, C As Variant, V As Variant, Tabl1 As Date
  Dim Tabl2 As String
  Application.ScreenUpdating = False
  Application.Visible = False
  Set Wbk = Workbooks.Open("C:\Users\dcola\OneDrive\mpfe\rubis54\HISTORIQUE LIVRAISON.xlsm")
  ThisWorkbook.Activate
  If [D2] <> "" And [D5] <> "" And [D8] <> "" Then
    With Wbk.Sheets("RAPPEL")
      .[C4].Offset(Application.Match([D2], .[C5:C35], 0), _
        Application.Match([D5], .[D4:H4], 0)) = [D8]
    End With
  End If
  Wbk.Close True
  Application.Visible = True
End Sub

Daniel
Bonjour Daniel
Merci beaucoup tout fonctionne.👍
Cdt Rubis
 

Discussions similaires

Réponses
2
Affichages
253
Réponses
8
Affichages
272
Réponses
2
Affichages
527

Statistiques des forums

Discussions
311 733
Messages
2 082 015
Membres
101 870
dernier inscrit
Dethomas