J'ai un modèle avec cette macro
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
mais existe t il un moyen pour que le fichier ne s'enregistre pas
automatiquement mais que ce soit la boite de dialogue enregistrer sous
qui s'ouvre.
Merci d'avance
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
Anacoluthe
Bonjour !
'Jacquouille' nous a écrit ...
J'ai un modèle avec cette macro 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 mais existe t il un moyen pour que le fichier ne s'enregistre pas automatiquement mais que ce soit la boite de dialogue enregistrer sous qui s'ouvre.
Je ne comprends pas bien ta question :-/ Au terme de cette macro, il y a deux fichiers à enregistrer : - le modèle (éventuellement Normal.dot) qui possède une insertion automatique modifiée - le document encore 'vide' qui vient d'être créé. Si tu souhaites pré-enregistrer ce document avec le 'Numéro' ajoute quelque chose comme ça :
With Application.Dialogs(wdDialogFileSaveAs) .Name = "Rapport" & Right("0000" & num, 4) .Show End With
Anacoluthe « Je ne cherche pas à connaître les réponses, je cherche à comprendre les questions. » - CONFUCIUS
Bonjour !
'Jacquouille' nous a écrit ...
J'ai un modèle avec cette macro
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
mais existe t il un moyen pour que le fichier ne s'enregistre pas
automatiquement mais que ce soit la boite de dialogue enregistrer sous
qui s'ouvre.
Je ne comprends pas bien ta question :-/
Au terme de cette macro, il y a deux fichiers à enregistrer :
- le modèle (éventuellement Normal.dot) qui possède une insertion
automatique modifiée
- le document encore 'vide' qui vient d'être créé.
Si tu souhaites pré-enregistrer ce document avec le 'Numéro'
ajoute quelque chose comme ça :
With Application.Dialogs(wdDialogFileSaveAs)
.Name = "Rapport" & Right("0000" & num, 4)
.Show
End With
Anacoluthe
« Je ne cherche pas à connaître les réponses,
je cherche à comprendre les questions. »
- CONFUCIUS
J'ai un modèle avec cette macro 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 mais existe t il un moyen pour que le fichier ne s'enregistre pas automatiquement mais que ce soit la boite de dialogue enregistrer sous qui s'ouvre.
Je ne comprends pas bien ta question :-/ Au terme de cette macro, il y a deux fichiers à enregistrer : - le modèle (éventuellement Normal.dot) qui possède une insertion automatique modifiée - le document encore 'vide' qui vient d'être créé. Si tu souhaites pré-enregistrer ce document avec le 'Numéro' ajoute quelque chose comme ça :
With Application.Dialogs(wdDialogFileSaveAs) .Name = "Rapport" & Right("0000" & num, 4) .Show End With
Anacoluthe « Je ne cherche pas à connaître les réponses, je cherche à comprendre les questions. » - CONFUCIUS
Jacquouille Le Gaulois
Anacoluthe a émis l'idée suivante :
Bonjour !
'Jacquouille' nous a écrit ...
J'ai un modèle avec cette macro 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 mais existe t il un moyen pour que le fichier ne s'enregistre pas automatiquement mais que ce soit la boite de dialogue enregistrer sous qui s'ouvre.
Je ne comprends pas bien ta question :-/ Au terme de cette macro, il y a deux fichiers à enregistrer : - le modèle (éventuellement Normal.dot) qui possède une insertion automatique modifiée - le document encore 'vide' qui vient d'être créé. Si tu souhaites pré-enregistrer ce document avec le 'Numéro' ajoute quelque chose comme ça :
With Application.Dialogs(wdDialogFileSaveAs) .Name = "Rapport" & Right("0000" & num, 4) .Show End With
Anacoluthe « Je ne cherche pas à connaître les réponses, je cherche à comprendre les questions. » - CONFUCIUS
J'ai un modèle avec cette macro
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
mais existe t il un moyen pour que le fichier ne s'enregistre pas
automatiquement mais que ce soit la boite de dialogue enregistrer sous qui
s'ouvre.
Je ne comprends pas bien ta question :-/
Au terme de cette macro, il y a deux fichiers à enregistrer :
- le modèle (éventuellement Normal.dot) qui possède une insertion
automatique modifiée
- le document encore 'vide' qui vient d'être créé.
Si tu souhaites pré-enregistrer ce document avec le 'Numéro'
ajoute quelque chose comme ça :
With Application.Dialogs(wdDialogFileSaveAs)
.Name = "Rapport" & Right("0000" & num, 4)
.Show
End With
Anacoluthe
« Je ne cherche pas à connaître les réponses,
je cherche à comprendre les questions. »
- CONFUCIUS
J'ai un modèle avec cette macro 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 mais existe t il un moyen pour que le fichier ne s'enregistre pas automatiquement mais que ce soit la boite de dialogue enregistrer sous qui s'ouvre.
Je ne comprends pas bien ta question :-/ Au terme de cette macro, il y a deux fichiers à enregistrer : - le modèle (éventuellement Normal.dot) qui possède une insertion automatique modifiée - le document encore 'vide' qui vient d'être créé. Si tu souhaites pré-enregistrer ce document avec le 'Numéro' ajoute quelque chose comme ça :
With Application.Dialogs(wdDialogFileSaveAs) .Name = "Rapport" & Right("0000" & num, 4) .Show End With
Anacoluthe « Je ne cherche pas à connaître les réponses, je cherche à comprendre les questions. » - CONFUCIUS
