Problème de concaténation avec contenu de cellule d'un *.csv

Question

Bonjour, J'ai un problème pour afficher le résultat d'une concaténation entre un chemin d'accès à un répertoire et le contenu d'une cellule d'un fichier CSV. Voici mon code:

Private Sub Affichage_Click() 'Déclaration des variables Dim appExcel As Excel.Application 'Application Excel Dim wbExcel As Excel.Workbook 'Classeur Excel Dim wsExcel As Excel.Worksheet 'Feuille Excel 'Rappel du chemin d'accès au répertoire Path_Rep = Menu_Principal.WorkRepTEXT 'Ouverture de l'application Set appExcel = CreateObject("Excel.Application") 'Ouverture d'un fichier Excel Set wbExcel = appExcel.Workbooks.Open(Menu_Principal.Path_CSV) 'wsExcel correspond à la première feuille du fichier *.csv Set wsExcel = wbExcel.Worksheets(1) 'Affichage dans la TextBox CATProduct_Name = Path_Rep & wsExcel.Cells(2, 2).Value End Sub

Et là le contenu de la cellule désignée n'apparaît pas il n'y a que le chemin d'accès au répertoire qui s'affiche. Merci d'avance pour vos réponses.

Tifris8 · Answer

En essayant de trouver une solution je me suis rendu compte (en utilisant Stop) qu'en fait c'est cette partie du code qui semble poser problème:

'Ouverture d'un fichier Excel Set wbExcel = appExcel.Workbooks.Open(Menu_Principal.Path_CSV) 'wsExcel correspond à la première feuille du fichier *.csv Set wsExcel = wbExcel.Worksheets(1)

En effet, appExcel est bien reconnu comme étant Microsoft Excel mais ensuite wbExcel et wsExcel ne prennent aucune valeur, même si Menu_Principal.Path_CSV est bien attribué. En espérant que ces compléments vous inspirerons un peu plus. Cordialement. Tifri'sss 8

Problème de concaténation avec contenu de cellule d'un *.csv

1 réponse

Votre réponse

Discussions similaires