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

Signaler
Messages postés
6
Date d'inscription
lundi 22 juin 2009
Statut
Membre
Dernière intervention
24 juin 2009
-
Messages postés
6
Date d'inscription
lundi 22 juin 2009
Statut
Membre
Dernière intervention
24 juin 2009
-
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:
<hr />

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
<hr />
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.

1 réponse

Messages postés
6
Date d'inscription
lundi 22 juin 2009
Statut
Membre
Dernière intervention
24 juin 2009

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:
<hr />
'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)<hr />
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