Copie et Msgbox Chemin d'accès

Bonsoir


je n'arrive pas à recopier ces cellules qui peuvent être du texte ou des valeurs sur le classeur "journal", je pense que mon code n'est encore pas bon:D

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub Copy_Tab()   Dim Wbk1 As Workbook Dim Wbk2 As Workbook Dim LastCel As Long   LastCel = Cells.Find("*", , , , , xlPrevious).Row   Set Wbk1 = ThisWorkbook Set Wbk2 = Workbooks.Open(Filename:="C:\Documents and Settings\Pilon\Mes documents\Journal.xlsx") Wbk2.Worksheets("Feuil1").Range("B" & LastCel).Value = Wbk1.Worksheets("AMANDA").Range("B2").Value Wbk2.Worksheets("Feuil1").Range("E" & LastCel).Value = Wbk1.Worksheets("AMANDA").Range("D14").Value   End Sub

---

Auparavant j'aimerais à l'aide d'une MsgBox ouvrir ce classeur "Journal"

dont je ne suis pas sensé connaître le chemin d'accès.

Pouvez-vous m'aider ?

Merci

Bonjour,
une message box perme d'envoyer un message a l'utilisateur et éventuellement lui permetre de cliquer sur oui,non,annuler. je ne vois pas trop comment tu veux l'utiliser ;)

Essaye ce code

Code:

---

1 2 3

Dim chem1 as string chem1 = Application.GetOpenFilename Set Wbk2 = Workbooks.Open(Filename:=chem1)

---

regarde l'aide sur GetOpenFilename tu peux utiliser plein d'option par exemple limiter le type de fichier (uniquement des fichier excel ou des fichier qui comment par une certaine série de caractère ou qui ont un certain nom)

Bonjour Krovax

Merci je vais regarder cela ;)