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

Tifris8
Messages postés
6
Date d'inscription
lundi 22 juin 2009
Statut
Membre
Dernière intervention
24 juin 2009
- 23 juin 2009 à 16:13
Tifris8
Messages postés
6
Date d'inscription
lundi 22 juin 2009
Statut
Membre
Dernière intervention
24 juin 2009
- 24 juin 2009 à 09:55
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

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

24 juin 2009 à 09:55
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
0