pour mon travail, j'utilise fr=E9quemment des articles du=20
code civil que je dois ins=E9rer dans mes rapports.
pour l'instants, ils =E9tait tous (une 40aine) plac=E9s dans=20
un doc word, que j'ouvrais, o=F9 je selectionnais le bon=20
article, que je copiais, puis je fermer le doc, ouvrait=20
rapport. doc et collais l'article.
pour un gain de temps, j'ai cr=E9=E9 des proc=E9dures VB.
Sub CC1732()
'
ChangeFileOpenDirectory _
"\\Serveur\Articles Code Civil\"
Documents.Open FileName:=3D"1732.txt",=20
ConfirmConversions:=3DFalse, ReadOnly:=3D _
False, AddToRecentFiles:=3DFalse,=20
PasswordDocument:=3D"", PasswordTemplate:=3D _
"", Revert:=3DFalse, WritePasswordDocument:=3D"",=20
WritePasswordTemplate:=3D"", _
Format:=3DwdOpenFormatAuto
Selection.WholeStory
Selection.Copy
ActiveWindow.Close
Selection.Paste
End Sub
il subsite un probl=E8me pratique. l'ensemble coll=E9 est dans=20
la police courrier, qui doit rester par d=E9faut dans=20
notepad. mais la police copi=E9e doit l'etre en Arial.
je ne peut pas ajouter Selection.Font...=3DArial entre=20
wholestory et copy, car un message arrive quand je=20
activewindow.close.
je ne peux pas non plus faire un whole dans mon rapport,=20
car il contient plusieurs polices diff=E9rentes.
je recherche donc une solution du genre :
1) l'equivalent de DoCmd.SetWarnings False
2) changer la police apr=E8s mon paste.
Mais, vous l'aurez remarqu=E9, c'est un peu brouillon dans=20
ma t=EAte aussi bien quand je d=E9cris mon pb que quand je=20
fais mon algo, il y a peut-=EAtre qq chose de plus pratique=20
pour g=E9rer mon application (PE avec Access ou Excel)
J'ai trouvé comment résoudre mon problème par moi même, mais je n econnaissais pas
Application.DisplayAlerts = wdAlertsNone et cela m'aidera beaucoup pour mes futures macro
Il y a un principe sacro-saint en informatique : ne pas changer quelque chose qui marche sous prétexte de faire peut-être mieux.
Mais il existe également un principe sacro-saint en business : ne pas évoluer, c'est mourir!!
A+
PS: pour résoudre mon problème, j'ai simplement fait :
....Close (False).
Guy Moncomble
Bonjour à tous, dans le message : 0b0001c34ade$60d20e80$,
|| Il y a un principe sacro-saint en informatique : ne pas || changer quelque chose qui marche sous prétexte de faire || peut-être mieux. | | Mais il existe également un principe sacro-saint en | business : ne pas évoluer, c'est mourir!!
A condition de savoir faire la différence entre évolution positive et réforme catastrophique. Et en informatique, il est particulièrement simple d'aller à la catastrophe.
Pour ce qui concerne ton application qui t'oblige à ouvrir un document *à chaque fois* que tu veux insérer un article, pourquoi est-ce que tu n'as pas envisagé les insertions automatique ? ou plus simplement (?), un lien hypertexte sur ton document word initial ?
| P.-S. : pour résoudre mon problème, j'ai simplement fait : | | ....Close (False).
Voila une explication claire ! -- A+
GMO MVP Word
Et surtout : - ne lisez pas le manuel de Word, encore moins l'aide - ne réfléchissez pas au problème qui se pose à vous - expliquez le plus confusément possible les phénomènes constatés - exigez une réponse immédiate - expliquez à celui qui vous aide comment et pourquoi il aurait du appliquer *votre* solution (qui évidemment ne marche pas) - niez l'évidence : la solution qu'un bénévole a parfois mis des heures à mettre au point ne marche pas chez vous qui l'appliquez mal depuis 2 minutes. - ne dites ni bonjour ni merci - ne perdez pas la face : ne faites savoir à personne que vous avez été dépanné
- insultez les contributeurs bénévoles, ils ne veulent pas l'avouer, mais ils adorent cela. Si c'est un MVP vous avez un bonus.
Bonjour à tous,
dans le message : 0b0001c34ade$60d20e80$a501280a@phx.gbl,
|| Il y a un principe sacro-saint en informatique : ne pas
|| changer quelque chose qui marche sous prétexte de faire
|| peut-être mieux.
|
| Mais il existe également un principe sacro-saint en
| business : ne pas évoluer, c'est mourir!!
A condition de savoir faire la différence entre évolution positive et
réforme catastrophique. Et en informatique, il est particulièrement
simple d'aller à la catastrophe.
Pour ce qui concerne ton application qui t'oblige à ouvrir un document
*à chaque fois* que tu veux insérer un article, pourquoi est-ce que tu
n'as pas envisagé les insertions automatique ? ou plus simplement (?),
un lien hypertexte sur ton document word initial ?
| P.-S. : pour résoudre mon problème, j'ai simplement fait :
|
| ....Close (False).
Voila une explication claire !
--
A+
GMO MVP Word
Et surtout :
- ne lisez pas le manuel de Word, encore moins l'aide
- ne réfléchissez pas au problème qui se pose à vous
- expliquez le plus confusément possible les phénomènes constatés
- exigez une réponse immédiate
- expliquez à celui qui vous aide comment et pourquoi il aurait
du appliquer *votre* solution (qui évidemment ne marche pas)
- niez l'évidence : la solution qu'un bénévole a parfois mis des
heures à mettre au point ne marche pas chez vous qui l'appliquez mal
depuis 2 minutes.
- ne dites ni bonjour ni merci
- ne perdez pas la face : ne faites savoir à personne que vous
avez été dépanné
- insultez les contributeurs bénévoles, ils ne veulent pas
l'avouer, mais ils adorent cela. Si c'est un MVP vous avez un bonus.
Bonjour à tous, dans le message : 0b0001c34ade$60d20e80$,
|| Il y a un principe sacro-saint en informatique : ne pas || changer quelque chose qui marche sous prétexte de faire || peut-être mieux. | | Mais il existe également un principe sacro-saint en | business : ne pas évoluer, c'est mourir!!
A condition de savoir faire la différence entre évolution positive et réforme catastrophique. Et en informatique, il est particulièrement simple d'aller à la catastrophe.
Pour ce qui concerne ton application qui t'oblige à ouvrir un document *à chaque fois* que tu veux insérer un article, pourquoi est-ce que tu n'as pas envisagé les insertions automatique ? ou plus simplement (?), un lien hypertexte sur ton document word initial ?
| P.-S. : pour résoudre mon problème, j'ai simplement fait : | | ....Close (False).
Voila une explication claire ! -- A+
GMO MVP Word
Et surtout : - ne lisez pas le manuel de Word, encore moins l'aide - ne réfléchissez pas au problème qui se pose à vous - expliquez le plus confusément possible les phénomènes constatés - exigez une réponse immédiate - expliquez à celui qui vous aide comment et pourquoi il aurait du appliquer *votre* solution (qui évidemment ne marche pas) - niez l'évidence : la solution qu'un bénévole a parfois mis des heures à mettre au point ne marche pas chez vous qui l'appliquez mal depuis 2 minutes. - ne dites ni bonjour ni merci - ne perdez pas la face : ne faites savoir à personne que vous avez été dépanné
- insultez les contributeurs bénévoles, ils ne veulent pas l'avouer, mais ils adorent cela. Si c'est un MVP vous avez un bonus.
Véro
Bonjour, Pourquoi ne pas utiliser les insertions automatiques ? ;-)
-----Message d'origine----- bonjour,
pour mon travail, j'utilise fréquemment des articles du code civil que je dois insérer dans mes rapports.
pour l'instants, ils était tous (une 40aine) placés dans un doc word, que j'ouvrais, où je selectionnais le bon article, que je copiais, puis je fermer le doc, ouvrait rapport. doc et collais l'article.
pour un gain de temps, j'ai créé des procédures VB.
Sub CC1732() ' ChangeFileOpenDirectory _ "ServeurArticles Code Civil" Documents.Open FileName:="1732.txt", ConfirmConversions:úlse, ReadOnly:= _ False, AddToRecentFiles:úlse, PasswordDocument:="", PasswordTemplate:= _ "", Revert:úlse, WritePasswordDocument:="", WritePasswordTemplate:="", _ Format:=wdOpenFormatAuto Selection.WholeStory Selection.Copy ActiveWindow.Close Selection.Paste End Sub
il subsite un problème pratique. l'ensemble collé est dans
la police courrier, qui doit rester par défaut dans notepad. mais la police copiée doit l'etre en Arial. je ne peut pas ajouter Selection.Font...=Arial entre wholestory et copy, car un message arrive quand je activewindow.close. je ne peux pas non plus faire un whole dans mon rapport, car il contient plusieurs polices différentes.
je recherche donc une solution du genre : 1) l'equivalent de DoCmd.SetWarnings False 2) changer la police après mon paste.
Mais, vous l'aurez remarqué, c'est un peu brouillon dans ma tête aussi bien quand je décris mon pb que quand je fais mon algo, il y a peut-être qq chose de plus pratique pour gérer mon application (PE avec Access ou Excel)
Merci
.
Bonjour,
Pourquoi ne pas utiliser les insertions automatiques ? ;-)
-----Message d'origine-----
bonjour,
pour mon travail, j'utilise fréquemment des articles du
code civil que je dois insérer dans mes rapports.
pour l'instants, ils était tous (une 40aine) placés dans
un doc word, que j'ouvrais, où je selectionnais le bon
article, que je copiais, puis je fermer le doc, ouvrait
rapport. doc et collais l'article.
pour un gain de temps, j'ai créé des procédures VB.
Sub CC1732()
'
ChangeFileOpenDirectory _
"\ServeurArticles Code Civil"
Documents.Open FileName:="1732.txt",
ConfirmConversions:=False, ReadOnly:= _
False, AddToRecentFiles:=False,
PasswordDocument:="", PasswordTemplate:= _
"", Revert:=False, WritePasswordDocument:="",
WritePasswordTemplate:="", _
Format:=wdOpenFormatAuto
Selection.WholeStory
Selection.Copy
ActiveWindow.Close
Selection.Paste
End Sub
il subsite un problème pratique. l'ensemble collé est
dans
la police courrier, qui doit rester par défaut dans
notepad. mais la police copiée doit l'etre en Arial.
je ne peut pas ajouter Selection.Font...=Arial entre
wholestory et copy, car un message arrive quand je
activewindow.close.
je ne peux pas non plus faire un whole dans mon rapport,
car il contient plusieurs polices différentes.
je recherche donc une solution du genre :
1) l'equivalent de DoCmd.SetWarnings False
2) changer la police après mon paste.
Mais, vous l'aurez remarqué, c'est un peu brouillon dans
ma tête aussi bien quand je décris mon pb que quand je
fais mon algo, il y a peut-être qq chose de plus pratique
pour gérer mon application (PE avec Access ou Excel)
Bonjour, Pourquoi ne pas utiliser les insertions automatiques ? ;-)
-----Message d'origine----- bonjour,
pour mon travail, j'utilise fréquemment des articles du code civil que je dois insérer dans mes rapports.
pour l'instants, ils était tous (une 40aine) placés dans un doc word, que j'ouvrais, où je selectionnais le bon article, que je copiais, puis je fermer le doc, ouvrait rapport. doc et collais l'article.
pour un gain de temps, j'ai créé des procédures VB.
Sub CC1732() ' ChangeFileOpenDirectory _ "ServeurArticles Code Civil" Documents.Open FileName:="1732.txt", ConfirmConversions:úlse, ReadOnly:= _ False, AddToRecentFiles:úlse, PasswordDocument:="", PasswordTemplate:= _ "", Revert:úlse, WritePasswordDocument:="", WritePasswordTemplate:="", _ Format:=wdOpenFormatAuto Selection.WholeStory Selection.Copy ActiveWindow.Close Selection.Paste End Sub
il subsite un problème pratique. l'ensemble collé est dans
la police courrier, qui doit rester par défaut dans notepad. mais la police copiée doit l'etre en Arial. je ne peut pas ajouter Selection.Font...=Arial entre wholestory et copy, car un message arrive quand je activewindow.close. je ne peux pas non plus faire un whole dans mon rapport, car il contient plusieurs polices différentes.
je recherche donc une solution du genre : 1) l'equivalent de DoCmd.SetWarnings False 2) changer la police après mon paste.
Mais, vous l'aurez remarqué, c'est un peu brouillon dans ma tête aussi bien quand je décris mon pb que quand je fais mon algo, il y a peut-être qq chose de plus pratique pour gérer mon application (PE avec Access ou Excel)
