Calvus
XLDnaute Barbatruc
Bonjour,
J'importe des données à partir d'un classeur que j'ouvre, où je sélectionne les données à copier sous forme de tableau et que je viens coller dans ma feuille active.
J'ai adapté à partir d'un code qui m'a été fourni par CBernardT.
Ça fonctionne très bien, sauf si je veux importer le contenu d'un cellule unique. Il me manque un je ne sais quoi.
Merci de votre aide et bonne journée
J'importe des données à partir d'un classeur que j'ouvre, où je sélectionne les données à copier sous forme de tableau et que je viens coller dans ma feuille active.
J'ai adapté à partir d'un code qui m'a été fourni par CBernardT.
Ça fonctionne très bien, sauf si je veux importer le contenu d'un cellule unique. Il me manque un je ne sais quoi.
VB:
With Sheets(Onglet)
Tablo = .Range("B1:J15")
Tablo2 = .Range("C20:C53")
Tablo3 = .Range("G20:G53")
Tablo4 = .Range("B55:H63")
Tablo5 = .Range("C83:C116")
Tablo6 = .Range("G83:G116")
Tablo7 = .Range("B118:H126")
'Partie non fontionnelle
val1 = [J58].Value
val2 = [J121].Value
End With
ActiveWorkbook.Close False
' Classeur et Feuille dans lesquels il faut importer et coller les données
With ActiveSheet
.Range("B1").Resize(UBound(Tablo, 1), UBound(Tablo, 2)) = Tablo
.Range("C20").Resize(UBound(Tablo2, 1), UBound(Tablo2, 2)) = Tablo2
.Range("G20").Resize(UBound(Tablo3, 1), UBound(Tablo3, 2)) = Tablo3
.Range("B55").Resize(UBound(Tablo4, 1), UBound(Tablo4, 2)) = Tablo4
.Range("C83").Resize(UBound(Tablo5, 1), UBound(Tablo5, 2)) = Tablo5
.Range("G83").Resize(UBound(Tablo6, 1), UBound(Tablo6, 2)) = Tablo6
.Range("B118").Resize(UBound(Tablo7, 1), UBound(Tablo7, 2)) = Tablo7
.Range("B1").Select
'Partie non fontionnelle
.[J58].Value = val1
.[J121].Value = val2
End With
Merci de votre aide et bonne journée