Cheyenne_2021
XLDnaute Junior
Copie de données filtrées du Fichier 1 dans plusieurs fichiers2 (selon les filtres)
1004 sur ActiveSheet. Paste
Logique car la feuille active est la feuille du fichier dans lequel je vais copier mais pour ouvrir le fichier et selectionner le tableau dans lequel je vais faire la copie, je suis obligée d’activer cette feuille, non ?
Si juste avant le ActiveSheet. Paste , je fais un Activate sur la feuille d’origine j’ai une erreur 9 sur la Activesheet. Paste
Je ne sais pas quoi faire !
Merci,
1004 sur ActiveSheet. Paste
Logique car la feuille active est la feuille du fichier dans lequel je vais copier mais pour ouvrir le fichier et selectionner le tableau dans lequel je vais faire la copie, je suis obligée d’activer cette feuille, non ?
Si juste avant le ActiveSheet. Paste , je fais un Activate sur la feuille d’origine j’ai une erreur 9 sur la Activesheet. Paste
Je ne sais pas quoi faire !
Merci,
VB:
Sub Creation_Fichier_UR()
'
'Pour eviter le message : qu'une fnom de colonne que je veux copier contient le nom "xxx" qui existe sur la feuille de destination.
'Voulez-vous utiliser cette version du nom ?" ma réponse est toujours oui.
Application.DisplayAlerts = False
Application.EnableEvents = False
'Deproteger
Call Initialisation_Variables_Public
Call Deverrouiller_feuille(Onglet_Synthèse) 'du fihcier POurscission
decal = Range("T_UR2[[#Headers]]").Row
Ent = "A" & (decal + 1)
sheet_1 = ActiveSheet.Name
' Fichier UR
'----------
'UR_Repertoire = "Z:\S3A - Documents de service\Procédures\MEQ Recherche\"
'UR_Repertoire = [REP_BO_Extracion]
AR_Repertoire = [Rep_BO_Extraction]
AR_Fichier = [Fich_BO_Extraction]
MsgBox ("AR fichier: " & AR_Fichier)
Nb_Lig = [T_UR_Nom].Rows.Count
For I = 1 To 3
Windows(AR_Fichier).Activate
UR_Nomfichier = Worksheets("Parametres").Range("T_UR_Nom[Nom_fichier]").Rows(I)
Critere = Range("T_UR_Nom[sigles UR]").Rows(I)
UR_Nomfichier_T = UR_Nomfichier & ".xlsm"
UR_Date = Format([Extract_Date], "dd/mm/yy")
Sjeet_Active = ActiveSheet.Name
Worksheets(sheet_1).ListObjects("T_UR2").Range.AutoFilter Field:=1, Criteria1:=Critere
Range(Ent).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.Copy
UR_Repertoire = [Rep_UR] 'là où se trouvent les fichiers des UR
UR_nomTotal = UR_Repertoire & " " & UR_Nomfichier & ".xlsm"
Workbooks.Open Filename:=UR_Repertoire & UR_Nomfichier & ".xlsm" ' ouverture du fichier dans lequel on va copier une partie du fichier d'origine
Windows(UR_Nomfichier_T).Activate
Set Onglet_UR = ActiveWorkbook.Worksheets("TableauSynthese_UR")
Call Deverrouiller_feuille(Onglet_UR) ' de chaque fichier UR
Onglet1 = Worksheets(1).Name
Book1 = ActiveWorkbook.Name
' NTab_Sel = Worksheets(Onglet1).ListObjects(1).Name
MsgBox ("active sheet : " & ActiveSheet.Name)
ActiveSheet.Paste Destination:=Worksheets(Onglet1).ListObjects(NTab_Sel)
MsgBox ("date extract : " & UR_Date)
Worksheets("TableauSynthese_UR").Range("UR_Extract_Date").Value = UR_Date
Call Verouiller_feuille(Onglet_UR)
ActiveWorkbook.Close saveChanges:=True
'Fin fichier UR
'--------------
Next
Call Verouiller_feuille(Onglet_Synthèse) ' unquement à la fin de la creation de tous les fichiers ?
Application.DisplayAlerts = True
Application.EnableEvents = True
End Sub