Bonjour,
Je travaille sur un outil de conversion de fichier Excel en Csv.
J'ai ajouté la référence dans mon projet mais sur mon poste, je dispose de la version de Office 2010 soit Excel 14.0
Le problème est que sur un poste disposant d'une version antérieur, j'ai une erreur comme quoi il ne trouve pas la référence, ce qui est normal.
Comment contourner cela? Voici un bout de mon code :
Merci.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 Dim xlsFile As New Microsoft.Office.Interop.Excel.Application With xlsFile .Workbooks.Open(Filename:=OpenFileXls.FileName) .DisplayAlerts = False pbaLoad.Value = 50 .ActiveWorkbook.SaveAs(SaveFileCsv.FileName, -4158, Local:=True) pbaLoad.Value = 70 .ActiveWorkbook.Close() .Quit() pbaLoad.Value = 90 End With xlsFile = Nothing
Portekoi
Partager