MACRO sélectionner un enregistrement d'un document fusionné

J'AI TROUVE !!!
Bonjour,
TOUTE SEULEUH... comme dirait mon petit-fils (mon pseudo aurait pu être mamy ou mémé).
Il fallait définir autant de variables que de fichiers mais en donnant aux variables de 2 à 9 la valeur de la première !!!
C'était juste une question de logique.
En tout cas si j'y ai passé du temps, ça va me faire gagner un bon nombre d'heures de travail pour les années qui viennent.
Un grand merci à Eric

Good :-)
bonne continuation
eric

En fait, je mets quoi en place et lieu des pointillés ?
J'avais prévenu que j'étais ignorante .. désolée.

ben ton code, il ne fait pas que 3 lignes je suppose.
eric

non 25, si on parle bien de la même chose

pour info voilà un extrait de la macro originale :

Documents.Open FileName:="""C:\Mon fichier-1ère partie.doc""", _
ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _
PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
wdOpenFormatAuto, XMLTransform:=""
With ActiveDocument.MailMerge
.Destination = wdSendToNewDocument
.SuppressBlankLines = True
With .DataSource
.FirstRecord = 1
.LastRecord = 1
End With
.Execute Pause:=False
End With
ActiveDocument.SaveAs FileName:="MF 1ère partie.doc", FileFormat:= _
wdFormatDocument, LockComments:=False, Password:="", AddToRecentFiles:= _
True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _
False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
SaveAsAOCELetter:=False
Documents.Open FileName:="""Mon fichier-2ème partie.doc""", _
ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _
PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
wdOpenFormatAuto, XMLTransform:=""
With ActiveDocument.MailMerge
.Destination = wdSendToNewDocument
.SuppressBlankLines = True
With .DataSource
.FirstRecord = 1
.LastRecord = 1
End With
.Execute Pause:=False
End With
ActiveDocument.SaveAs FileName:="MF 2ème partie.doc", FileFormat:= _
wdFormatDocument, LockComments:=False, Password:="", AddToRecentFiles:= _
True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _
False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
SaveAsAOCELetter:=False

ETC.. jusqu'à Mon fichier-9ème partie.doc


End Sub

et bien tu mets

dim numEnr as long 
numEnr = Application.InputBox("Numero d'enregistrement", "Saisie numéro", Type:=1)  

tout au début,
et tu remplaces partout :

.FirstRecord = 1 
.LastRecord = 1  

par :

.FirstRecord = numEnr 
.LastRecord = numEnr  

Au début le programme te demandera le n° voulu et il sera remplacé par ta saisie dans .FirstRecord et .LastRecord
Essaie sur une copie car je ne connais pas les macros word.

eric

Merci de ta patience ...

Voilà donc ce que j'ai fait, mais j'ai le même message avec "InputBox" surligné.
Qu'en penses-tu ?

Documents.Open FileName:="""Manuel-systeme-1ère partie.doc""", _
ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _
PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
wdOpenFormatAuto, XMLTransform:=""
Dim numEnr As Long
numEnr = Application.InputBox("Numero d'enregistrement", "Saisie numéro", Type:=1)
With ActiveDocument.MailMerge
.Destination = wdSendToNewDocument
.SuppressBlankLines = True
With .DataSource
.FirstRecord = numEnr
.LastRecord = numEnr
End With
ActiveDocument.SaveAs FileName:="MAS 1ère partie.doc", FileFormat:= _
wdFormatDocument, LockComments:=False, Password:="", AddToRecentFiles:= _
True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _
False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
SaveAsAOCELetter:=False
ActiveWindow.Close