Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Macro : revenir fichier d'origine

  • Initiateur de la discussion Initiateur de la discussion noemie45
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

noemie45

XLDnaute Occasionnel
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
520
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…