bonjour à tous
j'ai réalisé une macro par ajout de plusieurs petites.
bien sur ça ne marche pas super bien....

le schéma est le suivant:
j'ouvre un fichier dans le but d'en extraire les données.
je souhaite récupérer le nom et le chemin d'un fichier que je viens d’ouvrir , copier les données dont j'ai besoin, et déplacer ce fichier un fois fermé dans un dossier archive (nouveauchemin). voila mon code.

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
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
 
Sub deplaceetsupprime()
 
    ActiveWorkbook.Unprotect ("uut57h")
    Range("G17").Select
 
 
  Dim lecteurcsv As String
lecteurcsv = Sheets("parametres").Range("d2").Value
ChDrive lecteurcsv
 
 Dim chemincsv As String
chemincsv = Sheets("parametres").Range("E2").Value
ChDir chemincsv
 
    Classeur = Application.GetOpenFilename("csv utf-8,*.csv")
If Classeur = False Then Exit Sub
Workbooks.Open Filename:=Classeur
Application.WindowState = xlNormal
 
 Set MES_DONNEES = Application.Workbooks.Open(Classeur)
    'récuperation du nom du fichier à partir du chemin renvoyé par l'application "GetOpenFilename"
    TmpStr = Split(Classeur, "\")
    Filename = TmpStr(UBound(TmpStr))
    TmpStr = Split(Filename, ".")
    Filename = TmpStr(LBound(TmpStr))
 
 
 
 
    Range("A1:A50").Select
    Selection.Copy
    ActiveWindow.Close
 
 
Dim NouveauChemin As String
NouveauChemin = "C:\Users\jdr\Desktop\label controle matu\sortie\"
 
 
Kill NouveauChemin & Filename  'Supprime le fichier s'il existe déjà dans le nouveau répertoire
Name Chemin & Filename As NouveauChemin & Filename 'Copie le fichier vers la nouveau répertoire
Kill Chemin & fielmane 'Supprime le fichier de son répertoire original
 
 
 
 
 
    Range("A4").Select
 
    Sheets("analyses labo brutes").Select
    Range("A4").Select
    ActiveSheet.Paste
 
      Application.Run _
        "convertion_format_csv_xls"
 
 
 
 ActiveWorkbook.Protect Password:="uut57h"
 
 
 
 
 
End Sub
des idées?
merci d'avance.
jean