cathodique
XLDnaute Barbatruc
Bonjour,
J'essaie de copier un fichier ouvert dans un sous-dossier tout en le renommant.
Le code s’exécutait convenablement mais écrasé le fichier sans avertissement.
Donc, j'ai rajouté du code pour vérifier si le fichier existe, mais là ça plante (ligne ***).
le message m'indique une incompatibilité de type, je n'ai compris pourquoi?
Un coup de main de votre part me permettra d'avancer , Merci.
J'essaie de copier un fichier ouvert dans un sous-dossier tout en le renommant.
Le code s’exécutait convenablement mais écrasé le fichier sans avertissement.
Donc, j'ai rajouté du code pour vérifier si le fichier existe, mais là ça plante (ligne ***).
VB:
Option Explicit
Sub CopierFichier()
Dim GestionFichier As Object
Dim chemin As String, Dossier As String, Exercice As String, Complet As String, NewFichier As String
Exercice = Year(Sheets("Paramètres").Range("N16").Value)
Set GestionFichier = CreateObject("Scripting.FileSystemObject")
chemin = ThisWorkbook.Path
Complet = ThisWorkbook.FullName
NewFichier = chemin & "\" & Exercice & "\" & "Arche " & Exercice & ".xlsb"
If Dir(NewFichier <> "") Then '*** incompatibilté de type
MsgBox "Ce Fichier a déjà été créé!", vbCritical, "CREATION FICHIER EXERCICE"
Else
GestionFichier.CopyFile Complet, NewFichier
End If
Set GestionFichier = Nothing
End Sub
Un coup de main de votre part me permettra d'avancer , Merci.