Macro : revenir fichier d'origine

[noemie45]

Bonjour

j'ai une question très basic!!
J'ai essayé plein de chose mais je du encore oublier quelque chose.

Voila mon pb

j'ai un fichier A,(je ne connais pas le nom) avec une macro qui me permet d'ouvrir un autre fichier B (fichier dont je connais le nom et le chemin d'accès).
Une fois le fichier B ouvert je souhaite que ma macro revienne sur le fichier A pour continuer le déroulement de la macro.

Je pensais qu'en ajoutant juste Thisworbook après l'ouveture du fichier B, le pb aurait résolu mais je reste sur le fichier B et ma macro ne continue pas. (car je pensais que thisworbook faisait référence au fichier ou était attachée la macro)

Comment je peux definir mon fichier A, sachant que je ne connais pas son nom.
j'ai trouvé des choses avec workbookname mais je n'arrive pas à l'appliquer à mon cas
Merci pour votre aide


Voici mon code

Private Sub MAJ_TARIF_Click()

Dim dossier As String, monclasseur As String
'ouverture du fichier de destination avec option s'il est ouvert

Dim Fichier As String
Dim Wb As Workbook
Application.EnableEvents = False
Fichier = "T:\GROUPES\Controle\2\FICHIER TRAME\TARIF POUR DOSSIER.xlsx"

On Error Resume Next
Set Wb = Workbooks("TARIF POUR DOSSIER.xlsx")
If Err <> 0 Then Workbooks.Open Filename:=Fichier
'UpdateLinks:=1
Application.EnableEvents = True


ThisWorkbook.Sheets("Reconstitution").Range("P8:V8").Select
' définir la dernière ligne occupée en B
LAST = Range("B65000").End(xlUp).Row
Selection.AutoFill Destination:=Range("p8:v" & LAST)

end sub

 

[Pierrot93]

Re : Macro : revenir fichier d'origine

Bonjour,

pas tout compris... pour activer le classeur dans lequel s'execute le code :

ThisWorkbook.Activate

bonne journée
@+

 

[noemie45]

Re : Macro : revenir fichier d'origine

ahh j'avais juste oublié Activate!!

merci et encore merci