Bonjour a tous,
Avant de revenir sur une autre de mes questions la semaine dernière, j'ai un petit soucis.
Je lance une macro à la fermeture (merci à ceux qui m'ont aidé ) afin de copier des valeurs de ce classeur vers un autre.
Je crois que j'ai un problème pour selectionner le bon fichier excel au bon moment.
Fichier ou je prend les infos : "C:\test\Bureaui\Controle\2eme jet\" & NumOF
Fichier ou je copie : "C:\Test\Bureaui\Controle\2eme jet\Recapitulatif"
Il me marque une errreur d'exécution 9 : L'indice n'appartient pas à la selection. (au debuggage, c'est la ligne en jaune ci-dessus qui est surlignée).
Merci poru votre aide.
Avant de revenir sur une autre de mes questions la semaine dernière, j'ai un petit soucis.
Je lance une macro à la fermeture (merci à ceux qui m'ont aidé ) afin de copier des valeurs de ce classeur vers un autre.
Je crois que j'ai un problème pour selectionner le bon fichier excel au bon moment.
Fichier ou je prend les infos : "C:\test\Bureaui\Controle\2eme jet\" & NumOF
Fichier ou je copie : "C:\Test\Bureaui\Controle\2eme jet\Recapitulatif"
Code:
' Pour cacher l'opération
Application.ScreenUpdating = False
'Boucle
For Compteur = 15 To 38
' Copie de la ligne si l'export est à 0
[B][COLOR="Yellow"]Workbooks("C:\test\Bureaui\Controle\2eme jet\" & NumOF).Activate[/COLOR][/B]
Sheets("Contrôle et Comptage").Select
If Range("K" & Compteur).Value = 0 & Range("A" & Compteur).Value <> "" Then
Range("A" & Compteur & ":I" & Compteur).Select
Selection.Copy
' Copie des Données dans le classeur Recap
Workbooks("C:\Test\Bureaui\Controle\2eme jet\Recapitulatif").Activate
Worksheets("Lots").Activate
' Recherche première ligne vide
LigneVide = Range("A65536").End(xlUp).Row + 1
' copie des données
Range("M" & LigneVide & ":U" & LigneVide).Select
End If
Next
Application.ScreenUpdating = True
End Sub
Il me marque une errreur d'exécution 9 : L'indice n'appartient pas à la selection. (au debuggage, c'est la ligne en jaune ci-dessus qui est surlignée).
Merci poru votre aide.