Discussion :

[Croaker]

Bonjour à tous,

j'ai un petit problème (pas si puisque même quelques personnes relativement expérimentées non pas réussi à le résoudre) :

J'ai crée une macro qui :

Parcourt un fichier
-> Pour chaque fichier, crée une copie et copie colle le contenu du premier fichier à l'intérieur.

La macro marche bien mais des fois pour certains fichiers la macro ouvre bien le fichier en question et bim plus rien... Problème de comptabilité, d'activation des macros sur certains fichiers? J'ai essayé pas mal de trucs ( Comme le ".RunAutoMacros Which:=xlAutoActivate" après le Workbooks.Open(Filename:=Nom_Fichier) mais rien n'y fait ^^

[Pierre Fauconnier]

Salut.

Le code de la macro pourrait peut-être nous aider à t'aider...

[Croaker]

En fait c'est juste que je pensais qu'il y avait un ptit truc à faire (manip ou bout de code à introduire, pour que ça marche).

Bon je répète le problème : Lorsque la macro passe sur certains fichiers et bien elle s'interrompt et rien ne se passe (pas d'erreur... rien!)

Le code (qui permet de parcourir les fichiers d'un dossier, et qui crée pour chaque fichier un fichier "jumeau" en recopiant une plage du fichier de base :

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
 
 
Sub CopyRmas()
 
Dim Système As Object           'Système de fichiers
Dim Dossier As Object           'Répertoire
Dim Fichiers As Object          'Collection de fichiers du répertoire
Dim Fichier As Object           'Fichier (élément de la collection Fichiers)
Dim Nom_Dossier As String       'Nom du répertoire
Dim Nom_Fichier As String       'Nom du fichier parcouru
Dim Nom_Fichier2 As String      'Nom du fichier jumeau
Dim Def_Fichier2 As String      'Nom du fichier jumeau (emplacement)
Dim compt As Integer            'Compteur de fichiers
 
'Lecture du répertoire
Nom_Dossier = "C:\Documents and Settings\lehembrej\Mes documents\RMA confidentiel"
Set Système = CreateObject("Scripting.FileSystemObject")
Set Dossier = Système.GetFolder(Nom_Dossier)
Set Fichiers = Dossier.Files
'Contrôler chaque fichier du répertoire
MsgBox Dossier.Files.Count
compt = 0
For Each Fichier In Fichiers
    compt = compt + 1
 
  '- On compose le nom du fichier que l'on va aller chercher
    Nom_Fichier = Nom_Dossier & "\" & Fichier.Name
   ' MsgBox Nom_Fichier
  '- On ouvre le fichier
    Workbooks.Open(Filename:=Nom_Fichier).RunAutoMacros Which:=xlAutoActivate
    ActiveWindow.SmallScroll Down:=-51
  '- On copie les données qui nous intéressent
    Sheets("Recto").Select
    Range("A1:BJ93").Select
    Selection.Copy
 
    'Création du fichier jumeau
    Nom_Fichier2 = "twinfile" & Fichier.Name
    Call CreerXLS(Nom_Fichier2)
    Def_Fichier2 = Nom_Dossier & "\" & Nom_Fichier2
 
  '  MsgBox ("Nom Fichier : " & Nom_Fichier2 & "nb fichiers traités : " & compt)
 
    ' Ouverture du fichier jumeau
    Workbooks.Open Filename:=Def_Fichier2
 
    ' On copie les données dans le fichier jumeau
    Sheets("Feuil1").Select
    Range("a1").Select
    ActiveSheet.Paste
 
    'Sauvegarde et fermeture des deux fichiers
    ActiveWorkbook.Save
    ActiveWorkbook.Close
    ActiveWorkbook.Close
 
Next Fichier
 
End Sub

[Pierre Fauconnier]

Il faudrait étudier les macros des fichiers qui posent problème. Peut-être y-a-t-il à l'ouverture un code qui pose problème.

Es-tu bien sûr qu'il faille activer la macro Auto_Activate? Perso, il m'aurait semblé plus intéressant de ne pas l'activer...

Une autre possibilité serait de lire directement dans le classeur fermé (faq).

[Croaker]

Pour la macro Auto_Activate, sans ça ne marchait pas mieux alors... =)

Sinon un grand merci pour la piste de la lecture en fichier fermé.

Rha même en passant par la lecture sans ouverture, ça ne marche pas! Dommage l'idée était bonne, merci quand même!

[Pierre Fauconnier]

Sans avoir testé...

Je ne pense pas, sans avoir pu tester, que cette ligne pose problème, mais je ne comprends pas trop la ligne

Code :

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

ActiveWindow.SmallScroll Down:=-51

Il faut noter que ActiveWindow, à cet endroit de l'exécution, concerne le fichier que tu viens d'ouvrir (pas celui qui contient la macro)... Est-ce normal de descendre de -51 lignes? Pourquoi pas Up:=51 plutôt que Down=-51?

De plus, ce déplacement est effectué par rapport à la cellule active à la fermeture précédente du fichier, donc, tu dois être sûr de toi pour effectuer cette manoeuvre à l'ouverture du fichier.

D'autre part, les Select ne sont pas nécessaires, tu peux copier directement les données.

Pour mieux cerner le problème, tu dois essayer de déterminer le point commun aux fichiers qui posent problème. As-tu essayé la macro en pas à pas?