Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access fermer fichier

fermer fichier

4 réponses
Avatar
gilles
J'utilise la fonction Openfileextend de raymond (R=E9ponse =3D
OpenFileExtend(Me.txtLiens, Normal, OpExecute) et maintenant j'aimerais
fermer le fichier ouvert par cette fonction .

Avez vous une idee


Merci d'avance


bonne soiree=20


gilles
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
ze Titi
Bonjour gilles

J'ai trouvé le lien suivant après une petite recherche sur le net.
Peut-être une piste ?

http://www.codyx.org/snippet_fermer-application-identifiee-son-titre_17_l_vba_32.aspx


Dans ton message
J'utilise la fonction Openfileextend de raymond (Réponse > OpenFileExtend(Me.txtLiens, Normal, OpExecute) et maintenant j'aimerais
fermer le fichier ouvert par cette fonction .

Avez vous une idee


Merci d'avance


bonne soiree


gilles


--
Voilou !
Cordialement,

Ze Titi

Avatar
gilles

Bonjour gilles

J'ai trouvé le lien suivant après une petite recherche sur le net.
Peut-être une piste ?

http://www.codyx.org/snippet_fermer-application-identifiee-son-titre_17_l _vba_32.aspx


Dans ton message
J'utilise la fonction Openfileextend de raymond (Réponse =
OpenFileExtend(Me.txtLiens, Normal, OpExecute) et maintenant j'aimerais
fermer le fichier ouvert par cette fonction .

Avez vous une idee


Merci d'avance


bonne soiree


gilles


--
Voilou !
Cordialement,

Ze Titi




Merci de ton aide cela correspond exactement à ma demande . j'ai
modidié ce code pour en faire une fonction à mettre dans un module :

Option Compare Database
Option Explicit


Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As
Long
'
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA"
_
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long,
lParam As Any) As Long
'
Private Const WM_CLOSE As Long = &H10
Private Const HTCAPTION As Long = 2&
'
Private Const MON_TITRE As String = "Sans titre - Bloc-notes"
Function savefile(APPLICATION, MON_TITRE)

Select Case APPLICATION

Case "excel"
APPLICATION = "Microsoft Excel - "
MON_TITRE = APPLICATION & MON_TITRE
Case "adobe reader"
APPLICATION = "Adobe reader - "
MON_TITRE = APPLICATION & MON_TITRE
Case "Word"
APPLICATION = " - Microsoft Word"
MON_TITRE = MON_TITRE & APPLICATION
Case "texte"
APPLICATION = " - Bloc-notes"
MON_TITRE = MON_TITRE & APPLICATION


End Select

Dim lHwnd As Long
lHwnd = FindWindow(vbNullString, MON_TITRE)

If lHwnd = 0 Then
MsgBox "Le fichier que vous souhaitez fermer n'est pas ouvert"
Else
Call SendMessage(lHwnd, WM_CLOSE, HTCAPTION, ByVal 0&)
End If

End Function



Appel fonction

savefile("texte","lisezmoi.txt")


merci et à plus


Gilles


Avatar
ze Titi
Bonjour gilles

Merci du retour, ça pourra aider d'autres personnes !

Bonne continuation

Dans ton message

Bonjour gilles

J'ai trouvé le lien suivant après une petite recherche sur le net.
Peut-être une piste ?

http://www.codyx.org/snippet_fermer-application-identifiee-son-titre_17_l_vba_32.aspx


Dans ton message
J'utilise la fonction Openfileextend de raymond (Réponse >>> OpenFileExtend(Me.txtLiens, Normal, OpExecute) et maintenant j'aimerais
fermer le fichier ouvert par cette fonction .

Avez vous une idee


Merci d'avance


bonne soiree


gilles


--
Voilou !
Cordialement,

Ze Titi




Merci de ton aide cela correspond exactement à ma demande . j'ai
modidié ce code pour en faire une fonction à mettre dans un module :

Option Compare Database
Option Explicit


Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As
Long
'
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA"
_
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long,
lParam As Any) As Long
'
Private Const WM_CLOSE As Long = &H10
Private Const HTCAPTION As Long = 2&
'
Private Const MON_TITRE As String = "Sans titre - Bloc-notes"
Function savefile(APPLICATION, MON_TITRE)

Select Case APPLICATION

Case "excel"
APPLICATION = "Microsoft Excel - "
MON_TITRE = APPLICATION & MON_TITRE
Case "adobe reader"
APPLICATION = "Adobe reader - "
MON_TITRE = APPLICATION & MON_TITRE
Case "Word"
APPLICATION = " - Microsoft Word"
MON_TITRE = MON_TITRE & APPLICATION
Case "texte"
APPLICATION = " - Bloc-notes"
MON_TITRE = MON_TITRE & APPLICATION


End Select

Dim lHwnd As Long
lHwnd = FindWindow(vbNullString, MON_TITRE)

If lHwnd = 0 Then
MsgBox "Le fichier que vous souhaitez fermer n'est pas ouvert"
Else
Call SendMessage(lHwnd, WM_CLOSE, HTCAPTION, ByVal 0&)
End If

End Function



Appel fonction

savefile("texte","lisezmoi.txt")


merci et à plus


Gilles


--

Cordialement,

Ze Titi



Avatar
gilles
en mettant en place ce code, je me suis dit qu'il serait interessant de
pourvoir connaitre avec la base des registres de savoir en fonction de
l'extention ( .doc, .pdf ect ) de savoir avec quel programme on ouvre
le programme pour être comptaible quel que soit le PC ; Si tu as une
idee on pourrait modifier


Gilles