fermer classeur excel

Y

Yaloo

XLDnaute Barbatruc

• 5 Mars 2013

• #2

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

 

Vote positif 0 Vote négatif

fourezizou

XLDnaute Occasionnel

• 5 Mars 2013

• #3

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

 

Vote positif 0 Vote négatif

Y

Yaloo

XLDnaute Barbatruc

• 5 Mars 2013

• #4

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

 

Vote positif 0 Vote négatif

fourezizou

XLDnaute Occasionnel

• 5 Mars 2013

• #5

Re : fermer classeur excel

RE
Merci pour votre temps

 

Vote positif 0 Vote négatif

Y

Yaloo

XLDnaute Barbatruc

• 5 Mars 2013

• #6

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

 

Vote positif 0 Vote négatif