Générer un fichier Excel en VBA Résolu

Question

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 :)

Polux31 · Answer

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)

cousinhub29 · Answer

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

2000Kennedy · Answer

oki merci les 2 marche ! :)

Générer un fichier Excel en VBA

3 réponses

Discussions similaires

Newsletters