supercopain
XLDnaute Junior
Bonjour à tous,
J'ai cherché une solution dans les discussions déjà ouvert, mais rien ne correspond ou alors je n'emploi pas les bons termes...
J'ai des feuilles de mesures enregistrés au format (.xltm)
A l'ouverture je souhaite qu'une boite de dialogue s'ouvre et invite le technicien à entrer un numéro à 4 chiffres, ensuite c'est la boite de dialogue "enregistrer sous" qui s'ouvre et reprend ce numéro à 4 chiffres + un nom et un chemin prédéfini.
mon problème : lancer la macro qui demande le numéro à 4 chiffres et qui "enregistre sous" (au format .xlsm)
(je l'ai mise dans le workbook open mais a chaque ouverture elle se relance...)
Ci-dessous ma macro:
Sub enregistrer()
Dim objSaveBox As FileDialog
'Enregistrement feuille de mesure
essai = InputBox("Numéro de l'essai ?", "Configuration feuille de mesure", "EXXXX")
Range("D3") = essai
'Définit la fenêtre "Enregistrer sous"
Set objSaveBox = Application.FileDialog(msoFileDialogSaveAs)
With objSaveBox
'Définit un nom par défaut dans le champ "Nom de fichier".
.InitialFileName = "Z:\Commun\R&D\Tests&Essais\En_cours\1_Essais_E\" & essai & ", mesures_" & Date & ".xlsx"
'Définit le type de fichier par défaut :
'(la valeur 4 Permet de spécifier les classeurs "Excel 97-2003" lorsque vous êtes dans Excel 2007)
.FilterIndex = 2
'Affiche la boîte de dialogue
.Show
'Enregistre
.Execute
End With
End Sub
J'ai cherché une solution dans les discussions déjà ouvert, mais rien ne correspond ou alors je n'emploi pas les bons termes...
J'ai des feuilles de mesures enregistrés au format (.xltm)
A l'ouverture je souhaite qu'une boite de dialogue s'ouvre et invite le technicien à entrer un numéro à 4 chiffres, ensuite c'est la boite de dialogue "enregistrer sous" qui s'ouvre et reprend ce numéro à 4 chiffres + un nom et un chemin prédéfini.
mon problème : lancer la macro qui demande le numéro à 4 chiffres et qui "enregistre sous" (au format .xlsm)
(je l'ai mise dans le workbook open mais a chaque ouverture elle se relance...)
Ci-dessous ma macro:
Sub enregistrer()
Dim objSaveBox As FileDialog
'Enregistrement feuille de mesure
essai = InputBox("Numéro de l'essai ?", "Configuration feuille de mesure", "EXXXX")
Range("D3") = essai
'Définit la fenêtre "Enregistrer sous"
Set objSaveBox = Application.FileDialog(msoFileDialogSaveAs)
With objSaveBox
'Définit un nom par défaut dans le champ "Nom de fichier".
.InitialFileName = "Z:\Commun\R&D\Tests&Essais\En_cours\1_Essais_E\" & essai & ", mesures_" & Date & ".xlsx"
'Définit le type de fichier par défaut :
'(la valeur 4 Permet de spécifier les classeurs "Excel 97-2003" lorsque vous êtes dans Excel 2007)
.FilterIndex = 2
'Affiche la boîte de dialogue
.Show
'Enregistre
.Execute
End With
End Sub