HELP Erreur execution macro dans plusieurs classeurs

[pledger]

Bonjours ,

Je vous contact un peut en catastrophe car j'ai une macro que je souhaite exécuter dans plusieurs fichiers ( 73) mais elle me donne une erreur.

Je doit absolument terminer pour demain matin mon travail mais 73 fichiers c'est trop long à la main.

voici la macro :

Sub test()

Dim wb As Workbook
For Each wb In Workbooks

monID = 0
j = 1
k = 1
derniereLigne = wb.Sheets(1).Range("B65536").End(xlUp).Row
For i = 1 To derniereLigne
If wb.Sheets(1).Cells(i, 1).Value <> "" Then
monID = monID + 1
valeur = wb.Sheets(1).Cells(i, 1).Value
wb.Sheets(2).Cells(j, 1).Value = monID
wb.Sheets(2).Cells(j, 2).Value = Sheets(1).Cells(i, 1).Value
j = j + 1
End If
wb.Sheets(3).Cells(k, 1).Value = monID
wb.Sheets(3).Cells(k, 2).Value = Sheets(1).Cells(i, 2).Value
k = k + 1
Next

wb.Sheets(2).Name = "Danger"
wb.Sheets(3).Name = "Mesure"


Next wb
End Sub

J'ai l'erreur suivante : l'indice n’appartiens pas à la sélection alors que j'ai biens toutes mes feuilles.

Avez vous une idée d'où pourrait venir le problème ?

Merci d'avance =)

 

[pledger]

Re : HELP Erreur execution macro dans plusieurs classeurs

ps : la macro en elle même marche dans un classeurs seul si on enleve les wb.sheets

 

[JNP]

Re : HELP Erreur execution macro dans plusieurs classeurs

Bonjour Pledger ,
Bête question : tes 73 fichiers sont ouverts ? Workbooks représente les classeurs ouverts ...
Autre bête question : tu traites le fichier depuis lequel tu lances la macro comme les autres, car je n'ai pas vu d'exclusion de fichier ...
Et sur quelle ligne ça bug ?
A te lire

 

[pledger]

Re : HELP Erreur execution macro dans plusieurs classeurs

Bonjour JNP,

Oui les 73 fichiers sont ouverts , et oui je traite le fichier depuis lequel je lance la macro et pour finir Excel ne me montre pas la ligne où cela beugue .

En revanche à la base j'vais fait cette macro :

Public premier As Boolean

Sub Macro12()
'
' Macro12 Macro
'
' Touche de raccourci du clavier: Ctrl+n

    Dim wb As Workbook
    
    For Each wb In Workbooks
    
        If wb.Name Like "Analyse*" Then
        
            wb.Sheets("Feuil1").Select
            wb.Sheets("Feuil1").Move Before:=Sheets(1)
            wb.Sheets("Concaténation").Select
        
            Columns("A:A").Select
            Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
            Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
        
            wb.Sheets("Feuil1").Select
            wb.Sheets("Feuil1").Move Before:=Sheets("Concaténation")
            
        End If
    
        If premier = False Then
            monID = 0
        End If
            j = 1
            k = 1
            
            derniereLigne = wb.Sheets("Feuil1").Range("B65536").End(xlUp).Row
                
        For i = 1 To derniereLigne
            If wb.Sheets(1).Cells(i, 1).Value <> "" Then
                monID = monID + 1
                valeur = Sheets("Feuil1").Cells(i, 1).Value
                wb.Sheets("Concaténation").Cells(j, 1).Value = monID
                wb.Sheets("Concaténation").Cells(j, 2).Value = Sheets("Feuil1").Cells(i, 1).Value
                j = j + 1
            End If
            
            wb.Sheets("Feuil2").Cells(k, 1).Value = monID
            wb.Sheets("Feuil2").Cells(k, 2).Value = Sheets("Feuil1").Cells(i, 2).Value
            k = k + 1
        Next
        
        wb.Sheets("Concaténation").Name = "Danger"
        wb.Sheets("Feuil2").Name = "Mesure"
      
       
    Next wb

End Sub

Elle plante a la ligne

wb.Sheets("Concaténation").Name = "Danger"

mais n'execute pas le reste.

J'ai donc abandonné la première partie que je ferai à la main ( ca va être long...)

2jours que je suis dessus je commence a me dire que je n'y arriverais pas :/

 

[pledger]

Re : HELP Erreur execution macro dans plusieurs classeurs

Personne pour m'aider ? :§

 

[JNP]

Re : HELP Erreur execution macro dans plusieurs classeurs

Re ,
A tester :
Mettre un

On Error Resume Next

en début de macro et

On Error GoTo 0

en fin de macro. Ça désactivera la gestion des erreurs. Il suffira de vérifier quels sont les fichiers non traités à la fin...
Un conseil, faire une copie des 73 fichiers avant de lancer ce type de macro ...
Bon courage

 

[pledger]

Re : HELP Erreur execution macro dans plusieurs classeurs

J'ai des fichiers epres pour les test Merci beaucoup je test cela desuite

 

[pledger]

Re : HELP Erreur execution macro dans plusieurs classeurs

Ca marche ! Vraiment je te remercie ! Sans toi la nuit des copié collé etait annoncée ^^

Merci JNP

 

[pledger]

Re : HELP Erreur execution macro dans plusieurs classeurs

Cela ne marche pas sur ma deuxième macro mais ce n'est aps grave