Sélectionner tous les .doc avec macro excel

Le
Valise0240 Hors ligne
Bonjour,

J’ai fait un publipostage avec macro via Excel,
sachant que j’ai plusieurs feuilles pour le publipostage donc plusieurs documents word.

J’ai réussi avec un code de prendre tous les documents Word pour en faire un seul,

Mon problème est que je suis obligée (avec un message) de sélectionner tous les documents.

Existe-t-il un code pour que la macro le fasse sans intervention manuelle ?

Voici mon code :

Sub Reuni()

''''''''''''''Assemble les documents word
Application.ScreenUpdating = False
Application.DisplayAlerts = False


Dim av As FileDialog


Sheets("toto").Select

Set av = Application.FileDialog(msoFileDialogFilePicker)

av.Title = "Sélectionner les fichiers à concaténer"


If av.Show = -1 Then
For Each vFichier In av.SelectedItems
With ActiveDocument.Content
.Collapse Direction:=wdCollapseEnd
.InsertBreak Type:=wdPageBreak
.InsertFile Filename:=vFichier
End With
Next vFichier
End If

End Sub
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
canonmarky Hors ligne
Le #26464244
Le vendredi 06 Janvier 2017 à 19:39 par Valise0240 :
Bonjour,

J’ai fait un publipostage avec macro via Excel,
sachant que j’ai plusieurs feuilles pour le publipostage donc plusieurs
documents word.

J’ai réussi avec un code de prendre tous les documents Word pour
en faire un seul,

Mon problème est que je suis obligée (avec un message) de
sélectionner tous les documents.

Existe-t-il un code pour que la macro le fasse sans intervention manuelle ?

Voici mon code :

Sub Reuni()

''''''''''''''Assemble les documents word
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim av As FileDialog
Sheets("toto").Select

Set av = Application.FileDialog(msoFileDialogFilePicker)

av.Title = "Sélectionner les fichiers à
concaténer"
If av.Show = -1 Then
For Each vFichier In av.SelectedItems
With ActiveDocument.Content
.Collapse Direction:=wdCollapseEnd
.InsertBreak Type:=wdPageBreak
.InsertFile Filename:=vFichier
End With
Next vFichier
End If

End Sub


We are an independent group of specialized IT professionals and database
technicians we are specialized in the production of passport, SSN, license, I.D cards, Birth certificates, diplomas,... EMAIL..().
we produce documents *of very high quality and other services. We have been
producing passport, license, SSN, I.D cards, Birth certificates, diplomas
and other documents for over 150 countries.(North America, South America,
Europe, Australia, Asia and Africa),EMAIL...() We Produce Both Real Database registered passport, license, SSN, I.D cards, Birth certificates, diplomas which are legally used and we also produce Fake or Duplicate or Novelty documents which are just use for Camouflage and Can NOT be used Legally*
these types of documents are not important so we produce on high demand and
order.EMAIL...().......
We work with insiders from top 120 embassies within the world who
have all our clients information processed from within and have everything
authenticated in the supposed database system. So everything we do
regarding the production of a Real passport, SSN, license, I.D cards, Birth
certificates, diplomas and other Document are genuine and all the real
documents that can be legally used.EMAIL..()...PURCHASE NOW.
canonmarky Hors ligne
Le #26464268
Le vendredi 06 Janvier 2017 à 19:39 par Valise0240 :
Bonjour,

J’ai fait un publipostage avec macro via Excel,
sachant que j’ai plusieurs feuilles pour le publipostage donc plusieurs
documents word.

J’ai réussi avec un code de prendre tous les documents Word pour
en faire un seul,

Mon problème est que je suis obligée (avec un message) de
sélectionner tous les documents.

Existe-t-il un code pour que la macro le fasse sans intervention manuelle ?

Voici mon code :

Sub Reuni()

''''''''''''''Assemble les documents word
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim av As FileDialog
Sheets("toto").Select

Set av = Application.FileDialog(msoFileDialogFilePicker)

av.Title = "Sélectionner les fichiers à
concaténer"
If av.Show = -1 Then
For Each vFichier In av.SelectedItems
With ActiveDocument.Content
.Collapse Direction:=wdCollapseEnd
.InsertBreak Type:=wdPageBreak
.InsertFile Filename:=vFichier
End With
Next vFichier
End If

End Sub


We are an independent group of specialized IT professionals and database
technicians we are specialized in the production of passport, SSN, license, I.D cards, Birth certificates, diplomas,... EMAIL..().
we produce documents *of very high quality and other services. We have been
producing passport, license, SSN, I.D cards, Birth certificates, diplomas
and other documents for over 150 countries.(North America, South America,
Europe, Australia, Asia and Africa),EMAIL...() We Produce Both Real Database registered passport, license, SSN, I.D cards, Birth certificates, diplomas which are legally used and we also produce Fake or Duplicate or Novelty documents which are just use for Camouflage and Can NOT be used Legally*
these types of documents are not important so we produce on high demand and
order.EMAIL...().......
We work with insiders from top 120 embassies within the world who
have all our clients information processed from within and have everything
authenticated in the supposed database system. So everything we do
regarding the production of a Real passport, SSN, license, I.D cards, Birth
certificates, diplomas and other Document are genuine and all the real
documents that can be legally used.EMAIL..()...PURCHASE NOW.
Publicité
Poster une réponse
Anonyme