Discussion :

[alpilon]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Krovax]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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)

[alpilon]

Bonjour Krovax

Merci je vais regarder cela