Pb lors de la fermeture d'un classeur par Macro

[hook85]

Bonjour,

je viens ici afin de trouver un peu d'aide.

je suis en train de développer une appli permettant de récupérer dans un classeur A des informations (lien hypertexte, rédacteur...) d'une feuille X d'un classeur B ou un classeur C (les colonnes des classeurs B et C ne sont identiques)

Mon open fonctionne bien, indifféremment du classeur B et C :

Sub ....
:   
    Call Open_Doc(Lien_Text, Num_Version)
' Ouverture doc
    Workbooks.Open (ThisWorkbook.LienVersion)
    
    Application.Wait (Now + TimeValue("0:00:05"))
:
End Sub

Sub Open_Doc(Lien_Text As String, Num_Version As String)

' Sauvegarde du nom du document dans lequel nous allons placer les informations récupérées
    ThisWorkbook.DocArchive = ActiveWorkbook.Name
' déprotection des feuilles
    Workbooks(ThisWorkbook.DocArchive).Worksheets("Param").Unprotect
    Workbooks(ThisWorkbook.DocArchive).Worksheets("Travail").Unprotect
    
    Workbooks(ThisWorkbook.DocArchive).Worksheets("Travail").Range("A1:Z3000").ClearContents
' Extraction adresse du document où sont renseignés les liens vers les schémas
    Workbooks(ThisWorkbook.DocArchive).Worksheets("Appel de doc").Select
    Workbooks(ThisWorkbook.DocArchive).Worksheets("Appel de doc").Range("A2").Select
' sauvegarde du numéro de version
    Selection.Value = Num_Version
    ThisWorkbook.LienVersion = Lien_Text
    ThisWorkbook.DocVersion = Dir(ThisWorkbook.LienVersion)
    
End Sub

mais par contre, lors du Close de mon classeur B, j'ai une erreur 1004 : la Méthode Select de la classe Range a échouée, erreur que je n'ai pas avec le classeur C.

Voici la partie de code concernée:

Sub ....
:
    Workbooks(ThisWorkbook.DocVersion).Worksheets(Type_Doc2).Select
    Workbooks(ThisWorkbook.DocVersion).Worksheets(Type_Doc2).Range("A" & lgPos).Select
    
    While (Workbooks(ThisWorkbook.DocVersion).Worksheets(Type_Doc2).Range("A" & lgPos).Value <> "")
:
        lgPos = lgPos + 1
        Workbooks(ThisWorkbook.DocVersion).Activate
        Workbooks(ThisWorkbook.DocVersion).Worksheets(Type_Doc2).Select
    Wend
    Workbooks(ThisWorkbook.DocVersion).Worksheets(Type_Doc2).Range("A1").Select
    Call Close_Doc

End Sub
:
Sub Close_Doc()
' Fermeture du doc Version

    Workbooks(ThisWorkbook.DocVersion).Close (False)
    
' Protection des feuilles
    Workbooks(ThisWorkbook.DocArchive).Activate
    Workbooks(ThisWorkbook.DocArchive).Worksheets("Param").Protect _
        DrawingObjects:=True, Contents:=True, Scenarios:=True
    Workbooks(ThisWorkbook.DocArchive).Worksheets("Travail").Protect _
        DrawingObjects:=True, Contents:=True, Scenarios:=True
    Workbooks(ThisWorkbook.DocArchive).Worksheets("Appel de doc").Select
    Workbooks(ThisWorkbook.DocArchive).Worksheets("Appel de doc").Range("A2").Select
End Sub

De plus, je souhaiterais savoir comment désactiver les boîtes de dialogues dans le style de la PJ et les boîtes de dialogues demandant si l'on souhaite sauvegarder les modifs.

Merci d'avance pour l'aide que vous pourrez m'apporter.

 

[phlaurent55]

Re : Pb lors de la fermeture d'un classeur par Macro

Bonjour hook

sans être certain de pouvoir t'aider..........,
tu risques ne ne pas avoir beaucoup de réponses car ton fichier joint n'est pas au format .xls

