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 :
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:
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.
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 :
Code:
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 Submais 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:
Code:
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 SubMerci d'avance pour l'aide que vous pourrez m'apporter.
Dernière édition: