XL 2016 VBA - Classeur dans une autre instance - bizarrerie

danielco

XLDnaute Accro
Bonjour,

Je souhaite utiliser le code suivant pour lire un classeur sans l'afficher :

VB:
Sub test1()
  Dim Wbk As Workbook, App As Object, L As Variant, C As Variant, V As Variant, Tabl1 As Date
  Dim Taabl2 As String
  Set App = CreateObject("Excel.Application")
  Set Wbk = App.Workbooks.Open("C:\Users\dcola\OneDrive\mpfe\rubis54\HISTORIQUE LIVRAISON.xlsm")
  App.Visible = False
  If [D2] <> "" And [D5] <> "" And [D8] <> "" Then
    With Wbk.Sheets("RAPPEL")
      On Error Resume Next
      App.Visible = False
      Tabl = Application.Transpose(.[C5:C35])
      L = Application.Match([D2] * 1 * 1, Tabl, 0)
      Tabl2 = Application.Transpose(.[D4:H4])
      C = Application.Match([D5], Tabl, 0)
      .[C4].Offset(L, C) = [D8]
    End With
  End If
  Wbk.Close True
  App.Quit
End Sub

Les cellules C5:C35 de ce classeur contiennent des dates. Pourtant, la ligne :

Code:
Tabl = Application.Transpose(.[C5:C35])

Crée une table de valeurs string. Pourquoi ?

Le reste du code n'est pas finalisé. Ne pas en tenir compte.

Merci d'avance pour vos réponses.
 

Pièces jointes

  • HISTORIQUE LIVRAISON.xlsm
    10.3 KB · Affichages: 3

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 948
Membres
101 850
dernier inscrit
Danigra