j'ai effectué les corrections suggérées. Mais ça ne fonctionne pas, la macro bloque à ce niveau :
Nomfichierentree = Application.GetOpenFilename("& valeur2 & (*.xlsx), (*xls), *.xlsm")
Par ailleurs j'ai tenté d'associer la macro à un bouton mais ça m'affiche un message d'erreur (voir image).
Sub Bouton1_Clic()
End Sub
Private Sub Bouton1_Clic()
Dim Wbk1 As Workbook, Wbk2 As Workbook, Dossier As String
Set Wbk1 = ThisWorkbook
valeur1 = Sheets("Heures N-1").Range("I1").Value
valeur2 = Sheets("Heures N-1").Range("K1").Value
valeur3 = Sheets("Heures N-1").Range("N1").Value
Dossier = "J:\Rom France\France\WPP\& valeur3 &"
Nomfichierentree = Application.GetOpenFilename("& valeur2 & (*.xlsx), (*xls), *.xlsm")
If Nomfichierentree <> False Then
Workbooks.Open Filename:=Dossier
Set Wbk2 = Workbooks.Open(Nomfichierentree)
ActiveSheet("valeur1").Unprotect
Wbk2.Worksheets("valeur1").Range("Z6:Z9,Z12:Z15,Z18:Z22,Z25:Z28,Z31:Z34,Z37:Z41,Z44:Z47,Z50:Z54,Z57:Z60,Z63:Z66,Z69:Z73,Z76:Z79").Select
Selection.Copy
Wbk1.Worksheets("Heures N-1").Range("I5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Wbk2.Worksheets("valeur1").Range("AB6:AB9,AB12:AB15,AB18:AB22,AB25:AB28,AB31:AB34,AB37:AB41,AB44:AB47,AB50:AB54,AB57:AB60,AB63:AB66,AB69:AB73,AB76:AB79").Select
Selection.Copy
Wbk1.Worksheets("Heures N-1").Range("J5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Wbk2.Worksheets("valeur1").Range("AC6:AC9,AC12:AC15,AC18:AC22,AC25:AC28,AC31:AC34,AC37:AC41,AC44:AC47,AC50:AC54,AC57:AC60,AC63:AC66,AC69:AC73,AC76:AC79").Select
Selection.Copy
Wbk1.Worksheets("Heures N-1").Range("K5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Wbk2.Worksheets("valeur1").Range("AD6:AD9,AD12:AD15,AD18:AD22,AD25:AD28,AD31:AD34,AD37:AD41,AD44:AD47,AD50:AD54,AD57:AD60,AD63:AD66,AD69:AD73,AD76:AD79").Select
Selection.Copy
Wbk1.Worksheets("Heures N-1").Range("L5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Wbk2.Close
End If
End Sub
Par avance merci pour votre aide.
Tout d'abord je tiens a vous remercier pour votre intervention. En fait je viens de m'apercevoir que sur l'image, il manque une partie des cellules sélectionnées, mais rien de grave.
Lorsque j'ai copié les lignes de codes provenant de l'enregistrement macro, il y avait ces "_" de part et de l'autre de cellules sélectionnées. Mais j vais les retirer.
Je vous tiens au courant
Merci encore pour votre aide