cs_Xime
Messages postés75Date d'inscriptionlundi 4 février 2002StatutMembreDernière intervention24 mars 2003 10 juil. 2002 à 16:34
Dim XlApp As Excel.Application
XlApp.Application.Workbooks.Add (pour creer le classeur)
NomFic = (adresse) + nom de fichier
If XlApp Is Nothing Then Exit Sub
With XlApp
If Trim(NomFic) = "" Then
.DisplayAlerts = False
.Application.Save
Else
If FileExist(NomFic) Then
Kill NomFic
End If
.ActiveWorkbook.SaveAs NomFic
End If
End With
essaye ca sinon dis moi plus precis ce que tu veux ;)