J'ai une macro qui fusionne un document vers un nouveau=20
document et effectue des traitements sur ce dernier.=20
Lorsqu'elle arrive =E0 la fin de la proc=E9dure, elle=20
recommence au d=E9but et me fusionne un 2=E8me document et=20
recommence tous les traitements.=20
Quelqu'un sait pourquoi elle ne s'arr=EAte pas ?
Quelqu'un aurait une solution =E0 mon probl=E8me.=20
"Joc" a écrit dans le message de news:1dec01c3fc36$8ee60a60$
Bonjour,
J'ai une macro qui fusionne un document vers un nouveau document et effectue des traitements sur ce dernier.
Lorsqu'elle arrive à la fin de la procédure, elle recommence au début et me fusionne un 2ème document et recommence tous les traitements.
Quelqu'un sait pourquoi elle ne s'arrête pas ? Quelqu'un aurait une solution à mon problème.
Merci d'avance.
Joce
Joc
Il ne me semble pas que je le lui demande... Voici mon code :
Sub PlanHoraire_pm() Dim nb_tab As Integer Dim nb_row As Integer Dim nb_tab2 As Integer Dim t2 As Integer Dim t As Integer Dim i As Integer Dim text As String Dim text_old t = 1 i = 4 CommandBars("Mail Merge").Visible = False Call FusionVersDoc Call SupprimeSautSection(2) Call SupprimeCelluleFin(1) Call MiseEnPagePlanHoraire
'enregistrer le document fusionnée et mis en page ChangeFileOpenDirectory "C:locauxlocaux_lettres" ActiveDocument.SaveAs FileName:="plan_horaire_pm_lettre.doc", FileFormat:=wdFormatDocument, _ LockComments:úlse, Password:="", AddToRecentFiles:=True, WritePassword _ :="", ReadOnlyRecommended:úlse, EmbedTrueTypeFonts:úlse, _ SaveNativePictureFormat:úlse, SaveFormsData:úlse, SaveAsAOCELetter:= _ False wdDoNotSaveChanges
'fermeture des documents modèles Documents("plan_horaire_am.doc").Close SaveChanges:=wdDoNotSaveChanges
End Sub
Sur l'AutoClose du "plan_horaire_am.doc" j'ai le code suivant : Sub AutoClose() Application.Run MacroName:="ClosePlanHoraire_pm" End Sub
Je m'explique : en fait j'ai un premier document "plan_horaire_am.doc" que je fusionne vers un autre document et que je mets en page. Lorsque ce document est mis en page, il ouvre "plan_horaire_pm.doc" que je fusionne également vers un autre document et mets en page.
A la fin de l'éxécution de ce deuxième document, comme tu peux le voir dans mon code, je ferme "plan_horaire_am.doc" qui lui-même devrait fermer "plan_horaire_pm.doc".
Le problème est que au lieu de fermer "plan_horaire_am.doc" , il recommence la fusion et la mise en page etc.
Je ne comprends pas pourquoi...
Il ne me semble pas que je le lui demande...
Voici mon code :
Sub PlanHoraire_pm()
Dim nb_tab As Integer
Dim nb_row As Integer
Dim nb_tab2 As Integer
Dim t2 As Integer
Dim t As Integer
Dim i As Integer
Dim text As String
Dim text_old
t = 1
i = 4
CommandBars("Mail Merge").Visible = False
Call FusionVersDoc
Call SupprimeSautSection(2)
Call SupprimeCelluleFin(1)
Call MiseEnPagePlanHoraire
'enregistrer le document fusionnée et mis en page
ChangeFileOpenDirectory "C:locauxlocaux_lettres"
ActiveDocument.SaveAs
FileName:="plan_horaire_pm_lettre.doc",
FileFormat:=wdFormatDocument, _
LockComments:=False, Password:="",
AddToRecentFiles:=True, WritePassword _
:="", ReadOnlyRecommended:=False,
EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False,
SaveFormsData:=False, SaveAsAOCELetter:= _
False
wdDoNotSaveChanges
'fermeture des documents modèles
Documents("plan_horaire_am.doc").Close
SaveChanges:=wdDoNotSaveChanges
End Sub
Sur l'AutoClose du "plan_horaire_am.doc" j'ai le code
suivant :
Sub AutoClose()
Application.Run MacroName:="ClosePlanHoraire_pm"
End Sub
Je m'explique : en fait j'ai un premier
document "plan_horaire_am.doc" que je fusionne vers un
autre document et que je mets en page.
Lorsque ce document est mis en page, il
ouvre "plan_horaire_pm.doc" que je fusionne également vers
un autre document et mets en page.
A la fin de l'éxécution de ce deuxième document, comme tu
peux le voir dans mon code, je ferme "plan_horaire_am.doc"
qui lui-même devrait fermer "plan_horaire_pm.doc".
Le problème est que au lieu de
fermer "plan_horaire_am.doc" , il recommence la fusion et
la mise en page etc.
Il ne me semble pas que je le lui demande... Voici mon code :
Sub PlanHoraire_pm() Dim nb_tab As Integer Dim nb_row As Integer Dim nb_tab2 As Integer Dim t2 As Integer Dim t As Integer Dim i As Integer Dim text As String Dim text_old t = 1 i = 4 CommandBars("Mail Merge").Visible = False Call FusionVersDoc Call SupprimeSautSection(2) Call SupprimeCelluleFin(1) Call MiseEnPagePlanHoraire
'enregistrer le document fusionnée et mis en page ChangeFileOpenDirectory "C:locauxlocaux_lettres" ActiveDocument.SaveAs FileName:="plan_horaire_pm_lettre.doc", FileFormat:=wdFormatDocument, _ LockComments:úlse, Password:="", AddToRecentFiles:=True, WritePassword _ :="", ReadOnlyRecommended:úlse, EmbedTrueTypeFonts:úlse, _ SaveNativePictureFormat:úlse, SaveFormsData:úlse, SaveAsAOCELetter:= _ False wdDoNotSaveChanges
'fermeture des documents modèles Documents("plan_horaire_am.doc").Close SaveChanges:=wdDoNotSaveChanges
End Sub
Sur l'AutoClose du "plan_horaire_am.doc" j'ai le code suivant : Sub AutoClose() Application.Run MacroName:="ClosePlanHoraire_pm" End Sub
Je m'explique : en fait j'ai un premier document "plan_horaire_am.doc" que je fusionne vers un autre document et que je mets en page. Lorsque ce document est mis en page, il ouvre "plan_horaire_pm.doc" que je fusionne également vers un autre document et mets en page.
A la fin de l'éxécution de ce deuxième document, comme tu peux le voir dans mon code, je ferme "plan_horaire_am.doc" qui lui-même devrait fermer "plan_horaire_pm.doc".
Le problème est que au lieu de fermer "plan_horaire_am.doc" , il recommence la fusion et la mise en page etc.
