fermer classeur excel

fourezizou

XLDnaute Occasionnel
bonjour la forum
je cherche comment fermer une classseur excel (A) avec planification de teche
test si le classeur (A )ouvert then enregistrer et fermer le classeur (A)
 

Yaloo

XLDnaute Barbatruc
Re : fermer classeur excel

Bonsoir fourezizou,

Avec ceci :

VB:
For Each classeur In Workbooks      ' pour chaque classeur dans l'ensemble des classeurs ouverts
    If classeur.Name = "Classeur1.xlsx" Then   'si le nom est celui du classeur récap celui-ci est ouvert
        Workbooks("Classeur1.xlsx").Save 'On enregistre
        Workbooks("Classeur1.xlsx").Close 'On ferme
    End If
Next

A+

Martial
 

fourezizou

XLDnaute Occasionnel
Re : fermer classeur excel

RE
Je copie le code dans bloc note et je faire petite modification et je enregistrer le fichier en format (.VBS) pour exécuter avec planification de tache mais ca marche pas …..
-le code

Dim Xl
set xl = createobject("Excel.application")
Xl.Visible = True
Xl.enableevents=false
'Chemin et nom du fichier à ouvrir
set Wk = Xl.workbooks
For Each classeur In WK
If classeur.Name = "Classeur1.xlsx" Then
Wk("Classeur1.xlsx").Save
Wk("Classeur1.xlsx").Close

End If
Next

xl.quit
 

Yaloo

XLDnaute Barbatruc
Re : fermer classeur excel

Bonjour fourezizou,

Désolé je n'avais pas compris que tu souhaitais fermer ton fichier par le planificateur de tache.

En effet, il faut sûrement passer par un vbs, mais alors là je ne sais pas faire.

A+

Martial
 

Yaloo

XLDnaute Barbatruc
Re : fermer classeur excel

Bonsoir fourezizou,

Je pense que tu es tombé sur ce fil .

Tu pourrais peut-être te servir de ça pour lancer un fichier Excel ayant une macro permettant de vérifier si le classeur1 est ouvert, l'enregistrer puis le fermer, puis fermer le fichier de la macro.

C'est un peu long, mais ça doit fonctionner.

A+

Martial
 

Discussions similaires