Discussion :

[Denis_67]

Bonjour,

J'ai une boucle qui cherche des fichiers pour mettre à jour une base.

J'aimerais ajouter une sauvegarde du fichier lu dans un sous répertoire avant de supprimer l'original et comme ça ne fonctionne pas je voulais débugger.
or je n'arrive pas à prendre la main dans la boucle pour vérifier ma séquence le fichier s'ouvre et la macro se termine. j'ai mis des point d'arrets, mais cela ne change rien.

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
Sub Import()
On Error GoTo 0   '<== tentative pour forcer au cas ou le gestionnaire d'erreur soit inactif
Dim Fich, Mon_Rep As String, Ctr As Long, Ligne As Integer
Dim La_Colon
 
'Application.ScreenUpdating = False
 
Mon_Rep = "G:\TRANSFERT\FICHIERS_SAP\"
        Fich = Dir(Mon_Rep & "STK_Nav_MP*.csv")
 
While Len(Fich) > 0
 
Workbooks.Open Filename:=Mon_Rep & Fich, Local:=True
Stop  '<==== ne s'arrete pas
ActiveSheet.Range("A2:K" & ActiveSheet.Range("A1048576").End(xlUp).Row).Copy ThisWorkbook.Worksheets("Reception").Range("A" & ThisWorkbook.Worksheets("Reception").Range("A1048576").End(xlUp).Row + 1)
 
Workbooks(Fich).SaveAs Mon_Rep & "Save_navettes\" & Fich   ' <== ce que je souhaite faire 
Workbooks(Fich).Close
Kill Mon_Rep & Fich
Fich = Dir
Wend
 
    ActiveWorkbook.RefreshAll
 
MsgBox "j'ai fini ! "
 
End Sub

merci de vos conseils
Denis

[Pierre Fauconnier]

Salut

De mon côté, l'exécution s'arrête bien sur la ligne Stop. Qu'est-ce qui ne fonctionne pas dans ton code?

Ceci dit:

1. On Error Goto 0 ne sert pas à grand chose en début de macro. Ca ne désactive pas les gestionnaires d'erreurs qui seraient présents dans la pile d'appel. Au mieux, ça remet l'erreur à 0;
2. Perso, je travaillerais avec une variable de type workbook pour piloter plus facilement mon code;
3. Si tu souhaites enregistrer le fichier au format CSV (vu le nom que tu utilises), il serait souhaitable de le préciser: wbSource.SaveAs Mon_Rep & "Save_navettes\" & Fich, FileFormat:=xlCSV.

Code NON TESTÉ!!

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
Sub Import()
  Dim Fich, Mon_Rep As String, Ctr As Long, Ligne As Integer
  Dim La_Colon
  Dim wbSource As Workbook
  Dim Source As Range, Target As Range
 
  Mon_Rep = "c:\data\temp\"
  Fich = Dir(Mon_Rep & "*.csv")
 
  While Len(Fich) > 0
    Set wbSource = Workbooks.Open(Filename:=Mon_Rep & Fich, Local:=True)
    Stop  '<==== ne s'arrete pas
    Set Target = ThisWorkbook.Worksheets("Reception").Range("A1048576").End(xlUp)(2)
    Set Source = ctiveSheet.Range("A2:K" & ActiveSheet.Range("A1048576").End(xlUp).Row)
    Source.Copy Target
    wbSource.SaveAs Mon_Rep & "Save_navettes\" & Fich, FileFormat:=xlCSV  ' <== ce que je souhaite faire
    wbSource.Close
    Kill Mon_Rep & Fich
    Fich = Dir
  Wend
 
  ActiveWorkbook.RefreshAll
  MsgBox "j'ai fini ! "
End Sub