VBA Erreur 400
Bonjour,
Je souhaite enregistrer un fichier dans un nouveau dossier avant de l'effacer, mais au moment de l'enregistrement, l'erreur 400 apparait, est-ce que quelqu'un pourrait m'aider a comprendre?
Je souhaite enregistrer un fichier dans un nouveau dossier avant de l'effacer, mais au moment de l'enregistrement, l'erreur 400 apparait, est-ce que quelqu'un pourrait m'aider a comprendre?
Private Sub DeplaceFichier(Fichier As Workbook, Chemin As String)
Dim NomFichier As String
'Chemin = Trim(Range("h4"))
NomFichier = Fichier.Name
'Pour enregister une copie seulement
Fichier.SaveCopyAs (Chemin & NomFichier)
ActiveWorkbook.Close
Kill Fichier
End Sub
3 réponses
-
ContributeurBonjour
regarde si "chemin" se termine par un "\"
si non
fichier.SaveCopyAs (Chemin & "\" & NomFichier)
-
Si c'est effectivement ça le problème, met plutôt application.PathSeparator plutôt que "\" ça évite beaucoup de problème de compatibilité
-
Je crois que Trim attend une string et tu lui donnes une range
