[VB6] Creer fichier excel
bjs le forum
je souhaite creer un fichier excel en auto .
je m explique je vais faire un export vers excel , et je voudrais creer le fichier sous la forme CODE_DLUO.xls
mon code actuel ouvre un existant mais ne crée pas le fichier si inexistant .
Code:
1 2 3 4 5 6 7 8 9 10
| Private Sub ouvre() ' OUVRE EXCEL
nom = code
'Ouverture de l'application
Set appExcel = CreateObject("Excel.Application")
'Ouverture d'un fichier Excel
Set wbexcel = appExcel.Workbooks.Open("\\W2K3S1\SERVICES\COMMUN\TRAVAIL\EAN\" & nom & ".xls")
Call ecrit
End Sub |
merci d avance de votre aide