Verifier si un fichier PPT est deja ouvert ou non
Résolu/Fermé
A voir également:
- Verifier si un fichier PPT est deja ouvert ou non
- Fichier rar - Guide
- Cette action ne peut pas être réalisée car le fichier est ouvert dans system - Guide
- Verifier un lien - Guide
- Fichier host - Guide
- Fichier iso - Guide
2 réponses
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
728
21 juil. 2016 à 14:40
21 juil. 2016 à 14:40
Bonjour,
Comme ceci:
Comme ceci:
Option Explicit
Private Sub CommandButton1_Click()
If FichierEstOuvert("C:\Users\LePivert\Documents\Diaporamas\monfichier.ppt") Then 'a adapter le chemin
MsgBox "ouvert"
Else
MsgBox "fermer"
End If
End Sub
Function FichierEstOuvert(ByRef FichierTeste As String) As Boolean
Dim Fichier As Long
On Error GoTo Erreur
Fichier = FreeFile
Open FichierTeste For Input Lock Read As #Fichier
Close #Fichier
FichierEstOuvert = False
Exit Function
Erreur:
FichierEstOuvert = True
End Function
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
728
Modifié par cs_Le Pivert le 22/07/2016 à 11:03
Modifié par cs_Le Pivert le 22/07/2016 à 11:03
voir ceci pour la 1ère question.
https://docs.microsoft.com/fr-fr/previous-versions/visualstudio/visual-studio-2008/c3zyf7d8(v=vs.90)?redirectedfrom=MSDN
pour la seconde peut-être ceci:
https://www.excel-downloads.com/threads/macro-attendre-la-fin-dun-activeworkbook-refreshall.154980/
@+ Le Pivert
https://docs.microsoft.com/fr-fr/previous-versions/visualstudio/visual-studio-2008/c3zyf7d8(v=vs.90)?redirectedfrom=MSDN
pour la seconde peut-être ceci:
https://www.excel-downloads.com/threads/macro-attendre-la-fin-dun-activeworkbook-refreshall.154980/
@+ Le Pivert
22 juil. 2016 à 09:50
Cette fonction marche parfaitement :)
Je debute en VBA, cependant je tente tant bien que mal de comprendre le code de celle-ci si tu peux m'aider un peu ... Comment marche cette partie par exemple:
On Error GoTo Erreur
Fichier = FreeFile
Open FichierTeste For Input Lock Read As #Fichier
Close #Fichier
FichierEstOuvert = False
J'ai une petite question a te poser (completement differente de la derniere) Pour quelle raison parfois les MsgBox s affichent avant la fin de l'action ? Je m'explique, par exemple dans mon cas je remets a jour des donnees a partir d'un autre fichier Excel et le message "Update completed" ne s affiche pas comme je voudrais, c-a-d tout a la fin une fois les donnees chargees.
Sub update()
Sheets("Data").Select
ActiveWorkbook.RefreshAll
MsgBox "Update completed !"
End Sub
Peux-tu m'aider a comprendre aussi ?
Cordialment,
MP