pourrais-tu également nous dire la ligne en surbrillance au moment du déboguage ?

à+
Philippe

 

[hook85]

Re : Pb lors de la fermeture d'un classeur par Macro

Bonjour phlaurent55

je rajoute le XSL.

Il se trouve dans l'archive ci-dessous.

Pour le code en surbrillance lors du débug, il s'agit de la ligne :

Workbooks(ThisWorkbook.DocVersion).Close (False)

PS : le xls est prévu pour fonctionner avec des fichiers placés à un endroit préci du réseau de mon entreprise.

 

[Pierrot93]

Re : Pb lors de la fermeture d'un classeur par Macro

Bonjour hook, Philippe

ouvert ton fichier et refemé bien vite, pas trop envie de chercher dans tous tes modules... le mieux est toujours un fichier reprenant uniquement le problème posé...

il faudrait voir ce que vaut "DocVersion".. et a quoi cela correspond pour toi...

Workbooks(ThisWorkbook.DocVersion).Close (False)

pourquoi pas tout simplement :

ThisWorkbook.Close False

pour empêcher les messages d'alerte :

Application.DisplayAlerts = False
'ton code
Application.DisplayAlerts = True

bonne journée
@+

 

[hook85]

Re : Pb lors de la fermeture d'un classeur par Macro

Merci pour ce retour Pierrot.

ThisWorkbook.DocVersion a pour valeur

nom_du_classeur_B.xls

 

[hook85]

Re : Pb lors de la fermeture d'un classeur par Macro

je viens de tester avec

Application.DisplayAlerts = False

avant l'Open.

Ma macro a été en mesure de fermer le classeur B sans souci.

Merci à tous les deux pour votre aide et surtout à Pierrot.

Bonne journée à tous

 

[hook85]

Re : Pb lors de la fermeture d'un classeur par Macro

je viens de tester avec

Application.DisplayAlerts = False

avant l'Open.

Ma macro a été en mesure de fermer le classeur B sans souci.

Merci à tous les deux pour votre aide et surtout à Pierrot.

Bonne journée à tous

En fait j'ai parlé trop vite.
le fichier qui s'est fermé, est celui qui aurait du resté ouvert.

 

[Pierrot93]

Re : Pb lors de la fermeture d'un classeur par Macro

Re,

essaye peut être ceci :

Workbooks(DocVersion).Close False

 

[hook85]

Re : Pb lors de la fermeture d'un classeur par Macro

Aucun changement

 

[Pierrot93]

Re : Pb lors de la fermeture d'un classeur par Macro

Re,

en lieu et place de "DocVersion", mets le bom de classeur :

Workbooks("NomClasseur.xls").Close False

 

[hook85]

Re : Pb lors de la fermeture d'un classeur par Macro

Pareil.

je vais faire simple en demandant à l'utilisateur de fermer manuellement le document.

Merci pour l'aide

 

[Pierrot93]

Re : Pb lors de la fermeture d'un classeur par Macro

Re,

comment on le repère celui qui est à fermer ?? si c'est le classeur actif :

ActiveWorkbook.Close False

 

[hook85]

Re : Pb lors de la fermeture d'un classeur par Macro

en fait j'ai docVersion qui est à fermer et docArchive a conserver ouvert.

les deux variables doc* sont définies comme ca :

Public DocVersion   As String
Public DocArchive   As String

et avant le close j'ai :

Workbooks(ThisWorkbook.DocVersion).Activate

 

[Pierrot93]

Re : Pb lors de la fermeture d'un classeur par Macro

Re,

la solution proposé à 11h52 devrait correspondre alors.... à condition bien sur que le classeur en question soit ouvert et que ta variable est convenablement initialisée...

 

[hook85]

Re : Pb lors de la fermeture d'un classeur par Macro

tout est comme il le faut.

Comme précisé dans le 1r post, cela fonctionne pour un autre format de fichier (classeur C).
Par contre j'ai oublié de préciser que le classeur B était bourré de MACRO dont je n'ai pas les accès.