Comment boucler chaque feuille Résolu

Question

Bonjour, 

Je dois modifier plusieurs dizaines de fichiers Excel 2010 contenant chacun une à dix feuilles.
Pour cela, j'ai réalisé la macro suivante. Avec elle, j'arrive à modifier tous les fichiers, mais une seule feuille par fichier. Quelqu'un peut-il me dire où est mon erreur?



Sub BaseDonnées()
Dim Chemin As String, Fichier As String
Dim Feuille As Worksheet
Chemin = ThisWorkbook.Path & "\"
Fichier = Dir(Chemin & "*.xls")
'boucle sur tous les classeurs
Do While Len(Fichier) > 0
If Fichier <> ThisWorkbook.Name Then
'ouvre le fichier
Workbooks.Open Filename:=Chemin & Fichier
'boucle sur chaque feuille
For Each Feuille In ActiveWorkbook.Worksheets
'
' BaseDonnées Macro
'

'
    Cells.Select
    Selection.UnMerge
    Range("T5").Select
    Selection.Copy
    Range("CJ9").Select
    ActiveSheet.Paste
    Range("BV5").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("CK9").Select
    ActiveSheet.Paste
    Range("J6").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("CL9").Select
    ActiveSheet.Paste
    Range("AW6").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("CM9").Select
    ActiveSheet.Paste
    Range("O29").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("CN9").Select
    ActiveSheet.Paste
    Range("CB29").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("CO9").Select
    ActiveSheet.Paste
    Range("CP9").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = _
        "=LEFT(CELL(""nomfichier"",R[-8]C[-93]),FIND(""["",CELL(""nomfichier"",R[-8]C[-93]))-2)"
    Range("CJ9:CP9").Select
    Selection.Copy
    Range("CJ10").Select
    ActiveSheet.Paste
    Range("CJ11").Select
    ActiveSheet.Paste
    Range("CJ12").Select
    ActiveSheet.Paste
    Range("CJ13").Select
    ActiveSheet.Paste
    Range("CJ14").Select
    ActiveSheet.Paste
    Range("CJ15").Select
    ActiveSheet.Paste
    Range("CJ16").Select
    ActiveSheet.Paste
    Range("CJ17").Select
    ActiveSheet.Paste
    Range("CJ18").Select
    ActiveSheet.Paste
    Range("CJ19").Select
    ActiveSheet.Paste
    Range("CJ20").Select
    ActiveSheet.Paste
    Range("CJ21").Select
    ActiveSheet.Paste
    Range("CJ22").Select
    ActiveSheet.Paste
    Range("CJ23").Select
    ActiveSheet.Paste
    Range("CJ24").Select
    ActiveSheet.Paste
    Range("CJ25").Select
    ActiveSheet.Paste
    Range("CJ26").Select
    ActiveSheet.Paste
    Range("CJ27").Select
    ActiveSheet.Paste
Next
ActiveWorkbook.Save
ActiveWorkbook.Close
End If
Fichier = Dir()
Loop
End Sub





Configuration: Windows XP / Internet Explorer 8.0

eriiic · Answer

Bonjour,

La structure est bonne, mais tu t'adresses toujours à la feuille active.
Et ça n'est pas très optimisé. Evite les .select qui ne servent à rien d'autre que ralentir.

Pour t'adresser à la feuille utilise With Feuille, ensuite tu mets un . (partout où c'est nécessaire, et sans en oublier un seul) pour dire que tu t'adresses à l'objet défini dans le with 
Ex :
For Each Feuille In ActiveWorkbook.Worksheets
    With Feuille
        .Cells.UnMerge
        .Range("T5").Copy .Range("CJ9")
        .Range("BV5").Copy .Range("CK9")
    End With
Next Feuille
Quand ça sera au point ajoute en début de code :
application.screenupdating=false
et application.screenupdating=true à la fin
Ca évitera les clignotements désagréables et accélèrera l'ensemble.

eric

edit: bien entendu teste sur des copies de fichiers vu que tu enregistres des modifications

 
Jamais tu ne répondras à un mp non sollicité...
Bon, ça c'est fait.

Comment boucler chaque feuille

1 réponse

Discussions similaires

Newsletters