Bonjour,
Je suis très très nouveau sur VBA et j'aurai besoin d'aide à modifier ce code.
Ce code permet de copier l'ensemble des fichier excel et pdf qui se trouve sur le répertoire Temp vers deux répertoire pdf et excel et par la suite les supprimer. Ce que je veux réaliser c'est que, lorsque j'ai un document qui ne peut pas être copié alors ne pas le supprimer
Merci bien de votre aide
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 On Error Resume Next Rapport = Dir("\\Temp\") Do While Rapport <> "" If Right(Rapport, 3) = "pdf" Then FileCopy "\\Temp\" & Rapport, "\\pdf\" & Rapport Kill "\\Temp\" & Rapport ElseIf Right(Rapport, 4) = "xlsx" Then FileCopy "\\Temp\" & Rapport, "\\excel\" & Rapport Kill "\\Temp\" & Rapport End If Rapport = Dir Loop On Error GoTo 0
Partager