Code VBA

Fermé

HJIEJHussein Messages postés 4 Date d'inscription mercredi 19 février 2020 Statut Membre Dernière intervention 20 février 2020 - Modifié le 19 févr. 2020 à 21:16
f894009 Messages postés 17218 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 2 janvier 2025 - 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

A voir également:

Vba open filename
Open office francais - Télécharger - Suite bureautique
Open core legacy patcher - Accueil - MacOS
Open sankoré - Télécharger - Bureautique
Mkdir vba ✓ - Forum VB / VBA
Excel compter cellule couleur sans vba - Guide

4 réponses

Réponse 1 / 4

f894009 Messages postés 17218 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 2 janvier 2025 1 712
Modifié le 20 févr. 2020 à 06:56

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 mercredi 19 février 2020 Statut Membre Dernière intervention 20 février 2020
20 févr. 2020 à 12:25

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 38367 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 2 janvier 2025 4 721
Modifié le 20 févr. 2020 à 12:30

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 mercredi 19 février 2020 Statut Membre Dernière intervention 20 février 2020
20 févr. 2020 à 13:05

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 17218 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 2 janvier 2025 1 712
20 févr. 2020 à 17:17

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 mercredi 19 février 2020 Statut Membre Dernière intervention 20 février 2020
20 févr. 2020 à 19:25

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

f894009 Messages postés 17218 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 2 janvier 2025 1 712
Modifié le 21 févr. 2020 à 07:08

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

ouverture d'un fichier excel à partir d'un code VBA

Méthode find dans VBA - Recherche de données sous Excel

appliquer une pause dans une macro vba excel