Bonjour à tous,
J'ai deux macros qui fonctionnent bien, mais ne sont pas fiables.
La première :
Le soucis ici, c'est que si le fichier existe déjà, il écrase l'ancien pour le remplacer, et j'aimerai que si le fichier existe déjà, qui ne le remplace pas... Vous avez une idée ?
J'ai exactement le même soucis sur cette macro, qui cette fois crée une copie d'un dossier sous un nouveau nom :
Merci pour votre aide
J'ai deux macros qui fonctionnent bien, mais ne sont pas fiables.
La première :
Code:
Sub CREATION_BACKUP()
Dim BB, FF As String
BB = Sheets("Réf.Macro").Range("L46").Value
FF = Sheets("Réf.Macro").Range("L50").Value
FileCopy BB, FF
End Sub
Le soucis ici, c'est que si le fichier existe déjà, il écrase l'ancien pour le remplacer, et j'aimerai que si le fichier existe déjà, qui ne le remplace pas... Vous avez une idée ?
J'ai exactement le même soucis sur cette macro, qui cette fois crée une copie d'un dossier sous un nouveau nom :
Code:
Sub CREATION_COPIE_SEMAINE()
Dim BB, CC As String
Dim FSO As Object
BB = Sheets("Réf.Macro").Range("L91").Value
CC = Sheets("Réf.Macro").Range("L92").Value
If Right(BB, 1) = "\" Then
BB = Left(BB, Len(BB) - 1)
End If
If Right(CC, 1) = "\" Then
CC = Left(CC, Len(CC) - 1)
End If
Set FSO = CreateObject("scripting.filesystemobject")
If FSO.FolderExists(BB) = False Then
MsgBox BB & " doesn't exist"
Exit Sub
End If
FSO.CopyFolder SOURCE:=BB, Destination:=CC
End Sub
Merci pour votre aide