coucou,
je viens de remarquer par hasard un petit probleme

voici mon code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
       'ajout d'une feuille de calcul portant le nom de la semaine suivante
        Sheets.Add after:=Sheets(Sheets.Count)
        Sheets(Sheets.Count).Name = "sem" & Sheets.Count - 1 & ""
        'ouverture du fichier contenant les données
        Set source = Application.Workbooks.Open(nom)
        Workbooks(1).Activate
        source.Sheets(1).Range("A1:H51").Copy ThisWorkbook.Sheets (Sheets.Count).Range("A1:H51")
 
        source.Close
        ThisWorkbook.Worksheets(1).Activate
Ce code fonctionne bien mais si il y a un autre fichier excel ouvert avant celui où s'execute cette macro, ma feuille créée où sont censées etre copiées les valeurs reste blanche (je n'ai pas ce probleme si un autre fichier excel est ouvert apres, seulement si il est ouvert avant)

Si quelqu'un sait pourquoi, je suis preneur