Retourner sur un fichier deja ouvert

Question

J'ai une question qui je pense doit être simple à solutionner, mais je n'y arrive pas ... voila, j'ai un code qui va ouvrir la fenêtre "fichier-ouvrir" afin de permettre à l'utilisateur de sélectionner le fichier qui souhaite et ça partir d'un fichier précis. Donc, j'ai mon fichier "extract-VFU.xlsm" ouvert, je lance ma macro, et la fenetre "fichier-ouvrir" apparait et me laisse choisir mon fichier. Je choisi mon fichier, qui s'ouvre. Et c'est la que ça commence a se compliquer. Je souhaiterai avoir dans mon code : 1/ récupérer le nom du fichier (celui choisi par l'utilisateur grâce a la fenêtre fichier-ouvrir) = ça j'y arrive 2/ coller le nom du fichier précedent dans une cellule de mon fichier initial 'extract-VFU.xlsm" = ça j'y arrive 3/ retourner dans le fichier (celui choisi par l'utilisateur afin de copier tout ce qu'il y a dans la feuille 1 pour le coller dans mon fichier initial "extract-VFU.xlsm" = et c'est ça que j'arrive pas a faire .... je pense que c'est tout c...., mais je bloque dessus depuis un bon moment ... 2 jours ... Je vous colle le code vba que j'ai fait (enfin une partie du code ... que le début) merci par avance pour votre aide précieuse Bonne soirée Laurent...

eriiic · Answer

A essayer : 'UserForm1.Show Dim Rep As String Dim wb As Workbook Rep = "\a11filesrv02.pharma.aventis.com\share-repository\SHAREFolders\IRMP\DataExtracts\VFU" If Dir(Rep, vbDirectory) &lt;&gt; "" Then Application.Dialogs(xlDialogOpen).Show Rep Else MsgBox "Chemin introuvable" End If 'copier le nom de ce fichier Set wb = ActiveWorkbook Sheets("Sheet2").Range("A1") = ActiveWorkbook.Name Sheets("Sheet2").Range("A1").Copy 'copier le nom du fichier ThisWorkbook.Activate Range("nom_VFU").PasteSpecial ' c'est la que je veux revenir sur le fichier choisit par l'utilisateur et j'y arrive pas wb.Sheets("Sheet1").Cells.Copy Si besoin tu peux aussi faire wb.activate eric...

h2so4 · Answer

Essaie ceci, (non testé) 'UserForm1.Show Dim Rep As String set wb1=thisworkbook Rep = "\a11filesrv02.pharma.aventis.com\share-repository\SHAREFolders\IRMP\DataExtracts\VFU" If Dir(Rep, vbDirectory) &lt;&gt; "" Then Application.Dialogs(xlDialogOpen).Show Rep Else MsgBox "Chemin introuvable" End If 'copier le nom de ce fichier set wb2=activeworkbook wb2.Sheets("Sheet2").Range("A1") = wb2.Name wb2.Sheets("Sheet2").Range("A1").Copy 'copier le nom du fichier 'ThisWorkbook.Activate wb1.Range("nom_VFU").PasteSpecial ' c'est la que je veux revenir sur le fichier choisit par l'utilisateur et j'y arrive pas Wb2.Sheets("Sheet1").Cells.Copy wb1.sheets("Feuil3").range("A1") 'et retour sur le fichier extract-vfu.xlsm pour coller dans la feuille "Feuil3"...