VBA Erreur 400

Fermé

Lordknight Messages postés 5 Date d'inscription vendredi 4 juillet 2014 Statut Membre Dernière intervention 23 juillet 2014 - 23 juil. 2014 à 11:46
borntobealive Messages postés 138 Date d'inscription jeudi 17 juillet 2014 Statut Membre Dernière intervention 25 février 2019 - 28 juil. 2014 à 10:44

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

A voir également:

VBA Erreur 400
Erreur 0x80070643 - Guide
Iptv erreur de lecture - Forum TV & Vidéo
Vba range avec variable ✓ - Forum VB / VBA
Vba erreur automation référence future non valide ✓ - Forum Word
Erreur 1004 vba ✓ - Forum Excel

3 réponses

Réponse 1 / 3

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
25 juil. 2014 à 10:31

Bonjour

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

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

Réponse 2 / 3

borntobealive Messages postés 138 Date d'inscription jeudi 17 juillet 2014 Statut Membre Dernière intervention 25 février 2019 7
28 juil. 2014 à 10:44

Si c'est effectivement ça le problème, met plutôt application.PathSeparator plutôt que "\" ça évite beaucoup de problème de compatibilité

Réponse 3 / 3

borntobealive Messages postés 138 Date d'inscription jeudi 17 juillet 2014 Statut Membre Dernière intervention 25 février 2019 7
25 juil. 2014 à 09:55

Je crois que Trim attend une string et tu lui donnes une range

Discussions similaires

VBA erreur 1004

Instagram "Désolé, une erreur s'est produite"

"L'indice n'appartient à la sélection" + VBA

Erreur vidéo inconnue sur le Freebox Player

Free erreur 38 : impossible d'envoyer des SMS

Discussions similaires

Newsletters