Discussion :

[touche_a_tout]

Bonjour,
Je trouve sur Internet l'exemple suivant:

Code :

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

My.Computer.FileSystem.DeleteFile("C:\test.txt")

et j'essaie de l'appliquer mais le système bloque sur "My" en indiquant "variable non déclarée".
J'essaie de déclarer My.Computer.FileSystem en tant qu'objet mais j'ai aussi une erreur.
Le contexte: j'ai une appli qui crée un fichier texte par Print#1 et je dois la relancer à plusieurs reprises pour la déboguer mais elle bloque avec "Permission refusée" parce que le fichier #1 existe déjà (je suppose) et je perds un temps fou à sauvegarder ce qui doit l'être, fermer les fichiers actifs et faire un redémarrage. Je voudrais ajouter une petite sub qui élimine le fichier en question (sur demande) mais c'est là que My.Compuer.Filesystem me bloque.
Merci d'avance pour toute piste.
Cordialement
touche_a_tout

[Jean-Philippe André]

Salut,

le code que tu tentes d'utiliser est du VB.Net, pas du VBA

pour le VBA : https://warin.developpez.com/access/fichiers/#LI-D-3-b

[touche_a_tout]

Salut et merci,
C'est comme si je mangeais ma soupe avec un tournevis Voilà bientôt 20 ans que je débute !
Merci pour cette réponse ultra-rapide.
Je tâche de suivre la piste et je donne des nouvelles.
Cordialement
touche_a_tout

[touche_a_tout]

Re,
Tout baigne sauf le nom du fichier à diliter. Il n'est normalement pas en dur, mais créé par référence à une userform dont voici un extrait:

Ma moulinette se présente comme suit:

Code :

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

1
2
3
4
5
6
7
8
9
 
Sub vidange_fichier()
Stop
Dim MyFSO As FileSystemObject
Set MyFSO = New FileSystemObject
'MyFSO.DeleteFile ("E:\3_G_E_N_E_A_L_O_G_I_E\A1_Reprise_recherches\chantier_dcd\gedcoms_corr\Gedcom_dépôt_104E")
'MyFSO.DeleteFile (Nom_Dossier & "\" & Nom_Fichier)
MyFSO.DeleteFile (Nom_Dossier & "\" & Nom_Fichier & ".ged")
End Sub

Le nom du fichier a une extension ".ged"
Le "stop" dans le code me permet d'examiner le fichier créé (présence d'erreurs) et de le supprimer ensuite.
Dans les 2 premières variantes le message est "fichier introuvable". Dans la troisième, le point avant "ged" provoque une erreur de séparateur
Où est le souci ?
Merci d'avance.
Cordialement
touche_a_tout

[deedolith]

Salut,

Verifie que la chaîne Nom_Dossier & "" & Nom_Fichier & ".ged"renvoie bien le bon chemin,
via l'instruction msgbox ou (mieux) debug.print.

Pose des points d'arret et inspecte tes variables également.

[touche_a_tout]

Bonjour et merci Deedolith,
J'ai rectifié le code comme suit:

Code :

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

1
2
3
4
5
6
7
8
[XL-2016] 
Sub vidange_fichier()
Stop
Dim MyFSO As FileSystemObject
Set MyFSO = New FileSystemObject
MsgBox "filename = """ & (Nom_Dossier & "\" & Nom_Fichier) & ".ged"""
MyFSO.DeleteFile Nom_Dossier & "\" & Nom_Fichier & ".ged", True
End Sub

Dans le msgbox, le filename correspond à ce qui s'affiche avec un Dir (invite de commande) donc le nom de fichier est correct.
J'obtins le message "permission refusée". Je ne comprends pas pourquoi (le fichier n'est pas protégé).
Une explication ?
Merci. Cordialement
touche_a_tout