Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

enregistrer un classeur et ouvrir un autre

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Blafi
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
B

Blafi

XLDnaute Occasionnel
Bonjour à tous ,

Quelqu'un peut-il m'aider à résoudre mon pb car je ne sais quel code VBA employer :

J'ai un classeur 1 qui est ouvert et sur lequel je travaille.

A la fin de ce travail, j'ai une macro qui devrait :
1 - enregistrer ce classeur et le fermer (ça je sais faire)
2 - ouvrir un classeur 2 s'il n'est pas déja ouvert (ça je ne sais pas !)

ma question est en fait comment dire " si le classeur 2 est déja ouvert, ne rien faire; dans le cas contraire l'ouvrir et le désigner comme classeur actif"..

C'est certainement assez simple mais j'y arrive pas ..

Merci d'avance de vos réponses et à bientôt..
 
Trier par date Trier par votes
Re : enregistrer un classeur et ouvrir un autre

Salut Blafi faut-il considérer que l'emplacement du fichier à ouvrir est connu d'avance ?
Si c'est le cas alors :
Workbooks.Open Filename:= _
"Chemin\NomClasseur.xls"
Dans le code du Classeur à Fermer, l'exécution de ce code doit se faire ben entendu avant la fermeture.
Ciao
 
Dernière édition:
Vote positif 0 Vote négatif
Re : enregistrer un classeur et ouvrir un autre

Merci Brunet pour ta réponse rapide...

J'ai pris bonne note de ton code et pour répondre à ta question : oui le chemin du fichier est connu d'avance, donc je le mettrai...

Par contre, est-ce que je ne risque pas d'avoir un blocage si le fichier en question est déja ouvert ? ( ce que l'utilisateur n'est pas sensé savoir)
c'est pourquoi je demandais la manière de dire "si le fichier est ouvert , ne rien faire..."

Merci de cette précision.
A ++
 
Vote positif 0 Vote négatif
Re : enregistrer un classeur et ouvrir un autre

Bonsoir,

Tu peux tester si le fichier est deja ouvert comme ceci :

Sub Test()
ATester = "Test.xls"
For Each X In Workbooks
If X.Name = ATester Then Ouvert = True Else Ouvert = False
Next
If Ouvert Then Workbooks(ATester).Activate Else Workbooks.Open Filename:=ATester
End Sub
 
Vote positif 0 Vote négatif
Re : enregistrer un classeur et ouvrir un autre

Bonjour tlm,

Ce que propose Catrice, vérifie si le classeur est ouvert sur son propre pc.

Dans le cas où l'on doit vérifier si un autre utilisateur l'a ouvert.
A condition que ce n'est pas un classeur "partagé", si un utilisateur l'a ouvert, le second utilisateur ouvrira ce classeur en lecture seule, il y a donc moyen de vérifier cette propriété.
Code: 
Sub test_readonly()
Dim Wbk As Workbook

Application.ScreenUpdating = False
Set Wbk = Workbooks.Open(Filename:="D:\test.xls")

If Wbk.ReadOnly = True Then
    Wbk.Close False
    MsgBox "le fichier est déjà ouvert par un autre utilisateur"
End If
Application.ScreenUpdating = True

End Sub
 
Dernière édition:
Vote positif 0 Vote négatif
Re : enregistrer un classeur et ouvrir un autre

Re bonjour...

Merci Catrice et ftho pour vos solutions...

Le système de Catrice me convient parfaitement car les fichiers sont sur un seul ordinateur. Je garde quand mçeme la solutions de ftho si un jour j'en ai besoin...

Encore merci et à ++ sur cet excellent forum...
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

D
  • Question Question
Microsoft 365 Mise à jour des références / liens depuis un sharepoint
Réponses
3
Affichages
363
Dégé59
D
  • Question Question
Autres Ouverture classeur Excel au clic sur l'icône du classeur
Réponses
4
Affichages
111
Usine à gaz
Z
  • Question Question
XL 2016 Automatisation transfert données dans un autre fichier
Réponses
1
Affichages
170
C'est papy Mougeot !
E
  • Question Question
XL 2019 Ouvrir un classeur mais pas le rendre actif
Réponses
9
Affichages
437
Electronull
E
E
  • Question Question
XL 2019 enregistrer un classeur non ouvert
Réponses
1
Affichages
283
sylvanu
M
  • Résolu(e)
XL 2021 Récupérer la valeur d’une cellule dans un classeur fermé
Réponses
5
Affichages
231
patricktoulon
M
  • Résolu(e)
Microsoft 365 [RESOLU]UserForm qui revient à la fermeture d'un classeur, du fait le classeur se bloque et il faut fermer manuellement l'UserForm
2
Réponses
17
Affichages
525
Marboi
M
M
  • Question Question
XL 2021 lien vers classeur excel
Réponses
4
Affichages
144
AtTheOne
  • Question Question
Microsoft 365 Recherche et enregistrement document
3 4 5
Réponses
62
Affichages
2 K
dysorthographie
M
  • Question Question
Microsoft 365 [RESOLU] Enregistrer avec un nouveau nom sans macro et sans le bouton
Réponses
2
Affichages
231
Marboi
M
  • Question Question
Autres Séquenceur (Timer) dans autre instance d'Excel
Réponses
5
Affichages
339
Dranreb
  • Question Question
XL 2013 Empécher toutes modifications d'un classeur
Réponses
7
Affichages
553
crocrocro
C
F
  • Question Question
XL 2021 Liste déroulante vers un autre classeur
Réponses
1
Affichages
491
Dudu2
  • Question Question
XL 2021 Comment supprimer des noms du gestionnaire de noms dans un classeur
Réponses
7
Affichages
759
jeff1494
  • Résolu(e)
XL 2021 Intervertir deux images dans un bouton, ou autre.
Réponses
11
Affichages
290
DenisHen
O
  • Question Question
XL 2010 Boucle sur tout le classeur - Mise en page et impression
Réponses
3
Affichages
405
Olivier1978
O
D
  • Résolu(e)
Microsoft 365 Macro pour rafraîchir les liaisons
Réponses
11
Affichages
557
AtTheOne
  • Résolu(e)
Microsoft 365 Forcer l'affichage de mon userform (barre de progression) sur l'écran où le classeur est actif (cas des doubles/triples écrans)
3 4 5
Réponses
66
Affichages
3 K
Dudu2
  • Question Question
Microsoft 365 Classeur Disparu
Réponses
2
Affichages
516
Electron24
F
  • Résolu(e)
XL 2021 fermeture du classeur après apple d'un userform d'un autre classeur ouvert
Réponses
2
Affichages
390
farid
F
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…