Discussion :

[EmmanuelleC]

Bonjour,

J'ai un classeur qui contient en B1 un répertoir et en B2 un nom de fichier
Quand l'utilisateur modifie B2, il ouvre automatiquement le classeur de ce nom qui se trouve dans ce répertoire (j'ai besoin de la fonction indirect et donc que le classeur soit ouvert)
Ces fichiers sont en lecture seule (ou du moins, tout ceux qui j'ai vu pour le moment son en lecture seule ) et donc, quand la macro les ouvre, il y a la petite fenetre qui apparait.

Est-ce que je peux ajouter quelque chose dans mon code pour que le fichier s'ouvre directement?

Question subisidaire, si ca existe, qu'est-ce que ca va donner comme résultat si j'ouvre un fichier qui n'est pas en lecture seule?

Pour le moment le bout de code qui ouvre le classeur ressemble a ca

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Plage As Range, Intersection As Range, repertoire As String, classeur As String, parametreclasseur As String, onglet As String
 
    Set Plage = Range("B2")
 
    Set Intersection = Intersect(Target, Plage)
 
    If Not (Intersection Is Nothing) Then
         ' variable qui servent a rendre la macro dynamique en cas de changement
         ' de nom de fichier
         parametreclasseur = Range("D2")
         Sheets("Base").Select
         ' mettre dans des variables le chemin d'acces qu'on a indiqué dans la page,
         ' ouvir le classeur en utilisant ces variables et puis retourner sur l'onglet de travail
         repertoire = Range("B1")
         classeur = Range("B2")
         Workbooks.Open Filename:="" & repertoire & "\" & classeur & ""
         Windows("" & parametreclasseur & "").Activate
    End If

En espérant que la demande soit compréhensible

[fgiambelluco]

Bonjour
Pour forcer l'ouverture du fichier en lecture seule, il faut écrire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Workbooks.Open Filename:= repertoire & "\" & classeur ,ReadOnly:=True

Cela devrait également régler le problème de la petite fenêtre

[diude54]

Sinon tu peux faire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

application.displayalerts=false

N'oublie pas de remettre tru à la fin

[EmmanuelleC]

Super merci, ca résoud effectivement le probleme (et qui plus est, sans tout bloquer si le fichier n'est pas protégé )

Ca va faire plus propre comme ca

Merci pour la ligne de code diude54, je la garde pour une autre fois
Ici, ca me semble plus propre et plus adapté d'utiliser la commande prévue spécialement pour ca. Entre autre, si pour une raison x ou y il y a un probleme quelque part, j'aime autant garder mes alerteurs