Microsoft 365 macro pour transfert dans autre classeur fermé

[rubis54]

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

 

[danielco]

Bonjour,

Est-ce qu'on peut ouvrir le classeur fermé ?

Daniel

 

[rubis54]

Bonjour,

Est-ce qu'on peut ouvrir le classeur fermé ?

Daniel

Bonjour Daniel,
Merci d'avoir répondu.

Non le classeur ne peut pas être ouvert en même temps.

Cdt Rubis

 

[danielco]

Même sans s'afficher ? Alors, désolé.

Daniel

 

[rubis54]

Même sans s'afficher ? Alors, désolé.

Daniel

Alors si. j'avais déja vu dans le genre. Le classeur s'ouvre un court instant le temps du transfert des données et ensuite il se referme

 

[danielco]

Les cellules D4:H4 contiennent les noms des fournisseurs?

Daniel

 

[rubis54]

Les cellules D4:H4 contiennent les noms des fournisseurs?

Daniel

oui exactement

 

[danielco]

Attache cette macro au bouton :

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]

Attache cette macro au bouton :

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