Code VBA

HJIEJHussein Messages postés 4 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention - 21 févr. 2020 à 07:07

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

Afficher la suite

A voir également:

Vba open filename
Open office gratuit - Télécharger - Suite bureautique
Open core legacy patcher - Accueil - MacOS
Open sankoré - Télécharger - Bureautique
Open workbench - Télécharger - Gestion de projets
Open cv - Télécharger - Emploi & CV

4 réponses

Réponse 1 / 4

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

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

Réponse 2 / 4

HJIEJHussein Messages postés 4 Date d'inscription Statut Membre Dernière intervention

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

jordane45 Messages postés 38486 Date d'inscription Statut Modérateur Dernière intervention 4 752

Bonjour,

Filename:="C:\Users\hussein.hijej\Desktop

.... tu as légèrement oublié d'indiquer le NOM du classeur

Filename:="C:\Users\hussein.hijej\Desktop\tonFichierExcelAOuvrir.xls"

Réponse 3 / 4

HJIEJHussein Messages postés 4 Date d'inscription Statut Membre Dernière intervention

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

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

Re,

Chez moi ce code marche avec un

Set wkb

sinon erreur 438 (methode non geree)

Réponse 4 / 4

HJIEJHussein Messages postés 4 Date d'inscription Statut Membre Dernière intervention

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

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

Bonjour,

Non, dans un module. Et vous ?

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

Erreur d'exécution 13 Incompatibilité de type

Message d'erreur au demarrage : Can't open AsIO.sys !!(2)

Votre réponse

Discussions similaires