Discussion :

[fthem]

Salut à tous,
J'ai un fichier test1.xls ouvert dans le Temp et par une macro je voudrai le détruire, mais cela ne marche pas
voici mon code, il me génère une erreur d'exécution 53

Code :

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

1
2
3
4
Workbooks("test[1].xls").Activate
     ActiveWorkbook.Saved = True
     ActiveWorkbook.Close
     Kill ("test[1].xls")

Merci pour votre aide

[ouskel'n'or]

Le message dit "Fichier introuvable"... Et si tu ajoutes le chemin ?

[fthem]

MOn problème c'est que c'est un fichier qui s'ouvre dans TEMP et qui a un chemin diférent à chaque ouverture
ou Alors comment puis-je écrire un chemin relatif?

[Godzestla]

Salut,

il te faut simplement sauver le fullname du fichier de temp avant de le fermer.

le code alors devient quelquechose comme

Code :

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

1
2
3
4
5
6
 
Workbooks("test[1].xls").Activate
     temp_name = ActiveWorkbook.Fullname
     ActiveWorkbook.Saved = True
     ActiveWorkbook.Close
     Kill (temp_Name)

[fthem]

excuses moi, mais qu'appelles-tu le fullname?

[ouskel'n'or]

Le nom avec le chemin. Faut tout y dire ! Tu n'as pas de touche F1 ? faudra t'en faire mettre une !

[PascalBeaudoin]

Le fullname c'est le nom du fichier incluant le chemin (Path).
Donc peu importe dans quel repertoire le fichier sera, il sera effacé puisque la variable temp_Name inclura le chemin.

Pascal

[fthem]

OK,
Mais ça ne marche pas, ça ne me met plus erreur d'exécution 53 ça ferme le fichier concerné, mais lorsque je fait rechercher fichier test[1].xls il me le trouve toujours dans:
"C:\Documents and Settings\F71922\Local Settings\Temporary Internet Files\Content.IE5\GFGZW7O3\test[1].xls"

Le problème ne viendrait-il pas de là:
en fait je fait ouvrir ce fichier excel depuis un code PHP (writeexcel), dans mon code php je lui demande de m'ouvrir un fichier excel nommé test.xls et lui systématiquement, il me l'ouvre test[1].xls
Parfois il me l'ouvre test[2].xls et là ça fait merder la suite de mes travaux c'est pour cela qu'à chaque fois, il faut que je détruise le test[1].xls

Chest pas chi chui clair

[Godzestla]

Chest pas chi chui clair

Euhhhhhhhh non, que nenni.

Faut ptét ben voir du coté de ton code PHP, et aussi préventivement supprimer manuellement tous tes test.(n).xls avant de retester.

Tu n'as pas de touche F1 ? faudra t'en faire mettre une !

J'en ai une a vendre à 700 EUR. Prix d'ami. !!

[ouskel'n'or]

J'avais juste une réponse pour fullname mais pour ce qui est de fonctionner, si tu fermes ton fichier, la macro s'arrêtera là... Pas étonnant que le kill ne fonctionne pas.
Tu ne peux pas supprimer le fichier que tu fermes depuis le fichier fermé

[fthem]

Tu n'as pas de touche F1 ? faudra t'en faire mettre une !

Touche F1 inactive, licence Excel2000 entreprise

Tu ne peux pas supprimer le fichier que tu fermes depuis le fichier fermé

Désolé j'avais oublié de dire que ma macro se trouvait sur un autre fichier excel qui lui reste ouvert

Faut ptét ben voir du coté de ton code PHP, et aussi préventivement supprimer manuellement tous tes test.(n).xls avant de retester.

j'ai supprimé manuellement tous tes test.(n).xls mais ça n'y fait rien, coté php c'est ok
je suis preneur d'autres idées car je doit mettre en intranet prochainement ce systéme de fonctionnement et je commence à étre sérieusement dans la M..................... si ça fonctionne pas
Merci de votre aide si vous avez d'autres infos

[ouskel'n'or]

Tu es sur Excel ou bien travailles-tu sur Excel depuis une autre application ?

[fthem]

j'explique du début :
je suis sur un site intranet , sur lequel je saisie des données qui vont se caser dans une base phpmysql ensuite je clique sur un lien, qui m'ouvre un fichier excel nommé test[1].xls dans lequel se retrouvent certaines données saisies auparavant sur le site intranet + des liens vers des fichiers excels types
ensuite je clique sur un de ces liens, et s'ouvre alors un 2éme fichier excel qui lui s'appelle FCMO1.xls
Sur ce nouveau fichier se trouve 1 gros boutons qui lorsque je clique a pour effet de rapatrier les données de test[1].xls dans des cases prédéfinies du fichier FCMO.xls, de fermer test[1].xls et c'est là que je voudrais supprimer ce fichier.

