VBA Erreur 400

Lordknight Messages postés 5 Date d'inscription   Statut Membre Dernière intervention   -  
borntobealive Messages postés 138 Date d'inscription   Statut Membre Dernière intervention   -
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? 

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

Réponse 1 / 3
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 313
 
Bonjour

regarde si "chemin" se termine par un "\"

si non
fichier.SaveCopyAs (Chemin & "\" & NomFichier)

0
Réponse 2 / 3
borntobealive Messages postés 138 Date d'inscription   Statut Membre Dernière intervention   7
 
Si c'est effectivement ça le problème, met plutôt application.PathSeparator plutôt que "\" ça évite beaucoup de problème de compatibilité
0
Réponse 3 / 3
borntobealive Messages postés 138 Date d'inscription   Statut Membre Dernière intervention   7
 
Je crois que Trim attend une string et tu lui donnes une range
-1

Discussions similaires

Erreur 3005 sur France TV
Cambodgil -
PK -

5 réponses
Recherche de pilote de l'imprimante canon f166400
Cisse -
jmarion3 -

5 réponses
debloquer le code 400 bad request qui s'affiche à google
fath -
DelNC -

1 réponse
Code erreur 3000
Laurent -
JM -

5 réponses
Erreur d'exécution 13 Incompatibilité de type
grace -
pijaku -

5 réponses