Discussion :

[jderoque]

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

[halaster08]

Bonjour,

bien sur ça ne marche pas super bien....

Pour obtenir un maximum de réponses et/ou des réponses pertinentes, je te conseille d'être un peu plus précis.
Quel est le problème ? un message d'erreur ?Si oui, lequel et a quelle ligne ? Si non, que fait ou ne fait pas la macro par rapport a ce que tu attendais.

[jderoque]

bonjour
je vais donc être plus précis.
la macro s’arrête et bug à la ligne 40. je pense que les variables sont mal définies. on devrait reprendre les variables des lignes 23 et 24.
en espérant avoir été plus clair.
merci

[halaster08]

je vais donc être plus précis.
la macro s’arrête et bug à la ligne 40.

Il manque le descriptif de l'erreur

je pense que les variables sont mal définies. on devrait reprendre les variables des lignes 23 et 24.

Tu peux voir leur valeur au moment de l'erreur soit en passant ta souris dessus, soit dans la fenêtre des variables locales
Si tu veux reprendre les variables des lignes 23 et 24 qu'est ce qui t'en empêche ?

A supposer que ton chemin soit bon, si le fichier n'existe pas, kill donnera forcément une erreur, il faut donc tester l'existence du fichier avant le kill

Code :

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

If Dir(NouveauChemin & Filename) <> "" Then Kill NouveauChemin & Filename

[jderoque]

super merci beaucoup.
le problème venait des variables.