Discussion :

[Duddy]

Bonsoir,

J'ai regardé sur le forum, j'ai recherché (peut-être pas avec les bons mots) sur le forum, j'ai regardé dans les tutoriels et je n'ai pas trouvé mon bonheur.

Je cherche, en fait, à vérifier lors de l'ouverture d'un fichier .xls que celui-ci n'est pas déjà utiliser par une tierce personne. Le fichier étant sur un serveur cela peut se produire et comme je dois le modifier avec du code VBA, lorsque je souhaite l'enregistrer, il me jette car étant en lecture seule.

J'ai testé la fonction "readonly" cela ne fonctionne pas. J'ai copié des morceaux de codes sur le forum qui approchait ma recherche et le résultat n'est pas celui que je souhaite.

Est-il possible de récupérer l'info "lecture seule" dans le "bandeau" de la fenêtre ouverte?

Merci d'avance à tous

[ucfoutu]

Bonjour,

Lis mon message n° 2 ici :
http://www.developpez.net/forums/d67...stion-derreur/

[CRACOS38]

Bonjour, bonjour
Pour ouvrir un fichier en lecture seule, modifier son attribut (0 fihier normal, 1 fichier lecture seule, 2 fichier caché)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub Macro1()
'
' Macro1 Macro
 
   Dim fso, f
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.GetFile("Chemin complet")
 
      f.Attributes = 0 ' Ce que tu veux   
  f.Copy ("Chemin complet")  
End Sub

Donc recupérer le fichier, le passer en normal, on le modif et on rechange son attibut
Tournicoton, tournicota, et voila...
a+

[Duddy]

Bonsoir,

Merci UCFOUTU, cela fonctionne comme je l'espérais.