Microsoft 365 macro pour transfert dans autre classeur fermé

rubis54 · 28 Novembre 2021

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 · 30 Novembre 2021

Bonjour,

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

Daniel

rubis54 · 30 Novembre 2021

danielco à dit:
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 · 30 Novembre 2021

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

Daniel

rubis54 · 30 Novembre 2021

danielco à dit:
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 · 30 Novembre 2021

Les cellules D4:H4 contiennent les noms des fournisseurs?

Daniel

rubis54 · 30 Novembre 2021

danielco à dit:
Les cellules D4:H4 contiennent les noms des fournisseurs?

Daniel

oui exactement

danielco · 30 Novembre 2021

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 · 1 Décembre 2021

danielco à dit:

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

Microsoft 365 macro pour transfert dans autre classeur fermé

rubis54

XLDnaute Occasionnel

Pièces jointes

danielco

XLDnaute Accro

rubis54

XLDnaute Occasionnel

danielco

XLDnaute Accro

rubis54

XLDnaute Occasionnel

danielco

XLDnaute Accro

rubis54

XLDnaute Occasionnel

danielco

XLDnaute Accro

rubis54

XLDnaute Occasionnel

Discussions similaires