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.