Konyl
Messages postés25Date d'inscriptionlundi 12 novembre 2007StatutMembreDernière intervention 7 octobre 2010
-
17 juin 2008 à 10:31
Konyl
Messages postés25Date d'inscriptionlundi 12 novembre 2007StatutMembreDernière intervention 7 octobre 2010
-
17 juin 2008 à 14:00
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.
pile_poil
Messages postés682Date d'inscriptionvendredi 6 avril 2007StatutMembreDernière intervention 4 août 20126 17 juin 2008 à 10:39
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
Messages postés25Date d'inscriptionlundi 12 novembre 2007StatutMembreDernière intervention 7 octobre 2010 17 juin 2008 à 11:08
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)
pile_poil
Messages postés682Date d'inscriptionvendredi 6 avril 2007StatutMembreDernière intervention 4 août 20126 17 juin 2008 à 11:45
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
Konyl
Messages postés25Date d'inscriptionlundi 12 novembre 2007StatutMembreDernière intervention 7 octobre 2010 17 juin 2008 à 12:10
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.