bonjour,

Dans une macro j'ai le code suivant :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Dim  nom_fichier, fichier_source as string
 
Windows(nom_fichier & ".xlsm").open
Windows(nom_fichier & ".xlsm").Visible = False ' *** l'erreur est ici, si je mais True la macro fonctionne******
 
Application.DisplayAlerts = False
 
Workbooks(nom_fichier & ".xlsm").Sheets("historique").Delete
 
Workbooks(fichier_source).Sheets("historique").Copy After:=Workbooks(nom_fichier & ".xlsm").Sheets("12")
Workbooks(nom_fichier & ".xlsm").Close SaveChanges:=True
Le but si vous avez compris est de supprimer une feuille dans un classeur puis de copier une feuille depuis le fichier source vers une autre fichier (la condition étant de ne pas afficher le fichier destinataire).
un message d'erreur apparait avec :
la copie a échouée
par contre, si : Windows(nom_fichier & ".xlsm").Visible = True, cela fonctionne

Mais la condition reste que le fichier doit être invisible

merci de votre aide

Cordialement