Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
Dim wbkAnalyses As Workbook, wbkExemple As Workbook
Dim shAnalyse As Worksheet, wbkExemple As Worksheet
Set wbkAnalyses = Workbooks.Open("C:\Documents and Settings\STAG3\Bureau\analyses.xls")
Set shAnalyses = wbkAnalyses.Sheets("Données Rapports")
Set wbkExemple = Workbooks.Open("C:\Documents and Settings\STAG3\Bureau\exemple.xls")
Set shExemple = wbkExemple.Sheets("Feuil1")
Bonjour,

J'ai ce code que j'aimerai implémenter afin de ne pas avoir à utiliser sans cesse les .Activate (Windows("exemple.xls").Activate) cependant je ne sais pas où placer cette déclaration pour pouvoir l'utiliser dans tout mon projet... J'ai essayé de le mettre dans un module à part mais cela me fait des erreurs...

Merci d'avance