> Tous les forums > Forum Bureautique
 Supprimer des fichiers suivant condition par macroSujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
Yaloo
  Posté le 10/03/2010 @ 12:03 
Aller en bas de la page 
Petit astucien

Bonjour à tous,

J'ai créé un fichier où j'ai une liste de numéro de commande, je souhaite supprimer le fichier correspondant et la ligne de cette commande lorsque la facture est sortie et que la commande à plus de 30 jours.

Ci-joint un fichier pour explication ici

Merci pour vos réponses

A+

Publicité
Mytå
 Posté le 10/03/2010 à 12:45 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Salut le forum

Sans tester essaye avec ceci

Sub SupprimeFichier()
Dim Ligne As Integer

ChDir "C:\Vente\Commande"

For Ligne = [A65536].End(xlUp).Row To 2 Step -1
If Cells(Ligne, 1) = 1 And Cells(Ligne, 5) = 1 Then
Kill "C " & Sheets("Feuil1").Range("C3") & "*" & ".xls"
Rows(i).Delete
Next Ligne

End Sub

Mytå



Modifié par Mytå le 10/03/2010 12:46
Yaloo
 Posté le 10/03/2010 à 13:45 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour Myta,

Merci de ta réponse, j'ai un pb avec ta macro, j'ai rajouté "End if" juste avant Next Ligne ( je pense que c'est là qu'il faut le mettre), comme ci-dessous :

Sub SupprimeFichier()
Dim Ligne As Integer
ChDir "C:\Vente\Commande"
For Ligne = [A65536].End(xlUp).Row To 2 Step -1
If Cells(Ligne, 1) = 1 And Cells(Ligne, 5) = 1 Then
Kill "C " & Sheets("Feuil1").Range("C3") & "*" & ".xls"
Rows(i).Delete
End If
Next Ligne
End Sub

Mais j'ai encore un pb, cela ne me supprime que le premier fichier, puis ça m'ouvre une fenêtre erreur d'exécution sur Rows(i).Delete

As tu une solution ?

A+

Mytå
 Posté le 10/03/2010 à 16:26 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Re le forum

C'est cela quand on ne se relis pas ... {#}

Sub SupprimeFichier()
Dim Ligne As Integer
ChDir "C:\Vente\Commande"


For Ligne = [A65536].End(xlUp).Row To 2 Step -1
If Cells(Ligne, 1) = 1 And Cells(Ligne, 5) = 1 Then
Kill "C " & Sheets("Feuil1").Cells(Ligne,3) & "*" & ".xls"
Rows(Ligne).Delete
Enf if

Next Ligne
End Sub

Mytå



Modifié par Mytå le 10/03/2010 16:30
Yaloo
 Posté le 10/03/2010 à 18:25 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Re,

Merci Myta ta macro fonctionne à merveille.

A+

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
109,90 €Alimentation PC modulaire Gigabyte P850GM (850W, 80+Gold) à 109,90 €
Valable jusqu'au 06 Mars

RueDuCommerce fait une promotion sur l'alimentation PC modulaire Gigabyte P850GM (850W, 80+Gold) qui passe à 109,90 € au lieu de 129,90 € ailleurs. Installez uniquement les câbles dont vous avez besoin pour réduire l’encombrement, augmenter le débit d’air et améliorer les performances thermiques du châssis.  Elle bénéficie d’un ventilateur à roulement hydraulique intelligent.


> Voir l'offre
74,99 €Casque Logitech G Pro Gaming à 74,99 €
Valable jusqu'au 05 Mars

Amazon fait une promotion sur le casque Logitech G Pro qui passe à 74,99 € livré gratuitement alors qu'on le trouve ailleurs à partir de 99 € . Conçu en collaboration avec de nombreux joueurs professionnels sur divers genres de jeux, le Logitech G Pro Gaming Headset va vous permettre d'entendre les sons de votre jeu avec précision. Il est doté de transducteurs Pro-G de 50 mm et d'un microphone de qualité professionnelle.


> Voir l'offre
70,59 €Alimentation Seasonic S12III 650W Plus Bronze à 70,59 €
Valable jusqu'au 05 Mars

Amazon propose actuellement l'alimentation Seasonic S12III 650W Plus Bronze à 70,59 €. On la trouve habituellement autour de 80 €. L'alimentation est garantie 5 ans.


> Voir l'offre

Sujets relatifs
Supprimer des fichiers suivant condition
Macro supprimer ligne avec condition
Supprimer des dossiers/Fichiers en doubles
Fichiers Word impossible à supprimer
Supprimer fichiers sur CD
WORD 2010 ; Impossible supprimer les fichiers
open/libre office et les fichiers excel avec macro
Supprimer fichiers de plus de 3 mois
Supprimer 1 macro et 1 Userform en quittant
Supprimer un fichier par macro
Plus de sujets relatifs à Supprimer des fichiers suivant condition par macro
 > Tous les forums > Forum Bureautique