Je voudrais utiliser une macro que j'ai prise sur le site de la faq
Sub AutoNew()
num =
ActiveDocument.AttachedTemplate.AutoTextEntries("numéro").Value:
num = num + 1
ActiveDocument.AttachedTemplate.AutoTextEntries("numéro").Value = num
With Selection
.GoTo What:=wdGoToBookmark, Name:="bmNum"
.TypeText Text:="2003-" & Right("0000" & num, 4)
End With
ActiveDocument.SaveAs FileName:="Bordereau d'envoi-2003-" & num &
".doc"
End Sub
1 - Mais je voudrais pouvoir l'utiliser dans un modèle avec des champs
formulaire.
Plus précisement utiliser un champs de numérotation automatique
utilisant la macro ci-dessus
2 - Que le document s'enregistre dans un dossier bien déterminé (ex:
d:\be 2004
Mon problème c'est que je ne sais pas faire
Merci d'avance de votre aide
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
Geo
Bonjour Jacquouille,
Bonjour,
Je voudrais utiliser une macro que j'ai prise sur le site de la faq [...]
1 - Mais je voudrais pouvoir l'utiliser dans un modèle avec des champs
formulaire. Plus précisement utiliser un champs de numérotation automatique utilisant la macro ci-dessus 2 - Que le document s'enregistre dans un dossier bien déterminé (ex: d:be 2004 Mon problème c'est que je ne sais pas faire
Je connais la réponse n°2 :-)
ActiveDocument.SaveAs FileName:="d:be 2004Bordereau d'envoi-2003-" & num & ".doc"
Sur une seule ligne, oui, bon 2003 il en reste plus grand chose.
--
A+
Bonjour Jacquouille,
Bonjour,
Je voudrais utiliser une macro que j'ai prise sur le site de la faq
[...]
1 - Mais je voudrais pouvoir l'utiliser dans un modèle avec des
champs
formulaire.
Plus précisement utiliser un champs de numérotation automatique
utilisant la macro ci-dessus
2 - Que le document s'enregistre dans un dossier bien déterminé (ex:
d:be 2004
Mon problème c'est que je ne sais pas faire
Je connais la réponse n°2 :-)
ActiveDocument.SaveAs FileName:="d:be 2004Bordereau d'envoi-2003-"
& num & ".doc"
Sur une seule ligne,
oui, bon 2003 il en reste plus grand chose.
Je voudrais utiliser une macro que j'ai prise sur le site de la faq [...]
1 - Mais je voudrais pouvoir l'utiliser dans un modèle avec des champs
formulaire. Plus précisement utiliser un champs de numérotation automatique utilisant la macro ci-dessus 2 - Que le document s'enregistre dans un dossier bien déterminé (ex: d:be 2004 Mon problème c'est que je ne sais pas faire
Je connais la réponse n°2 :-)
ActiveDocument.SaveAs FileName:="d:be 2004Bordereau d'envoi-2003-" & num & ".doc"
Sur une seule ligne, oui, bon 2003 il en reste plus grand chose.
--
A+
Anacoluthe
Bonjour !
'Jacquouille' nous a écrit ...
Je voudrais utiliser une macro que j'ai prise sur le site de la faq Mais je voudrais pouvoir l'utiliser dans un modèle avec des champs formulaire.
Placez dans votre modèle de formulaire - un champ de formulaire avec pour Propriétés (clic droit/Propriétés) . signet : numero . remplissage activé : décoché - une insertion automatique nommée Numéro contenant un nombre ex: 1234 (si l'IA est dans Normal.dot la déplacer dans votre modèle avec Outils / Macros et compléments / Organiser) - la macro AutoNew ainsi modifiée d'après celle de la FAQ :
Public Sub AutoNew() num = ActiveDocument.AttachedTemplate.AutoTextEntries("Numéro").Value num = num + 1 ActiveDocument.AttachedTemplate.AutoTextEntries("Numéro").Value = num ActiveDocument.FormFields("numero").Result = Right("0000" & num, 4) End Sub
Verrouillez le formulaire modèle Il faudra accepter d'enregistrer le modèle après chaque création d'un formulaire pour que le compteur Numéro soit incrémenté.
Anacoluthe « Mon âme épuise le champ du possible. » - PINDARE
Bonjour !
'Jacquouille' nous a écrit ...
Je voudrais utiliser une macro que j'ai prise sur le site de la faq
Mais je voudrais pouvoir l'utiliser dans un modèle avec des champs
formulaire.
Placez dans votre modèle de formulaire
- un champ de formulaire avec pour Propriétés (clic droit/Propriétés)
. signet : numero
. remplissage activé : décoché
- une insertion automatique nommée Numéro contenant un nombre ex: 1234
(si l'IA est dans Normal.dot la déplacer dans votre modèle
avec Outils / Macros et compléments / Organiser)
- la macro AutoNew ainsi modifiée d'après celle de la FAQ :
Public Sub AutoNew()
num = ActiveDocument.AttachedTemplate.AutoTextEntries("Numéro").Value
num = num + 1
ActiveDocument.AttachedTemplate.AutoTextEntries("Numéro").Value = num
ActiveDocument.FormFields("numero").Result = Right("0000" & num, 4)
End Sub
Verrouillez le formulaire modèle
Il faudra accepter d'enregistrer le modèle après chaque création
d'un formulaire pour que le compteur Numéro soit incrémenté.
Anacoluthe
« Mon âme épuise le champ
du possible. »
- PINDARE
Je voudrais utiliser une macro que j'ai prise sur le site de la faq Mais je voudrais pouvoir l'utiliser dans un modèle avec des champs formulaire.
Placez dans votre modèle de formulaire - un champ de formulaire avec pour Propriétés (clic droit/Propriétés) . signet : numero . remplissage activé : décoché - une insertion automatique nommée Numéro contenant un nombre ex: 1234 (si l'IA est dans Normal.dot la déplacer dans votre modèle avec Outils / Macros et compléments / Organiser) - la macro AutoNew ainsi modifiée d'après celle de la FAQ :
Public Sub AutoNew() num = ActiveDocument.AttachedTemplate.AutoTextEntries("Numéro").Value num = num + 1 ActiveDocument.AttachedTemplate.AutoTextEntries("Numéro").Value = num ActiveDocument.FormFields("numero").Result = Right("0000" & num, 4) End Sub
Verrouillez le formulaire modèle Il faudra accepter d'enregistrer le modèle après chaque création d'un formulaire pour que le compteur Numéro soit incrémenté.
Anacoluthe « Mon âme épuise le champ du possible. » - PINDARE
