[xl2010][VBA] test document word ouvert
Fermé
bj51
-
30 août 2011 à 13:22
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 31 août 2011 à 10:45
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 31 août 2011 à 10:45
A voir également:
- [xl2010][VBA] test document word ouvert
- Test performance pc - Guide
- Supprimer une page word - Guide
- Signer un document word - Guide
- Espace insécable word - Guide
- Organigramme word - Guide
3 réponses
Up,
Quelqu'un a-t-il une idée pour au moins éviter une erreur si aucun document word n'est ouvert ? (c'est l'instruction GetObject qui renvoie alors une erreur)
Cordialement,
Quelqu'un a-t-il une idée pour au moins éviter une erreur si aucun document word n'est ouvert ? (c'est l'instruction GetObject qui renvoie alors une erreur)
Cordialement,
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 303
Modifié par michel_m le 31/08/2011 à 10:28
Modifié par michel_m le 31/08/2011 à 10:28
Bonjour,
Peut-être une piste: test Excel à adapter à Word en début de code
je n'en suis pas l'auteur
Michel
Peut-être une piste: test Excel à adapter à Word en début de code
je n'en suis pas l'auteur
Function ClasseurEstOuvert(strNomFichierComplet As String) As Boolean Set objExcel = New Excel.Application With objExcel ' L'instance d'Excel qui porte le fichier ne doit pas être visible .Visible = False .Workbooks.Open (strNomFichierComplet) ' Si le classeur est déjà ouvert cette propriété sera à True ClasseurEstOuvert = .Workbooks(1).ReadOnly .Quit End With ' Ne pas oublier de supprimer la référence à Excel ' sinon une autre instance fantôme hantera le système... Set objExcel = Nothing End Function
Michel
Merci, je vais tenter d'adapter, même si apparemment cette fonction nécessite un nom de fichier en entrée (que je n'ai évidemment pas si aucun document n'est ouvert).
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 303
31 août 2011 à 10:45
31 août 2011 à 10:45
c'est uniquement une piste! si tu te trouves, merci de me renvoyer l'ascenseur :o)