creation fichier boite de dialogue

[gwendy46]

Bonjour a tous 🙂

Je souhaiterai créer un nouveau fichier dans ma macro qui affichera une boite de dialogue qui permettra de choisir l'emplacement ou sera sauvegardé le fichier crée.

Pour l'instant j'ai fais ceci:

Dim xlApp As New Excel.Application
Dim xlBook As Workbook
Dim fichier_cree As String

Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add
xlApp.Visible = True

fichier_cree = Application.GetSaveAsFilename("", "Classeur Microsoft Office Excel, *.xls", , "Enregistrer le fichier sous")

xlBook.SaveAs fichier_cree
Workbooks.Open fichier_cree

fichier_cree = ActiveWorkbook.Name ' pour recuperer le nom du fichier et pas le répertoire

Cependant, j'ai le message d'erreur suivant: "Fichier.xls" est a present disponible pour modification ouvrez le fichier en lecture-ecriture pour le modifier. Mais j'aimerai qu'il évite de m'afficher ce message ?!

Si quelqu'un connait la réponse je l'en remercie beaucoup je galère depuis ce matin sans résoudre ce problème 🙁

win xp pro sp3
excel 2003

 

[Pierrot93]

Re : creation fichier boite de dialogue

Bonjour,

petite question au passage, pourquoi créer un nouvel objet application ? ton code est exécuté à parti d'une autre appli...

bon après midi
@+

 

[gwendy46]

Re : creation fichier boite de dialogue

🙂

Salut,

En fait je voudrais créer un nouveau fichier excel à partir d'un autre fichier excel (ou sera exécuée la macro).

Merci

 

[Pierrot93]

Re : creation fichier boite de dialogue

Re,

une procédure de ce type devrait peut être suffire... A voir...

Dim fichier_cree As String
fichier_cree = Application.GetSaveAsFilename("", "Classeur Microsoft Office Excel, *.xls", , "Enregistrer le fichier sous")
ThisWorkbook.SaveAs fichier_cree

 

[gwendy46]

Re : creation fichier boite de dialogue

Merci Pierrot93 d'avoir répondu rapidement

J'ai testé le code que tu écris. Il crée bien un nouveau fichier dans le repertoire que l'on veut. Cependant, il me change le nom de mon fichier ou j'exécute la macro 😕

J'ai essayé de rajouter 2 - 3 trucs dans le code mais sans succès

😡

 

[Pierrot93]

Re : creation fichier boite de dialogue

Re,

comme ceci peut être...

Dim fichier_cree As String
fichier_cree = Application.GetSaveAsFilename("", "Classeur Microsoft Office Excel, *.xls", , "Enregistrer le fichier sous")
ThisWorkbook.[B][COLOR="Blue"]SaveCopyAs [/COLOR][/B]fichier_cree

pas sûr de bien cerné ton problème....

 

[gwendy46]

Re : creation fichier boite de dialogue

Merci Pierrot93

j'ai fais ceci :

Dim fichier_cree As String
fichier_cree = Application.GetSaveAsFilename("", "Classeur Microsoft Office Excel, *.xls", , "Enregistrer le fichier sous")
ThisWorkbook.SaveCopyAs fichier_cree
Workbooks.Open fichier_cree

Par contre comment rendre le fichier crée vierge?

Sinon Merci pour tout, il me manque plus que ca😱

 

[Pierrot93]

Re : creation fichier boite de dialogue

Re

dans ce cas il vaut mieux ouvrir un autre fichier....

Dim fichier_cree As String
fichier_cree = Application.GetSaveAsFilename("", "Classeur Microsoft Office Excel, *.xls", , "Enregistrer le fichier sous")
Workbooks.Add
ActiveWorkbook.SaveAs fichier_cree

 

[gwendy46]

Re : creation fichier boite de dialogue

Merci merci beaucoup Pierrot93 🙂

C'est exactement ce que je cherché 😀

En tout cas un gros MERCI d'avoir passé du temps à répondre à mes requêtes

Bonne continuation et merci encore