Sujet Précédent Sujet Suivant

Générer un fichier Excel en VBA

Résolu/Fermé
2000Kennedy Messages postés 40 Date d'inscription mercredi 8 septembre 2010 Statut Membre Dernière intervention 16 novembre 2010 - Modifié par 2000Kennedy le 18/10/2010 à 13:26
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 - 18 oct. 2010 à 14:30
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 mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
18 oct. 2010 à 13:53
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 1041 Date d'inscription mardi 10 août 2010 Statut Membre Dernière intervention 3 avril 2025 357
18 oct. 2010 à 13:59
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 mercredi 8 septembre 2010 Statut Membre Dernière intervention 16 novembre 2010 2
18 oct. 2010 à 14:27
oki merci les 2 marche ! :)
0
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
18 oct. 2010 à 14:30
De rien, passe le sujet en résolu alors

Bonne continuation
0