Autres Réouverture d'un classeur Excel déjà ouvert

[job75]

Bonsoir à tous,

Merci de faire le test suivant :

- téléchargez les 2 fichiers joints dans le même dossier (le bureau).

- ouvrez le fichier Pilote.xls et cliquez sur le bouton qui lance cette macro :

Sub Ouvrir() ')
Dim fichier$
fichier = ThisWorkbook.Path & "\A ouvrir.xls"
Workbooks.Open (fichier) '1ère ouverture
ActiveWorkbook.Sheets(1).[D4] = "aaaaa" 'modification
Workbooks.Open (fichier) '2ème ouverture
End Sub

Ma question : recevez-vous un message d'alerte et quelle est votre version Excel ?

Chez moi sur Excel 2019 pas de message mais je crois bien me souvenir que sur mes versions antérieures (2003, 2010, 2013) il y en avait un.

Bonne nuit.

 

[kiki29]

Salut, message sous 2003 et 2007

 

[_Thierry]

Bonsoir @job75 , le Forum

Chez moi sous Office 32 2013 j'ai ce message en lançant ton bouton depuis "Pilote.xls" :

Si ça n'existe plus sous 2019 je n'en ai aucune idée...

Bonne nuit
@+Thierry

 

[job75]

Merci kiki29, Thierry, c'est donc bien ce que je pensais, bonne nuit.

 

[Pounet95]

Salut Job75 et tout le monde
Office 365 : pas de message !
Edit : pas de second fichier ouvert ................ ou alors bien caché
Bonne journée
Claude

 

[Usine à gaz]

Bonjour Gérard, le forum,
Bonne journée à toutes et à tous,
@Gérard,

Cher moi Office365, le second fichier s'est ouvert et ... pas de message d'alerte
lionel,

 

[job75]

Bonjour Pounet95, Lionel,

Edit : pas de second fichier ouvert ................ ou alors bien caché

Très curieux ça, chez Lionel le fichier s'ouvre sans message comme chez moi sur Excel 2019.

En fait chez moi la 2ème ouverture ne s'exécute pas : la modif en D4 s'affiche.

Bonne journée.

 

[Pounet95]

Re,
La modif s'effectue aussi chez moi.
J'ai mis un point d'arrêt dans le code sur la ligne devant ouvrir çà nouveau le fichier.
Avant de relancer , j'ai rempli une cellule du classeur ouvert.
Après relance, la cellule est toujours renseignée ce qui signifierait que la 2ème ouverture n'a pas eu lieu ????

 

[Usine à gaz]

Re Gérard et tous,

J'ai refait l'opération : Office365
1 - fichier "A ouvrir" fermé
2 - clic sur "Ouvrir et rouvrir l'autre fichier" dans fichier "Pilote"
Résultat :
- Ouvre le fichier "A ouvrir"
- Pas de message

1 - fichier "A ouvrir" déjà ouvert
2 - clic sur "Ouvrir et rouvrir l'autre fichier" dans fichier "Pilote"
Résultat :
- Affiche le fichier "A ouvrir"
- Pas de message

dans les 2 cas, j'ai "aaaaa" en D4
@+,
lionel

 

[pierrejean]

Bonjour Gerard
chez moi:
2019 : pas de message
2010 : message Dossier déjà ouvert ........

 

[VIARD]

Bonjour Job et à tous

J'ai fait le test sur Excel2007.
1° Pilote: "Ouvrir réouvrir l'autre fichier"
Click -->

2° Click sur "Oui"
Efface "D4"

A+ Jean-Paul

 

[JBARBE]

Bonjour Job et à tous

J'ai fait le test sur Excel2007.
1° Pilote: "Ouvrir réouvrir l'autre fichier"
Click --> Regarde la pièce jointe 1078908

2° Click sur "Oui"
Efface "D4"

A+ Jean-Paul

Bonjour Job, et tous,
Même constat avec 2007 chez moi !
Bonne journée !

 

[Eric C]

Bonsoir le forum
Bonsoir job & le fil

Ouvert avec Excel 2010 (32bits) ==> Fichier déjà ouvert ....

Bonne soirée à toutes & à tous
@+ Eric c

 

[job75]

Bonsoir Pierre, VIARD, JBARBE, ERIC C et les autres,

C'est donc bien clair : Office 365 et 2019 se comportent différemment des autres versions.

Merci d'avoir testé, bonne fin de soirée.