[RESOLU] incompatibilté de type

[cathodique]

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 ***).

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

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.🙂

 

[pijaku]

Bonjour,

Petite erreur d'inattention...

If Dir(NewFichier) <> "" Then

 

[cathodique]

Bonjour,

Petite erreur d'inattention...

If Dir(NewFichier) <> "" Then

Merci beaucoup Pijaku🙂. 😳Là, tu m'as retiré une grosse épine.
Effectivement, je n'avais pas attention.😀

Encore merci.