Discussion :

[francesco069]

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 (dxf) existant dans le nouveau dossier créer avec la variable inputbox
Et si possibles une 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

[Transitoire]

Bonjour, peu de personnes ouvre des dossiers joints surtout au départ.
https://www.developpez.net/forums/d8...s-discussions/
Votre explication n'est pas claire du tout. je vous conseille puisque vous avez une macro de la mettre entre les balises Dièse(#) afin d'une présentation comme ci-dessous

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub Test()
....code
End Sub

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 (dxf) existant dans le nouveau dossier créer avec la variable inputbox
Et si possibles une msg les fichiers ont été déplacer avec succès.

Cordialement

[francesco069]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
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
 
'Attention si ActiveWorkbook.Close False fermeture automatique du classeur ss enregistrement du fichier, code ? conserver avant test
 'ActiveWorkbook.Close False
 
 
'deplacer fichier dans autre dossier
 
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 'nouveau chemin jusqu'au dossier cr?er
 
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 (".")
 
 
End Sub

[Menhir]

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

C'est ce que fait l'instruction Name si les deux répertoires sont sur le même disque, ce qui semble être ton cas.
Lire ça : https://docs.microsoft.com/fr-fr/off...name-statement

Ton Kill semble donc inutile.

Ce qui pose problème, est sans doute le caractère générique * pour spécifier le(s) fichier(s).

Des réminiscences de mon époque MS-DOS me suggèrent de te conseiller d'essayer de ne pas mettre de nom de fichier de destination en ne laissant que le répertoire destination sans "\" final (que tu avais d'ailleurs oublié dans ton code) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Name Chemin & Fichier As NouveauChemin

Voir même :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
ChDrive "J"
ChDir "\0-LOG INFORMATIQUE\10-Fichier Bat\2-CODE\UNZIP_2020\RECEPTION"
Name "*.dxf" As num

[francesco069]

Bonjour Menhir et bonjour forum

tout d 'abord merci pour ton retour, mais malheureusement ça ne fonctionne pas.
Peut être un module à activé ?ou
Je m 'y suis peut être mal pris voici le code insérer dans le module 1:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
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 ("Veuillez saisir le CP du département ou le code INSEE de la commune.")
 
Loop
 
 
ChDrive "J"
ChDir "\0-LOG INFORMATIQUE\10-Fichier Bat\2-CODE\UNZIP_2020\RECEPTION"
Name "*.dxf" As num
 
 
'Name Chemin & Fichier As NouveauChemin
MsgBox ("les fichiers ont été déplacer avec succès.")
 
 
End Sub

J'au une erreur au niveau de la ligne:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Name "*.dxf" As num

je continue de chercher je mettrai la soluce si je la trouve.
Et d'avance merci à tous.