1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65
| Dim wsh1 As Worksheet
Dim wsh2 As Worksheet
Dim wsh3 As Worksheet
Dim wsh4 As Worksheet
Dim nom1 As String
Dim nom2 As String
Dim nom3 As String
Dim nom4 As String
Set cel = ThisWorkbook.Worksheets("Tuning").Cells(6, 2)
' Choisir la feuille
nom1= cel.Offset(1).Value
nom2= cel.Offset(5).Value
nom3= cel.Offset(9).Value
nom4= cel.Offset(13).Value
On Error Resume Next
Set wsh1 = wbk.Worksheets(nom1)
Set wsh2 = wbk.Worksheets(nom2)
Set wsh3 = wbk.Worksheets(nom3)
Set wsh4 = wbk.Worksheets(nom4)
On Error GoTo 0
If Not wsh1 Is Nothing Then
' Copier les données du classeur 1 et la feuille5
wsh1.Range("A5:K5").Copy cel.Offset(1, 1)
Else
' Mémoriser le nom de la feuille non trouvée
msg = msg & vbCrLf & "- feuille « " & nom & " » du fichier « " & wbk.FullName & " »"
' Effacer les anciennes données
cel.Offset(1, 1).Resize(1, 11).Value = Empty
End If
If Not wsh2 Is Nothing Then
' Copier les données du classeur 2 et la feuille1
wsh2.Range("B5:D5").Copy cel.Offset(1, 1)
Else
' Mémoriser le nom de la feuille non trouvée
msg = msg & vbCrLf & "- feuille « " & nom & " » du fichier « " & wbk.FullName & " »"
' Effacer les anciennes données
cel.Offset(1, 1).Resize(1, 11).Value = Empty
End If
If Not wsh3 Is Nothing Then
' Copier les données du classeur 3 et la feuille1
wsh3.Range("C5:O5").Copy cel.Offset(1, 1)
Else
' Mémoriser le nom de la feuille non trouvée
msg = msg & vbCrLf & "- feuille « " & nom & " » du fichier « " & wbk.FullName & " »"
' Effacer les anciennes données
cel.Offset(1, 1).Resize(1, 11).Value = Empty
End If
If Not wsh4 Is Nothing Then
' Copier les données du classeur 4 et la feuille1
wsh4.Range("A5:O5").Copy cel.Offset(1, 1)
Else
' Mémoriser le nom de la feuille non trouvée
msg = msg & vbCrLf & "- feuille « " & nom & " » du fichier « " & wbk.FullName & " »"
' Effacer les anciennes données
cel.Offset(1, 1).Resize(1, 11).Value = Empty
End If
End Sub |
Partager