Macro qui enregistre.
Résolu
Farfadet88
Messages postés
7780
Date d'inscription
Statut
Membre
Dernière intervention
-
Farfadet88 Messages postés 7780 Date d'inscription Statut Membre Dernière intervention -
Farfadet88 Messages postés 7780 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
J'ai créé une macro qui enregistre des fichiers Excel.
Toutefois, j'aimerais qu'elle les enregistre sous le nom:
"Analyse de l'AT n°" et à la suite le numéro présent dans ma textbox1.
Comment faire?
J'ai créé une macro qui enregistre des fichiers Excel.
Toutefois, j'aimerais qu'elle les enregistre sous le nom:
"Analyse de l'AT n°" et à la suite le numéro présent dans ma textbox1.
Comment faire?
A voir également:
- Macro qui enregistre.
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Jitbit macro recorder - Télécharger - Confidentialité
- Mot de passe enregistré chrome android - Guide
- Macro maker - Télécharger - Divers Utilitaires
9 réponses
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.
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
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
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
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"
