Création de fichier depuis un userformRésolu

Question

Bonjour, 

Voilà mon souci, je souhaites afficher une userform avec un champs texte et un bouton OK.
La problèmatique est la suivante : 

Text1 doit contenir une partie du nom du fichier final (je souhaites rajouter un sufixe au moment de l'enregistrement) 
Le bouton OK doit lancer la création du nouveau fichier en ouvrant un fichier source, en l'"enregistrant sous" avec le texte saisie dans le champs.
L'utilisateur entre Blabla et le code doit faire un genre de Workbook.SaveAS = Blabla + sufixe.xls.

Est ce possible ? 

Merci beaucoup pour votre aide.

pile_poil · Accepted Answer

comment s'apelle ta textbox? et que contient elle au moment ou tu click sur ton bouton  ?

[reglement.aspx ]si c'est la solution, penser : REPONSE ACCEPTEE

pile_poil · Answer

tu postes dans VB6 et tu parles de userform qui est(autant que je m'en souviennne) du VBA
soit tu travailles bien en VB6 et dans ce cas il n'est pas possible de créer un fichierXLS directement 
soit tu es dans VBA et dans ce cas Workbook.SaveAS = Blabla + sufixe.xls. fonctionne parfaitement
soit tu travailles dans VB6 sur un objet excel et dans ce cas c'est possible avec la bonne synthaxe

donc 
sois précis dans ta demande et dans la rubrique si tu veux qu'on puisse t'aider plus précisément 

[reglement.aspx ]si c'est la solution, penser : REPONSE ACCEPTEE

Konyl · Answer

"Soit tu es dans VBA et dans ce cas Workbook.SaveAS = Blabla + sufixe.xls. fonctionne parfaitement"
C'est ça !

On peut modifier la rubrique, j'ai du me tromper de ligne alors :(

Merci

Konyl · Answer

Ce qui bloque maintenant : 

Ou est ce que je déclare le champs texte ? 
Quand je clic sur OK rien ne se passe.

Private Sub Click()

Dim sFichier, ChDir As String
'Chemin de l'Active Wokbook
ChDir = Application.ActiveWorkbook.Path
'Ouvrir "Suivi Projet Original.xls"
sFichier = Dir("Suivi Projet Original.xls")
Workbooks.Open (sFichier)

Workbook.SaveAs = concat(text1, - , "Suivi Projet.xls")

End Sub

pile_poil · Answer

Private Sub Click()

Dim toto as String 
'Chemin de l'Active Wokbook
toto=  Application.ActiveWorkbook.Pathif toto vbnullstring then toto "c:\mon dossier" ' ceci au cas ou le chemin n'existe pas entre autre dans le cas ou il n'y a pas de fichier ouvert dans excel dans ce cas on force un chemin  à toi de mettre le chemlin qui te convient
'Ouvrir "Suivi Projet Original.xls"
Workbooks.Open (chemin & "Suivi Projet Original.xls")'il faut ici mettre le chemin complet du fichier à ouvrir
Workbook.SaveAs = toto & "" & text1.Text &  "-Suivi Projet.xls")
End Sub

tu ne peux pas nommer une variable ChDir car c'est une fonction VBA

[reglement.aspx ]si c'est la solution, penser : REPONSE ACCEPTEE

pile_poil · Answer

de plus ce n'est pas dans l'évenement click de la userform qu'il faut mettre ce code mais dans l'évenement click du bouton 

[reglement.aspx ]si c'est la solution, penser : REPONSE ACCEPTEE

Konyl · Answer

Je pense ne plus être loin mais la ligne "Workbook.SaveAs = (rep & "" & text1.Text &  "-Suivi Projet.xls")" apparait en rouge, j'en conclu qu'il faut que je trouve comment déclarer le text du userform. Il me dit Text1 = Vide quand je passe dessus avec la souris.

PS : j'ai juste remplacé "toto" par "rep"

Konyl · Answer

Merci beaucoup !

Création de fichier depuis un userform

8 réponses

Votre réponse