Supprimer Un Fichier En Vbs
Page: [1] Page 1 sur 1 Post le 07/05/2014 @ 14:28 Petit astucien Bonjour le forum, Je dois supprimer un fichier de ma Feuil "Archives" en le sélectionnant et cela ne me pose pas de pbs. Mais en même temps, j'aimerais le supprimer aussi des 2 "chemins" qui ont été utilisés lors de leur enregistrement. Sub EFFACER() Dim DerCol As Range, Cel As Range With Sheets("Archives") Sheets("Archives"). Unprotect Set DerCol = Cells(,. )(xlToLeft) For Each Cel In ((, 1), DerCol) If Cel. HasFormula = False Then earContents End If Next End With Sheets("Archives"). Protect End Sub Voici les 2 chemins utilisés pour Archiver: Chemin = "C:\Users\MONCOEUR\Downloads\FACTURATION\FACTURATION FRANCO\ARCHIVAGE FACTURES\" Chemin = "G:\FACTURATION FRANCO\ARCHIVAGE FACTURES\" Cordialement margar Post le 07/05/2014 15:47 Astucien Bonsoir, Pour supprimer un fichier: Kill chemin & nomfichier Post le 07/05/2014 16:06 Petit astucien Bonjour ferrand, Kill "C:\Users\MONCOEUR\Downloads\FACTURATION\FACTURATION FRANCO\ARCHIVAGE FACTURES\" Je l'ajoute à Sub Effacer() et j'ai une erreur de débogage avec cette ligne là!
Supprimer Un Fichier En Vbs Cliquez
*" Sub SupprimerCertainsFichiersDansDossier_3() 'supprime tous les fichiers Word, que ce soit les ou les etc. Kill "C:\Exemple\TestsVBA\**" End Sub Supprimer un dossier et tous les sous-dossiers et fichiers qu'il contient Et pour finir, vous pouvez aussi, grâce à un seul code, supprimer un dossier avec tout ce qu'il contient (fichiers, sous-dossiers)… Mais je répète l'avertissement: soyez prudents car ce qui est effacé de cette manière est irrécupérable. Sub SupprimerDossierAvecTouLeContenu() 'Assurez-vous qu'aucun fichier de ce dossier n'est pas ouvert... Dim FSO As Object Dim DossierASupprimer As String Set FSO = CreateObject("leSystemObject") DossierASupprimer = "C:\Exemple\TestsVBA" '<- remplacez par votre dossier If Right(DossierASupprimer, 1) <> "\" Then DossierASupprimer = DossierASupprimer & "\" If Len(Dir(DossierASupprimer, vbDirectory)) = 0 Then MsgBox "Le dossier: " & DossierASupprimer & " n'existe pas... " Exit Sub On Error Resume Next 'Supprimer les fichiers leteFile DossierASupprimer & "*.
Supprimer Un Fichier En Vbs Video
Merci Steelson Fanatique d'Excel Messages 21'342 Fichiers 37 Votes 2'964 Excel 2013 FR + GSheets Tél. 2014 Emploi Ingénieur Lieu 85330-NO essaie ceci function test(){ supprimerFichierParNomDunDossier('ici le nom du fichier', 'ici le nom du dossier')} function supprimerFichierParNomDunDossier(fileName, nomDuDossier) { var files = tFolderById(getFolderId(nomDuDossier)). getFiles(); function getFolderId(name){ var id; var dossiers = tFoldersByName(name); if (dossiers. hasNext()) { var dossier = (); id = ();} else { var dossier = eateFolder(name); return id;} J Jackdu95 Membre habitué Messages 117 Votes 1 Excel 2019 FR Si j'ai plusieurs fichiers dans differents dossiers j ecris ceci? function test(){ supprimerFichierParNomDunDossier('X1', 'AA') supprimerFichierParNomDunDossier('X2', 'BB') supprimerFichierParNomDunDossier('X3', 'CC') supprimerFichierParNomDunDossier('X4', 'DD')} return id;} Steelson Fanatique d'Excel Messages 21'342 Fichiers 37 Votes 2'964 Excel 2013 FR + GSheets Tél. 2014 Emploi Ingénieur Lieu 85330-NO Oui, tout à fait!
27 septembre 2021 à 9:27:35 Excuse moi j'ai eu un imprévus je viens d'essayé de modifier la ligne comme tu me la écrit et ca fonctionne! Merci beaucoup × Après avoir cliqué sur "Répondre" vous serez invité à vous connecter pour que votre message soit publié. × Attention, ce sujet est très ancien. Le déterrer n'est pas forcément approprié. Nous te conseillons de créer un nouveau sujet pour poser ta question.