Discussion :

[Spani]

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 :

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

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 :

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

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

[ouskel'n'or]

Pourquoi crées-tu une nouvelle instance d'Excel pour créer ton nouveau fichier ?
C'est cette instance qui reste ouverte avec ton fichier.
Supprime tes instances

Code :

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

1
2
3
4
5
6
7
        Dim arch As String
        Dim NewFich as Workbook
        arch = nueva_carpeta + "\Packing list.xls"
        set NewFich = Workbooks.Add
        'NewFich .Visible = False
        ActiveWorkbook.SaveAs arch
        MsgBox "fichier créé adresse" + nueva_carpeta

Si tu veux à tout pris créer une nouvelle instance d'Excel, alors pour fermer ton fichier, tu dois mettre

Code :

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

1
2
xlapp.close true 'True pour enregistrer ton fichier
xlapp.quit 'pour quitter l'application ouverte

Ça, c'est pour la première partie.
Teste déjà le premier code