XL 2016 VBA - Classeur dans une autre instance - bizarrerie

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
17
Affichages
2 K
F
Réponses
4
Affichages
2 K
L
Retour