Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Pascal Engelmajer
Salut, pas clair du tout ... -- Amicalement. Pascal "il n'y a pas de vent favorable pour celui qui ne sait pas ou il va." Sénèque. http://www.ilyapa.net/excel "defluc" a écrit dans le message de news:
J'ai une macro auto_open dans un modèle. Elle s'exécute quand on ouvre un nouveau classeur par fichier, nouveau.
Je teste le contenu de champs nommés et demande à l'utilisateur par une inputbox de rentrer une valeur si le champs est vide.
Comment puis-je répercuter ces valeurs dans le classeur .xlt modèle ?
Merci d'avance
Salut,
pas clair du tout ...
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
"defluc" <defluc@skynet.be> a écrit dans le message de news:
OSSHmNZ7DHA.804@tk2msftngp13.phx.gbl...
J'ai une macro auto_open dans un modèle.
Elle s'exécute quand on ouvre un nouveau classeur par fichier, nouveau.
Je teste le contenu de champs nommés et demande à l'utilisateur par une
inputbox de rentrer une valeur si le champs est vide.
Comment puis-je répercuter ces valeurs dans le classeur .xlt modèle ?
Salut, pas clair du tout ... -- Amicalement. Pascal "il n'y a pas de vent favorable pour celui qui ne sait pas ou il va." Sénèque. http://www.ilyapa.net/excel "defluc" a écrit dans le message de news:
J'ai une macro auto_open dans un modèle. Elle s'exécute quand on ouvre un nouveau classeur par fichier, nouveau.
Je teste le contenu de champs nommés et demande à l'utilisateur par une inputbox de rentrer une valeur si le champs est vide.
Comment puis-je répercuter ces valeurs dans le classeur .xlt modèle ?
Merci d'avance
Frédéric Sigonneau
Bonjour,
Un exemple simple de réenregistrement d'un modèle (sa version précédente étant écrasée dans l'opération) auquel on "ajoute" une info dans la cellule A1. On suppose un modèle quelconque, qui contient cette macro Auto_Open :
'============= Sub auto_open() Dim valeur, NomModele
valeur = InputBox("Entrer une valeur quelconque") If valeur = "" Then Exit Sub Range("A1").Value = valeur NomModele = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 1) & ".xlt" ActiveWorkbook.SaveCopyAs Application.TemplatesPath & NomModele
End Sub '============= FS -- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
J'ai une macro auto_open dans un modèle. Elle s'exécute quand on ouvre un nouveau classeur par fichier, nouveau.
Je teste le contenu de champs nommés et demande à l'utilisateur par une inputbox de rentrer une valeur si le champs est vide.
Comment puis-je répercuter ces valeurs dans le classeur .xlt modèle ?
Merci d'avance
Bonjour,
Un exemple simple de réenregistrement d'un modèle (sa version précédente étant
écrasée dans l'opération) auquel on "ajoute" une info dans la cellule A1.
On suppose un modèle quelconque, qui contient cette macro Auto_Open :
'============= Sub auto_open()
Dim valeur, NomModele
valeur = InputBox("Entrer une valeur quelconque")
If valeur = "" Then Exit Sub
Range("A1").Value = valeur
NomModele = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 1) & ".xlt"
ActiveWorkbook.SaveCopyAs Application.TemplatesPath & NomModele
End Sub
'=============
FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !
J'ai une macro auto_open dans un modèle.
Elle s'exécute quand on ouvre un nouveau classeur par fichier, nouveau.
Je teste le contenu de champs nommés et demande à l'utilisateur par une
inputbox de rentrer une valeur si le champs est vide.
Comment puis-je répercuter ces valeurs dans le classeur .xlt modèle ?
Un exemple simple de réenregistrement d'un modèle (sa version précédente étant écrasée dans l'opération) auquel on "ajoute" une info dans la cellule A1. On suppose un modèle quelconque, qui contient cette macro Auto_Open :
'============= Sub auto_open() Dim valeur, NomModele
valeur = InputBox("Entrer une valeur quelconque") If valeur = "" Then Exit Sub Range("A1").Value = valeur NomModele = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 1) & ".xlt" ActiveWorkbook.SaveCopyAs Application.TemplatesPath & NomModele
End Sub '============= FS -- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
J'ai une macro auto_open dans un modèle. Elle s'exécute quand on ouvre un nouveau classeur par fichier, nouveau.
Je teste le contenu de champs nommés et demande à l'utilisateur par une inputbox de rentrer une valeur si le champs est vide.
Comment puis-je répercuter ces valeurs dans le classeur .xlt modèle ?
Merci d'avance
defluc
Je croyais qu'il y avait une solution plus élégante, mais après tout pourquoi pas ton astuce puisqu'elle fonctionne. Grand merci
Luc
"Frédéric Sigonneau" a écrit dans le message de news:
Bonjour,
Un exemple simple de réenregistrement d'un modèle (sa version précédente étant
écrasée dans l'opération) auquel on "ajoute" une info dans la cellule A1. On suppose un modèle quelconque, qui contient cette macro Auto_Open :
'============= > Sub auto_open() Dim valeur, NomModele
valeur = InputBox("Entrer une valeur quelconque") If valeur = "" Then Exit Sub Range("A1").Value = valeur NomModele = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 1) & ".xlt"
End Sub '============= > FS -- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
J'ai une macro auto_open dans un modèle. Elle s'exécute quand on ouvre un nouveau classeur par fichier, nouveau.
Je teste le contenu de champs nommés et demande à l'utilisateur par une inputbox de rentrer une valeur si le champs est vide.
Comment puis-je répercuter ces valeurs dans le classeur .xlt modèle ?
Merci d'avance
Je croyais qu'il y avait une solution plus élégante, mais après tout
pourquoi pas ton astuce puisqu'elle fonctionne.
Grand merci
Luc
"Frédéric Sigonneau" <frederic.sigonneau@wanadoo.fr> a écrit dans le message
de news: 40262F76.A8A97319@wanadoo.fr...
Bonjour,
Un exemple simple de réenregistrement d'un modèle (sa version précédente
étant
écrasée dans l'opération) auquel on "ajoute" une info dans la cellule A1.
On suppose un modèle quelconque, qui contient cette macro Auto_Open :
'============= > Sub auto_open()
Dim valeur, NomModele
valeur = InputBox("Entrer une valeur quelconque")
If valeur = "" Then Exit Sub
Range("A1").Value = valeur
NomModele = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 1) &
".xlt"
End Sub
'============= >
FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !
J'ai une macro auto_open dans un modèle.
Elle s'exécute quand on ouvre un nouveau classeur par fichier, nouveau.
Je teste le contenu de champs nommés et demande à l'utilisateur par une
inputbox de rentrer une valeur si le champs est vide.
Comment puis-je répercuter ces valeurs dans le classeur .xlt modèle ?
End Sub '============= > FS -- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
J'ai une macro auto_open dans un modèle. Elle s'exécute quand on ouvre un nouveau classeur par fichier, nouveau.
Je teste le contenu de champs nommés et demande à l'utilisateur par une inputbox de rentrer une valeur si le champs est vide.
Comment puis-je répercuter ces valeurs dans le classeur .xlt modèle ?
