Code VBA

Question

Bonjour, 

Bonjour je voulais écrire un code VBA qui demande à l'utilisateur d'ouvrir le fichier en lecture seule à moins qu'il veuille apporter des modifications

J'ai trouvé cecode 

Sub Mouad_Qarchli()
wkb = Workbooks.Open(Filename:=sClasseur1, UpdateLinks:=False, ReadOnly:=True, WriteResPassword:="Password", IgnoreReadOnlyRecommended:=True)
End Sub

Mais j'ai l'erreur 1004 qui dit que nous n'avions pas pu  trouver le fichier il a été déplacé ou supprimé

Merci pour votre aide

Configuration: Windows / Chrome 79.0.3945.130

f894009 · Answer

Bonjour,
Verifiez ceci si classeur code pas dans meme repertoire:
sClasseur1: chemin complet et nom avec extention

HJIEJHussein · Answer

Bonjour 

J'ai même essayé d'écrire le chemin mais toujours rien

Si tu pourras m'aider ce sera super 

Merci

Sub Mouad_Qarchli()
wkb = Workbooks.Open(Filename:="C:\Users\hussein.hijej\Desktop", UpdateLinks:=False, ReadOnly:=True, WriteResPassword:="Password", IgnoreReadOnlyRecommended:=True)
End Sub

HJIEJHussein · Answer

J'ai toujours la même réponse !!!

Sub Mouad_Qarchli()
wkb = Workbooks.Open(Filename:="C:\Users\hussein.hijej\Desktop\Classeur1.xls", UpdateLinks:=False, ReadOnly:=True, WriteResPassword:="Password", IgnoreReadOnlyRecommended:=True)
End Sub

HJIEJHussein · Answer

Vous écrivez le code dans le sub Workbook_Open C'est ça ?

Code VBA

4 réponses

Discussions similaires

Newsletters