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
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
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
Bonjour,
'-------------
On Error Resume Next
Windows("nomfichier").Activate
If Err <> 0 Then
Workbooks.Open Filename:= chemin & "" & nomfichier
End If
'-------------------
--
Salutations
JJ
"StDonat" <StDonat@discussions.microsoft.com> a écrit dans le message de news:
6A96A432-9D08-4DC5-BCDC-4FFC129ABF62@microsoft.com...
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
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
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
Re...
Si, "nomfichier" est une variable il faudra enlever les guillemets à ==> Windows("nomfichier").Activate <=
Windows(nomfichier).Activate
--
Salutations
JJ
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news: un$IlkxzKHA.5164@TK2MSFTNGP04.phx.gbl...
Bonjour,
'-------------
On Error Resume Next
Windows("nomfichier").Activate
If Err <> 0 Then
Workbooks.Open Filename:= chemin & "" & nomfichier
End If
'-------------------
--
Salutations
JJ
"StDonat" <StDonat@discussions.microsoft.com> a écrit dans le message de news:
6A96A432-9D08-4DC5-BCDC-4FFC129ABF62@microsoft.com...
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
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
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 >
.
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" <StDonat@discussions.microsoft.com> a écrit dans le message de news:
6A96A432-9D08-4DC5-BCDC-4FFC129ABF62@microsoft.com...
>
> 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
>
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 >