Eplacer fichier dans dossier nouvellement créer

Bonjour ou bonsoir le forum,

alors voilà je galère grave sur une macro et la il est 00h43

je vous explique pourquoi.J'ai une macro qui crée un dossier via une inputbox dont la valeur est variable.

ce que je voudrait faire :

c'est déplacer des fichiers de type (dxf) existant, dans un nouveau ss-dossier créer avec la variable inputbox

ex: c:\dossier existant\fichier.dxf à déplacer dans c:\dossier existant\ssdossier créer avec la variable\ fichier.dxf

Avec un msg "les fichiers ont été déplacer avec succès."

au départ je suis parti sur une copie des fichiers et ensuite la suppression des fichiers originaux.

Mais je pense que les déplacer allègera le code

Merci d'avance le forum pour votre aide!!!

Et merci Transitoire pour le conseil:)

Voici le code en question

 Sub var_dossier()

Dim num As String
Dim Chemin As String
Dim NouveauChemin As String
Dim Fichier As String

Do

num = Application.InputBox("Veuillez nommer votre dossier", "CREATION DE DOSSIER DEPARTEMENTAUX OU DE COMMUNE", " ")

If Dir("J:\0-LOG INFORMATIQUE\10-Fichier Bat\2-CODE\UNZIP_2020\RECEPTION\" & num, vbDirectory) = "" Then _
    MkDir "J:\0-LOG INFORMATIQUE\10-Fichier Bat\2-CODE\UNZIP_2020\RECEPTION\" & num

  If IsNumeric(num) Then Exit Do 

  MsgBox ("les fichiers ont été déplacer avec succès")

Loop

 'ActiveWorkbook.Close False

Chemin = "J:\0-LOG INFORMATIQUE\10-Fichier Bat\2-CODE\UNZIP_2020\RECEPTION\"
NouveauChemin = "J:\0-LOG INFORMATIQUE\10-Fichier Bat\2-CODE\UNZIP_2020\RECEPTION\" & num 

Fichier = "*.dxf"

Name Chemin & Fichier As NouveauChemin & Fichier 'Copie le ou les fichier(s) vers la nouveau répertoire
Kill Chemin & Fichier 'Supprime le ou les fichier(s) de son répertoire original
MsgBox ("les fichiers ont été déplacer avec succès.")

End Sub 

Bonjour,

Fichier = "*.dxf"
  DeplaceFichier Chemin & Fichier, NouveauChemin & Fichier
MsgBox ("les fichiers ont été déplacer avec succès.")
Sub DeplaceFichier(Source As String, Dest As String)
    Dim GestionFichier As New Scripting.FileSystemObject
    GestionFichier.MoveFile Source, Dest
    Set GestionFichier = Nothing
End Sub

Bonjour oxydum et bonjour forum

tout d'abord merci pour ton retour, mais malheureusement ça ne fonctionne pas.

J'ai pourtant activé le module Microsoft Scripting runtime

Je m'y suis peut être mal pris voici le code insérer dans le module 1:

Sub var_dossier()

Dim num As String
Dim Chemin As String
Dim NouveauChemin As String
Dim Fichier As String

Do

num = Application.InputBox("Veuillez nommer votre dossier", "CREATION DE DOSSIER DEPARTEMENTAUX OU DE COMMUNE", " ")

If Dir("J:\0-LOG INFORMATIQUE\10-Fichier Bat\2-CODE\UNZIP_2020\RECEPTION\" & num, vbDirectory) = "" Then _
MkDir "J:\0-LOG INFORMATIQUE\10-Fichier Bat\2-CODE\UNZIP_2020\RECEPTION\" & num

If IsNumeric(num) Then Exit Do

MsgBox ("les fichiers ont ?t? déplacer avec succès")

Loop

Chemin = "J:\0-LOG INFORMATIQUE\10-Fichier Bat\2-CODE\UNZIP_2020\RECEPTION" & Fichier
NouveauChemin = "J:\0-LOG INFORMATIQUE\10-Fichier Bat\2-CODE\UNZIP_2020\RECEPTION\" & num

Fichier = "*.dxf"
DeplaceFichier Chemin & Fichier, NouveauChemin & Fichier
MsgBox ("les fichiers ont ?t? déplacer avec succès.")

End Sub

et le code du module 2:

Sub DeplaceFichier(Source As String, Dest As String)
    Dim GestionFichier As New Scripting.FileSystemObject
    GestionFichier.MoveFile Source, Dest
    Set GestionFichier = Nothing
End Sub

J'ai une erreur sur cette ligne au module 2:

erreur d'exécution 5

"argument ou procédure incorrect"

GestionFichier.MoveFile Source, Dest

je continue de chercher je mettrais la soluce si je la trouve.

Et d'avance merci à tous.

Rechercher des sujets similaires à "eplacer fichier dossier nouvellement creer"