macro pour empecher la reouverture d'1 fichier excel en lecture seule

youky(BJ)

XLDnaute Barbatruc

• 25 Mars 2009

• #2

Re : macro pour empecher la reouverture d'1 fichier excel en lecture seule

Bonjour Alex,
A modifier chemin si les 2 classeur sont en répertoire différent,
et mets le nom de ton classeur à la place de TonClasseur.xls
Principe de la macro , on gère si erreur donc on active le classeur, s'il n'est pas ouvert err se produit alors on l'ouvre

Code:

chemin = ThisWorkbook.Path
On Error Resume Next
Workbooks("TonClasseur.xls").Activate
If Err.Number = 9 Then
Err = 0
Workbooks.Open Filename:=chemin & "\TonClasseur.xls"
End If

 

Vote positif 0 Vote négatif

A

Alex550445

Guest

• 25 Mars 2009

• #3

Re : macro pour empecher la reouverture d'1 fichier excel en lecture seule

Merci, par contre tu me dis :

"A modifier chemin si les 2 classeur sont en répertoire différent,"

je ne comprend pas trop, c'est dans le cas ou j'aurais 2 classeurs differents portant le meme nom dans 2 endroits differents, c'est bien ca ?

donc si j'ai un seul repertoire je peux enlever:
Workbooks.Open Filename:=chemin & "\TonClasseur.xls"

Sinon comment ajouter un message d'alerte si quelqu'un essai de reouvrir le fichier ? je voudrais sensibiliser les gens en plus de leur bloquer l'acces !!

encore merci

PS: est ce normal qu'une fois que j'ai ecrit la macro et apres l'avoir fait fonctionnée une fois je puisse effacé la macro et qu'elle fonctionne toujours ?

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 25 Mars 2009

• #4

Re : macro pour empecher la reouverture d'1 fichier excel en lecture seule

Re:
si le fichier contenant la macro est dans le même répertoire que le fichier à ouvrir ne change pas la macro.
Par contre si le fichier à ouvrir est dans un repertoire différent il faut préciser le chemin
exemple :
chemin ="C:\Année\2008"

Code:

chemin = ThisWorkbook.Path' ici le chemin du fichier à ouvrir si différent de celui-ci
On Error Resume Next
Workbooks("TonClasseur.xls").Activate
If Err.Number = 9 Then
Err = 0
Workbooks.Open Filename:=chemin & "\TonClasseur.xls"
End If

 

Vote positif 0 Vote négatif

A

Alex550445

Guest

• 25 Mars 2009

• #5

Re : macro pour empecher la reouverture d'1 fichier excel en lecture seule

merci,
et pour cette ligne de commande :
Workbooks.Open Filename:=chemin & "\TonClasseur.xls"

si le fichier contenant la macro est dans le même répertoire que le fichier à ouvrir ex:C:\Année\2008.xls

je fais bien comme ceci :
Workbooks.Open Filename:=chemin & "="C:\Année\2008.xls"

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 26 Mars 2009

• #6

Re : macro pour empecher la reouverture d'1 fichier excel en lecture seule

Bonjour,
He bien non Alex,
tu as faux dans ta dernière réponse.
Si les fichiers sont dans le même répertoire utilise ma 1ère réponse
change seulement le nom du fichier à Activer ou à ouvrir
Moi je l'ai appelé TonClasseur.xls
donc ne change que ce nom
Bonne réussite

 

Vote positif 0 Vote négatif

A

Alex550445

Guest

• 26 Mars 2009

• #7

Re : macro pour empecher la reouverture d'1 fichier excel en lecture seule

ah ok, je comprend mieux, je te remercie

une dernière question si je n'abuse pas trop....

comment desactiver cette macro ? je l'ai mise dans Workbook_Open()

Et meme après l'avoir effacé elle fonctionne encore

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 27 Mars 2009

• #8

Re : macro pour empecher la reouverture d'1 fichier excel en lecture seule

Etonnant ton truc...
Si j'oublie ne serais-ce qu'une virgule dans le code tout plante.
Tu es sur de l'avoir mis en workbook_open ??

 

Vote positif 0 Vote négatif

A

Alex550445

Guest

• 28 Mars 2009

• #9

Re : macro pour empecher la reouverture d'1 fichier excel en lecture seule

non c'est moi qui déconne, ca marche...

par contre le message me disant que le fichier est deja ouvert s'ouvre quand meme avec la macro, mais n'a pas d'incidence selon qu'on lui mette oui ou non !!
c'est normal ? c'est bien le principe de la macro ?

merci

 

Vote positif 0 Vote négatif

A

Alex550445

Guest

• 28 Mars 2009

• #10

Re : macro pour empecher la reouverture d'1 fichier excel en lecture seule

Je viens de m'appercevoir que lorsque mon fichier est deja ouvert et qu'il me demande si je desire l'ouvrir a nouveau, mes modifications n'ont pas été prises en compte !!

comment enregistrer le fichier avant qu'il le reouvre?

 

Vote positif 0 Vote négatif