Gros Problème lecture seule
Bonjour
Mon dernier message de l'été !! (ouf ???)
Voilà j'ai un problème qui me prend la tête, je suppose que c'est tout bête à résoudre et qu'il y a une fonction appropriée pour ça mais je ne trouve pas (sûrement car je ne sais pas chercher comme il faut).
Dans mon code je crée tout d'abord un nouveau fichier :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
|
var = "C:\Documents and Settings\Usuario\Escritorio\Logistica\"
nueva_carpeta = var + name_WS
MkDir nueva_carpeta
Dim arch As String
arch = nueva_carpeta + "\Packing list.xls"
Dim xlapp As New Excel.Application
xlapp.Workbooks.Add
xlapp.Visible = False
xlapp.ActiveWorkbook.SaveAs arch
MsgBox "fichier créé adresse" + nueva_carpeta |
Puis ensuite je pose une question et si la réponse est non je déplace la feuille active au classeur du nouveau fichier :
Code:
1
2
3
4
5
6
7
8
9
|
paletizado = MsgBox("Este convoy será paletizado?", vbYesNo)
If paletizado = 7 Then
Workbooks.Open (nueva_carpeta + "\Packing list.xls")
Workbooks("Gestión de los stocks.xls").ActiveSheet.Move before:=Workbooks("Packing list.xls").Worksheets(1)
Workbooks("Packing list.xls").Save
Workbooks("Gestión de los stocks.xls").Save
'MsgBox "enregistré"
End If |
Voilà. Mon souci : une fois que c'est fait, par exemple je ferme le fichier qui vient d'être créé (Packing List.xls), qui correspond a ce que je demandais c'est a dire que la feuille a bien ete bougee, puisqu'il est enregistré on ne me demande rien, donc je ferme sans me poser de questions. Et là si je veux le reouvrir, et bien on me dit qu'il est bloqué pr le modifier par '.', que je peux soit l'ouvrir en lecture seule soit cliquer sur notifier.
Bon alors ça c'est le 1er problème : il est bloqué => comment faire pour qu'il ne le soit pas ???
2e problème : je décide malgré tout de l'ouvrir en lecture seule et... il m'ouvre un classeur vierge !!!! Ma feuille que j'avais déplacée n'y est plus !!!!! => Que faire ???
3e problème : si j'ai bien fermé ce fichier et que je veux le supprimer, je ne peux pas car il est soi disant toujours utilisé par excel. je pense que si je résous le 1er probleme je résous celui ci en meme temps. car là je suis obligée de passer par ctrl+alt+supr pr arreter la tache (que je ne vois pas sinon car j'ai fermé Excel depuis belle lurette) et là seulement je px le supprimer !
Merci de votre aiiiiiiiiiiiiiiiiide
Carole
