Discussion :

[Yannv]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[SfJ5Rpw8]

ben tu peu tester l'existence du fichier via un Dir... puis s'il n'existe pas créer le classeur avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
   Set wbExcel = AppExcel.Workbooks.Add
    wbExcel.SaveAs stNomfichier

[Yannv]

Merci de ton aide

Yann