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

job75

XLDnaute Barbatruc
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 :
VB:
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.
 

Pièces jointes

  • Pilote.xls
    37.5 KB · Affichages: 14
  • A ouvrir.xls
    27 KB · Affichages: 13

_Thierry

XLDnaute Barbatruc
Bonsoir @job75 , le Forum

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

1600379089252.png


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

Bonne nuit
@+Thierry
 

Pounet95

XLDnaute Occasionnel
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

XLDnaute Barbatruc
Supporter XLD
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 :)
 
Dernière édition:

Discussions similaires

Haut Bas