Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Ouvrir un Fichier par VBA SSI pas déjà ouvert

Ouvrir un Fichier par VBA SSI pas déjà ouvert

3 réponses
Avatar
StDonat
Bonjour
Par macro j’ouvre un fichier
Workbooks.Open Filename:= chemin & "\" & nomfichier
Je n’arrive pas à ne pas a m’en sortir avec la gestion des erreurs, je
souhaiterai ne pas avoir de message si ce fichier et déjà ouvert sur mon pc,
dans ce cas l’activer seulement.
Merci de vos solutions
Signaler un problème avec ce contenu

3 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
Jacky
Bonjour,
'-------------
On Error Resume Next
Windows("nomfichier").Activate
If Err <> 0 Then
Workbooks.Open Filename:= chemin & "" & nomfichier
End If
'-------------------

--
Salutations
JJ


"StDonat" a écrit dans le message de news:


Bonjour
Par macro j'ouvre un fichier
Workbooks.Open Filename:= chemin & "" & nomfichier
Je n'arrive pas à ne pas a m'en sortir avec la gestion des erreurs, je
souhaiterai ne pas avoir de message si ce fichier et déjà ouvert sur mon pc,
dans ce cas l'activer seulement.
Merci de vos solutions

Avatar
Jacky
Re...
Si, "nomfichier" est une variable il faudra enlever les guillemets à ==> Windows("nomfichier").Activate <=
Windows(nomfichier).Activate



--
Salutations
JJ


"Jacky" a écrit dans le message de news: un$
Bonjour,
'-------------
On Error Resume Next
Windows("nomfichier").Activate
If Err <> 0 Then
Workbooks.Open Filename:= chemin & "" & nomfichier
End If
'-------------------

--
Salutations
JJ


"StDonat" a écrit dans le message de news:


Bonjour
Par macro j'ouvre un fichier
Workbooks.Open Filename:= chemin & "" & nomfichier
Je n'arrive pas à ne pas a m'en sortir avec la gestion des erreurs, je
souhaiterai ne pas avoir de message si ce fichier et déjà ouvert sur mon pc,
dans ce cas l'activer seulement.
Merci de vos solutions





Avatar
StDonat
Merci Jacky!
Je m'entêté a vouloir l'ouvrir avant!
Bien plus simple ainsi

"Jacky" wrote:

Bonjour,
'-------------
On Error Resume Next
Windows("nomfichier").Activate
If Err <> 0 Then
Workbooks.Open Filename:= chemin & "" & nomfichier
End If
'-------------------

--
Salutations
JJ


"StDonat" a écrit dans le message de news:

>
> Bonjour
> Par macro j'ouvre un fichier
> Workbooks.Open Filename:= chemin & "" & nomfichier
> Je n'arrive pas à ne pas a m'en sortir avec la gestion des erreurs, je
> souhaiterai ne pas avoir de message si ce fichier et déjà ouvert sur mon pc,
> dans ce cas l'activer seulement.
> Merci de vos solutions
>


.