[fring]

Bonjour,

Ma petite pierre à l'édifice...
Si j'ai bien compris, le fichier Test.xls est un fichier créé via l'intranet, donc lorsque tu le fermes sans le sauvegarder

Code :

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

1
2
ActiveWorkbook.Saved = True
     ActiveWorkbook.Close

c'est comme si tu jetais ta feuille directement à la poubelle sans la classer dans un dossier. Ce fichier n'existe donc pas sur ton disque dur, tu ne peux donc pas le "tuer".

Pour ce qui est de "C:\Documents and Settings\F71922\Local Settings\Temporary Internet Files\Content.IE5\GFGZW7O3\test[1].xls" c'est un dossier qui garde en mémoire certaines infos de ta navigation sur Internet, notamment les cookies, ce qui permet une navigation plus rapide lorsque tu retournes sur la même page, dossier qui se néttoie via le menu Démarrer --> programmes --> Accessoires --> Outils Système --> Nettoyage de disque

[fthem]

Alors connais-tu le code qui me permetrai de l'enregistrer sous mon disque et de le Killer ensuite?
Merci

[Godzestla]

Alors connais-tu le code qui me permetrai de l'enregistrer sous mon disque et de le Killer ensuite?
Merci

Approche différente du problème ?

Il te gène en quoi ce fichier que tu veux ..., histoire de savoir si tu es juste un peu parano de l'espace disque ou si tu as plutot un objectif logiciel ?

(NB : pour supprimer des fichiers temporaires et tout le toutim de saloperies stocké sur ton pc, tu peux regarder ici : http://www.ccleaner.com/ (Gratuit et vraiment excellent)

[fthem]

Approche différente du problème ?

Il te gène en quoi ce fichier que tu veux ..., histoire de savoir si tu es juste un peu parano de l'espace disque ou si tu as plutot un objectif logiciel ?

(NB : pour supprimer des fichiers temporaires et tout le toutim de saloperies stocké sur ton pc, tu peux regarder ici : http://www.ccleaner.com/ (Gratuit et vraiment excellent)

Il me géne, car je doit effectuer plusieurs fois la m^me manip
c'est-a dire une fois que j'en ai fini avec ces fichiers excels, je repart sur le site intranet , je reclique sur le lien qui m'ouvre test.xls mais comme il y a toujours test[1].xls dans le Temp il m'ouvre plutôt un test[2].xls et la macro suivante qui me permet d'importer les données de test[1].xls vers FCMO.xls ne fonctionne évidemment plus

[Godzestla]

Petite suggestion :

Dans la mesure ou je suppose que tu connais maintenant l'emplacement de ton fichier test*.xls, et que je suppose aussi que le code VBA à exécuter n'est pas dans ce fichier, pour quoi ne pas faire un simple code VBA qui s'exécuterais en fin de ton process normal VBA et qui ferais :

1) Dir du répertoire TEMP en question des fichiers test*.XLS
2) tant que trouvé,
2.1) Kill fichier
2.2) Si erreur le fichier est ouvert alors
2.2.1) Close (en supposant qu'il est ouvert dans excel)
2.2.2) Remonte au kill

2.3) Dir

Et ops. Ménage est fait.

Exemple pour Dir avec close (non testé)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
dim tablo() as variant
dim excel_workbook as string
res = Dir(Pkg_fullname, vbSystem)
while res <> ""
        tablo = split(Pkg_Fullname, "\")
        excel_workbook = tablo(ubound(tablo))
        Workbooks(excel_workbook).Close
        On Error Resume Next
        Kill Pkg_fullname
 
wend

[fthem]

Petit soucis:
le chemin vers test[1].xls change à chaque fois

exemple:
"C:\Documents and Settings\F71922\Local Settings\Temporary Internet Files\Content.IE5\GFGZW7O3\test[1].xls"
ou
"C:\Documents and Settings\F71922\Local Settings\Temporary Internet Files\Content.IE5\BCGZW7O3\test[1].xls"
ça ne va pas marcher ????

[fthem]

j'éssais ton code mais la macro s'arrete à cette ligne

Code :

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

res = Dir(Pkg_fullname, vbSystem)

Erreur d'exce 13
Incompatibilité de type

ça te parle??