macro:fermetue du fichier

[al1000]

Bonjour,


Workbooks.Count Filename:="K:\abs\aa.xls"


dans ma macro lorsque je la lance :

elle bloque et elle me surligne Count

il a t il une erreur dans l'ecritue?

 

[Kobaya]

Re : macro:fermetue du fichier

bonjour al1000,

Workbooks.Count donne le nombre de classeurs dans la session Excel.
la propriété Count de l'objet Workbooks n'attend aucun paramètre (du genre Filename), d'où l'erreur.

pour sauvegarder un fichier c'est :
ActiveWorkbook.SaveAs Filename:="K:\abs\aa.xls"

 

[al1000]

Re : macro:fermetue du fichier

Bonjour,
le but de la macro est de fermer le fichier aa sans le sauvegarder


a+

 

[Kobaya]

Re : macro:fermetue du fichier

alors c'est : ActiveWorkbook.Close Save:=False

 

[al1000]

Re : macro:fermetue du fichier

Bonjour,


ActiveWorkbook.Close Save:=False


quand je lance cette macro il me surligne save:=
et il m'idinque:argument nomme introuvable


pourquoi?

a+

 

[Kobaya]

Re : macro:fermetue du fichier

parce que l'argument n'est pas save mais savechanges. donc ça donne :
ActiveWorkbook.Close savechanges:=False

je suis confus 🙁

 

[al1000]

Re : macro:fermetue du fichier

bonsoir,

cette macro fonctionne
mais je veux fermer un autre classeur.
Je m'explique :

j'ai 2 classeurs ouvert

dans le classeur "pigeon" j'ai la macro, mais je veux fermer l'autre classeur "nature"

comment faire?

 

[Kobaya]

Re : macro:fermetue du fichier

dans ce cas, il faut spécifier le classeur à fermer

Workbooks("nature.xls").Close savechanges:=false

ou avec une variable objet (si le nom du fichier n'est pas toujours le même) :

Sub FermerFichier()
    Dim wbkFichier As Workbook
    Dim strFichier As String
    
    strFichier = Application.GetOpenFilename("Fichiers Excel, (*.xls)")
    If strFichier <> "False" Then
        Set wbkFichier = Workbooks.Open(Filename:=strFichier)
        
        ' ton traitement
        
        ' fermer le fichier sans sauvegarder
        wbkFichier.Close savechanges:=False
        
        ' toujours libérer le mémoire utilisée par la variable objet
        Set wbkFichier = Nothing
    End If
End Sub

 

[al1000]

Re : macro:fermetue du fichier

bonsoir,


merci genial


a+