A voir également:
- Erreur automation vba
- Erreur 0x80070643 - Accueil - Windows
- Erreur 0x80070643 Windows 10 : comment résoudre le problème de la mise à jour KB5001716 - Accueil - Windows
- Erreur 4201 france tv ✓ - Forum Réseaux sociaux
- J'aime par erreur facebook notification - Forum Facebook
- Java code erreur 1603 ✓ - Forum Windows
7 réponses
yg_be
Messages postés
23541
Date d'inscription
Statut
Contributeur
Dernière intervention
Ambassadeur
1 584
bonjour, quel logiciel utilises-tu?
Set Data = ActiveWorkbook.Sheets("DATA")
Set Extract_to_SOP = ActiveWorkbook.Sheets("Extract_to_D€FI")
l = 10
Application.ScreenUpdating = False
' Clear the Extract to D€FI Sheet
Extract_to_SOP.Activate
Range("B10:V10").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Set Extract_to_SOP = ActiveWorkbook.Sheets("Extract_to_D€FI")
l = 10
Application.ScreenUpdating = False
' Clear the Extract to D€FI Sheet
Extract_to_SOP.Activate
Range("B10:V10").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
La prochaine fois, merci d'utiliser les balises de code (VAB est du basic): https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code
A quelle ligne se produit l'erreur?
A quelle ligne se produit l'erreur?
OK --> Lorsque j'ouvre le débogeur, la ligne "Extract_to_SOP.Activate" est pointée.
Set Data = ActiveWorkbook.Sheets("DATA") Set Extract_to_SOP = ActiveWorkbook.Sheets("Extract_to_D€FI") l = 10 Application.ScreenUpdating = False ' Clear the Extract to D€FI Sheet Extract_to_SOP.Activate Range("B10:V10").Select Range(Selection, Selection.End(xlDown)).Select Selection.ClearContents
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Je suspecte aussi cela car c'est vraiment le début de la macro et un de même collègue me confirme que le fichier fonctionne sur son PC. Comment puis-je charger un fichier ici?