Discussion :

[novice06]

bonjour,

je viens vers vous pour une explication si possible.

détails:
chem_form => chemin du fichier contenant mes macros excel pour le formatage de fichiers excel généré via access.
Me.Texte1 => fichier Excel à formater
Me.Listing=> le nom de la macro appelé


A priori ce code permet de formater le fichier excel souhaiter sans que cela soit visible pour l'utilisateur MAIS objapp.visible=False ne fait pas son travail ! POURQUOI ?
Les 2 fichiers excel s'ouvrent ... et à la fin un message de confirmation d'enregistrement du fichier des macros apparait !

Comment régler ce problème ?
Faire en sorte que le formatage se fasse en arrière plan sans que cela soit visible pour l'utilisateur et qu'il n'y ai pas de demande d'enregistrement du fichier des macros.

Merci par avance
Bonne journée

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub Commande16_Click()
 
 Dim objBook As Object, objApp As Object, objSheet As Object
 Dim chem_form As String
 Dim chem_macro As String
 
DoCmd.SetWarnings False
 
chem_form = Me.Modifiable50.Column(0)
 
Set objApp = CreateObject("excel.application")
Set objBook = objApp.workbooks.Open(Me.Texte1, ReadOnly:=False)
objApp.Visible = False
objApp.Application.Run chem_form & "!" & Me.Listing
objBook.Save
objApp.QUIT
Set objBook = Nothing
Set objApp = Nothing
 
DoCmd.SetWarnings True
End Sub

[Philippe PONS]

Bonjour,
Oui,
c'est bizarre qu'XL soit visible.

Tu pourrais aussi démarrer ta macro de formatage sur Workbook_Open()
ou alors formater dans ton code vba Access

Cordialement,

[novice06]

en fait tout se passait bien jusqu'à ce que j'intègre un "contrôle calendrier 11.0" dans un des onglet du fichier contenant toutes mes macros.

Du coup à l'ouverture du fichier la valeur générée du contrôle calendrier modifie le fichier et génère par la même occasion son apparition ainsi que son message de confirmation d'enregistrement des modifications à la clôture du fichier.

Y a-t'il une possibilité de conserver ce contrôle calendrier sans que cela ne pose ce problème ?

merci par avance

bonne journée

[issoram]

Bonjour,

As tu essayé de désactiver les messages d'alerte générés par l'appli Excel?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Set objApp = CreateObject("excel.application")
objApp.DisplayAlerts =False  
Set objBook = objApp.workbooks.Open(Me.Texte1, ReadOnly:=False)
'....

Cordialement.

[novice06]

bonjour et merci,
je viens d'essayer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

objApp.DisplayAlerts =False

Cela permet d'éviter le message de demande d'enregistrement des modifications mais les fichiers excels restent visibles...donc

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

objApp.Visible = False

ne fait pas son travail du fait qu'à l'ouverture du fichiers des macros le calendrier se mette automatiquement à jour sur la date du jour certainement.

bonne journée

[issoram]

Je ne comprends très bien ce que tu veux dire par:

Du coup à l'ouverture du fichier la valeur générée du contrôle calendrier modifie le fichier et génère par la même occasion son apparition ainsi que son message de confirmation d'enregistrement des modifications à la clôture du fichier.

Pourrais tu joindre le code associé?

@+