Générer un fichier Excel en VBA

Résolu
2000Kennedy Messages postés 40 Date d'inscription   Statut Membre Dernière intervention   -  
Polux31 Messages postés 6917 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour à tous :),

Voilà je souhaiterais savoir comment faire pour générer un fichier Excel en VBA.
J'ai une application qui à un moment donné lors d'une validation, doit créer un fichier excel avec un titre particulier. J'ai commencé à faire quelque chose, mais il ne se passe rien lol. Si quelqu'un pouvait m'éclairer svp? :) 


     Dim xlBook As Workbook 
     Dim xlApp As New Excel.Application 
     Dim txt$ 
     txt = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4) 
     FichierCreer = "S:\chemin" & txt & "_t" & ".xls"      
        Set xlApp = CreateObject("Excel.Application") 
        Set xlBook = xlApp.Workbooks.Add 

        xlBook.SaveAs FichierCreer


Merci d'avance :) Bonne journée :)
A voir également:

3 réponses

Réponse 1 / 3
Polux31 Messages postés 6917 Date d'inscription   Statut Membre Dernière intervention   1 204
 
Bonjour,

Essaie avec ça: 
Dim xlBook As Workbook
Dim txt As String
Dim FichierCreer As String

     txt = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4)
     FichierCreer = "S:\chemin\" & txt & "_t" & ".xls"
        Set xlBook = Workbooks.Add

        xlBook.SaveAs FichierCreer


Tu n'as pas besoin de déclarer Dim xlApp As New Excel.Application si tu es déjà dans excel, l'application est déjà lancée.

;o)
1
Réponse 2 / 3
cousinhub29 Messages postés 1074 Date d'inscription   Statut Membre Dernière intervention   361
 
Bonjour,

Sans filet...

Je ne vois pas pourquoi tu crées une nouvelle instance d'Excel...

Ni un nouveau classeur...

Essaie ainsi : 

Sub ee()
Dim txt$
txt = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4)
FichierCreer = ActiveWorkbook.Path & "\" & txt & "_t" & ".xls"
ActiveWorkbook.SaveAs FichierCreer
End Sub


Peut-être???

Bonne journée
1
Réponse 3 / 3
2000Kennedy Messages postés 40 Date d'inscription   Statut Membre Dernière intervention   2
 
oki merci les 2 marche ! :)
0
Polux31 Messages postés 6917 Date d'inscription   Statut Membre Dernière intervention   1 204
 
De rien, passe le sujet en résolu alors

Bonne continuation
0