OVH Cloud OVH Cloud

ScreenUpDating

7 réponses
Avatar
René
qq'un peut il me dire s'il existe sous VBA Access une fonction equivalente à
Application.ScreenUpDating = false
existant sous Excel
Merci beaucoup

7 réponses

Avatar
3stone
Salut,

"René"
| qq'un peut il me dire s'il existe sous VBA Access une fonction equivalente à
| Application.ScreenUpDating = false
| existant sous Excel


Voir Echo False


--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
Conseils MPFA: http://www.mpfa.info/
Avatar
René
Merci mais je cherche pour Access idem que : Application.ScreenUpdating =
False 'Désactivation du rafraîchissement d'écran
pour masquer les actions suivantes :

OuvreWord = "C:Program FilesMicrosoft OfficeOffice11winword.exe"
Call Shell(OuvreWord)

stDocName = "Fiche PNT Export"
DoCmd.OpenReport stDocName, A_PREVIEW, , "FNuméro=" & Me!FNuméro
DoCmd.OutputTo acReport, "Fiche PNT Export", "RichTextFormat(*.rtf)",
Application.CurrentProject.path & "Fiche.rtf", True, ""

Fichier = Application.CurrentProject.path & "Fiche.rtf"

Set wrd = GetObject(, "Word.Application")
wrd.Application.Visible = False 'Mise en mode invisible
wrd.Documents.Open Filename:=Fichier
Set myRange = wrd.ActiveDocument.Range
myRange.WholeStory
myRange.Copy 'Presse papier
wrd.ActiveDocument.Close 'Ferme le rtf
On Error Resume Next
wrd.Quit 'Quitte Word
Set myRange = Nothing
Set wrd = Nothing

Kill Fichier 'Fiche.rtf
DoCmd.Close acReport, stDocName
Avatar
3stone
re,

"René"
| Merci mais je cherche...


et je te répète "voir Echo false"


Pour le VBA, utilise le Docmd.Echo False



- extrait de l'aide (que tu aurais dû regarder en sachant "echo" ;-)

Lorsque Microsoft Access exécute une macro, la mise à jour de l'écran affiche souvent des
informations qui ne sont pas essentielles au fonctionnement de cette macro. Lorsque vous attribuez
le paramètre Non à l'argument Écho actif, la macro est exécutée sans mise à jour de l'écran. À la
fin de l'exécution de la macro, Microsoft Access réactive automatiquement l'écho et redessine la
fenêtre. L'affectation de Non à Écho actif n'affecte pas la macro ou ses résultats.

Pour exécuter l'action Echo en Visual Basic, utilisez la méthode Echo de l'objet DoCmd.


--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
Conseils MPFA: http://www.mpfa.info/
Avatar
René
Salut Pierre



J’ai bien sur essayé « DoCmd.Echo False » entre chaque ligne du code, mais
mon écran ne reste pas figé quand je clique sur mon bouton de commande sur
le formulaire.

Le défilement des écrans peut être déroutant pour un utilisateur novice.

(Je suis moi aussi un novice en VBA)

Merci quand même. Le premier qui trouve a gagné ! ;-)
Avatar
3stone
Salut,

"René"
| J’ai bien sur essayé « DoCmd.Echo False » entre chaque ligne du code, mais
| mon écran ne reste pas figé quand je clique sur mon bouton de commande sur
| le formulaire.



Que veut dire "entre chaque ligne de code" ?

je pense que c'est la méthode utilisée pour réaliser l'opération qui ne doit pas être orthodoxe.
Tu traite par exemple les enregistrements "à l'écran" au lieu de manipuler le clone...


--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
Conseils MPFA: http://www.mpfa.info/
Avatar
René
DoCmd.Echo False, "Visual Basic code is executing."
OuvreWord = "C:Program FilesMicrosoft OfficeOffice11winword.exe"
DoCmd.Echo False, "Visual Basic code is executing."
Call Shell(OuvreWord)
DoCmd.Echo False, "Visual Basic code is executing."
stDocName = "Fiche PNT Export"
DoCmd.Echo False, "Visual Basic code is executing."
DoCmd.OpenReport stDocName, A_PREVIEW, , "FNuméro=" & Me!FNuméro
DoCmd.Echo False, "Visual Basic code is executing."
DoCmd.OutputTo acReport, "Fiche PNT Export", "RichTextFormat(*.rtf)",
Application.CurrentProject.path & "Fiche.rtf", True, ""
DoCmd.Echo False, "Visual Basic code is executing."
Fichier = Application.CurrentProject.path & "Fiche.rtf"
DoCmd.Echo False, "Visual Basic code is executing."
Set wrd = GetObject(, "Word.Application")
DoCmd.Echo False, "Visual Basic code is executing."
wrd.Application.Visible = False 'Mise en mode invisible
DoCmd.Echo False, "Visual Basic code is executing."
wrd.Documents.Open Filename:=Fichier
DoCmd.Echo False, "Visual Basic code is executing."
Set myRange = wrd.ActiveDocument.Range
DoCmd.Echo False, "Visual Basic code is executing."
myRange.WholeStory
DoCmd.Echo False, "Visual Basic code is executing."
myRange.Copy 'Presse papier
DoCmd.Echo False, "Visual Basic code is executing."
wrd.ActiveDocument.Close 'Ferme le rtf
DoCmd.Echo False, "Visual Basic code is executing."
On Error Resume Next
DoCmd.Echo False, "Visual Basic code is executing."
wrd.Quit 'Quitte Word
DoCmd.Echo False, "Visual Basic code is executing."
Set myRange = Nothing
DoCmd.Echo False, "Visual Basic code is executing."
Set wrd = Nothing
DoCmd.Echo False, "Visual Basic code is executing."
Kill Fichier 'Fiche.rtf
DoCmd.Echo False, "Visual Basic code is executing."
DoCmd.Close acReport, stDocName
DoCmd.Echo True

En fait, je souhaite mettre en mémoire dans le presse-papier (Ctrl+C) le
contenu d'un état pour le coller dans un message Lotus plus tard.

Je répète, je ne suis vraiment pas expert mais je cherche...

En tout cas merci pour ta sollicitude même un dimanche !

Vraiment sympa !
Avatar
3stone
Salut,

"René"
| DoCmd.Echo False, "Visual Basic code is executing."
| OuvreWord = "C:Program FilesMicrosoft OfficeOffice11winword.exe"
| DoCmd.Echo False, "Visual Basic code is executing."
| Call Shell(OuvreWord)
<snip>


brrr....

Comme je disait, question de méthode ;-))

Essaies avec ceci :
DoCmd.OutputTo acOutputReport, "monetat", acFormatRTF, "fichierword", True


--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
Conseils MPFA: http://www.mpfa.info/