Macro qui enregistre.
Résolu/Fermé
Farfadet88
Messages postés
6293
Date d'inscription
lundi 28 janvier 2008
Statut
Membre
Dernière intervention
29 avril 2020
-
29 oct. 2009 à 14:51
Farfadet88 Messages postés 6293 Date d'inscription lundi 28 janvier 2008 Statut Membre Dernière intervention 29 avril 2020 - 29 oct. 2009 à 16:08
Farfadet88 Messages postés 6293 Date d'inscription lundi 28 janvier 2008 Statut Membre Dernière intervention 29 avril 2020 - 29 oct. 2009 à 16:08
A voir également:
- Macro qui enregistre.
- Macro word - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Macro logiciel - Télécharger - Organisation
- Macro recorder - Télécharger - Confidentialité
- Mot de passe enregistré - Guide
9 réponses
pou pouille
Messages postés
207
Date d'inscription
mardi 20 octobre 2009
Statut
Membre
Dernière intervention
20 juillet 2012
31
29 oct. 2009 à 14:58
29 oct. 2009 à 14:58
bonjour, je connais pas trop les textbox , mais si tu trouve la variable associé à ta textbox ,
ActiveWorkbook.SaveAs Filename:= "Analyse de l'AT n°" & var_textbox
ou le var_textbox est le nom de la variable associé à ta textbox.
ActiveWorkbook.SaveAs Filename:= "Analyse de l'AT n°" & var_textbox
ou le var_textbox est le nom de la variable associé à ta textbox.
Farfadet88
Messages postés
6293
Date d'inscription
lundi 28 janvier 2008
Statut
Membre
Dernière intervention
29 avril 2020
1 366
29 oct. 2009 à 15:07
29 oct. 2009 à 15:07
Qu'entends-tu par variable?
textbox1.value en est une?
textbox1.value en est une?
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 746
29 oct. 2009 à 15:12
29 oct. 2009 à 15:12
Salut,
Fectivement calibos à pas tord. A vérifier mais :
ActiveWorkbook.SaveAs Filename:= "Analyse de l'AT n° " & textbox1
doit fonctionner (l'espace après n° est pas mal...)
Fectivement calibos à pas tord. A vérifier mais :
ActiveWorkbook.SaveAs Filename:= "Analyse de l'AT n° " & textbox1
doit fonctionner (l'espace après n° est pas mal...)
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Farfadet88
Messages postés
6293
Date d'inscription
lundi 28 janvier 2008
Statut
Membre
Dernière intervention
29 avril 2020
1 366
29 oct. 2009 à 15:16
29 oct. 2009 à 15:16
Private Sub CommandButton1_Click()
Sheets("Analyse").Select
Sheets("Analyse").Copy
ChDir "C:\Documents and Settings\U300393\Bureau\AT\Analyse des Accidents"
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\U300393\Bureau\AT\Analyse des Accidents\Analyse AT n° " & TextBox1.Text
ActiveWindow.Close
Voilà ma macro
Elle ne fonctionne pas. Il enregistre seulement jusqu'à "n°" ce qui fait que je ne peux enregistrer qu'un fichier lorsque je la relance avec un autre numéro
End Sub--
Thor tue
Sheets("Analyse").Select
Sheets("Analyse").Copy
ChDir "C:\Documents and Settings\U300393\Bureau\AT\Analyse des Accidents"
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\U300393\Bureau\AT\Analyse des Accidents\Analyse AT n° " & TextBox1.Text
ActiveWindow.Close
Voilà ma macro
Elle ne fonctionne pas. Il enregistre seulement jusqu'à "n°" ce qui fait que je ne peux enregistrer qu'un fichier lorsque je la relance avec un autre numéro
End Sub--
Thor tue
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 746
29 oct. 2009 à 15:31
29 oct. 2009 à 15:31
Re-
Ceci fonctionne :
Private Sub CommandButton1_Click()
Sheets("Analyse").Select
Sheets("Analyse").Copy
ChDir "C:\Documents and Settings\U300393\Bureau\AT\Analyse des Accidents"
ActiveWorkbook.SaveAs Filename:="Analyse AT n° " & TextBox1
ActiveWindow.Close
End Sub
Ceci fonctionne :
Private Sub CommandButton1_Click()
Sheets("Analyse").Select
Sheets("Analyse").Copy
ChDir "C:\Documents and Settings\U300393\Bureau\AT\Analyse des Accidents"
ActiveWorkbook.SaveAs Filename:="Analyse AT n° " & TextBox1
ActiveWindow.Close
End Sub
Farfadet88
Messages postés
6293
Date d'inscription
lundi 28 janvier 2008
Statut
Membre
Dernière intervention
29 avril 2020
1 366
29 oct. 2009 à 15:55
29 oct. 2009 à 15:55
Ca marche, à condition de mettre textbox1.value
Merci
Merci
pou pouille
Messages postés
207
Date d'inscription
mardi 20 octobre 2009
Statut
Membre
Dernière intervention
20 juillet 2012
31
29 oct. 2009 à 16:03
29 oct. 2009 à 16:03
peut etre avec une éxtension aussi ?
ActiveWorkbook.SaveAs Filename:="Analyse AT n° " & TextBox1 & ".xls"
visiblement la bonne écriture pour une textbox c'est ca :
Me.Controls("Textbox" & i).Value
donc
Ta_variable=Me.Controls("Textbox1").value
ActiveWorkbook.SaveAs Filename:="Analyse AT n° " & Ta_variable & ".xls"
ActiveWorkbook.SaveAs Filename:="Analyse AT n° " & TextBox1 & ".xls"
visiblement la bonne écriture pour une textbox c'est ca :
Me.Controls("Textbox" & i).Value
donc
Ta_variable=Me.Controls("Textbox1").value
ActiveWorkbook.SaveAs Filename:="Analyse AT n° " & Ta_variable & ".xls"
Farfadet88
Messages postés
6293
Date d'inscription
lundi 28 janvier 2008
Statut
Membre
Dernière intervention
29 avril 2020
1 366
29 oct. 2009 à 16:08
29 oct. 2009 à 16:08
Oui c'est bon tout marche nickel
merci
merci
