Export et positionnement données

Bonjour,

je reviens vers vous car je ne trouve toujours pas la solution à mon problème

je souhaite récupérer les données du fichier planning B3 IDE qui est le fruit d'une extraction pour les repositionner aux étages et catégories correspondantes sur le fichier macro1

J'ai mis une couleur sur les fichiers pour montrer le lieu de positionnement des cellules sur 3 étages en bleu qui représente le matin et 3 étages en vert pour l'après midi.

Exemples la série du fichier B3 IDE de E10 à E13 doit se retrouver sur le fichier MACRO 1 en cellules E17 à E20.

je coince sur le recopiage.

Bien entendu un "= cellule" ne convient pas à ce type de fichier.

Merci de votre aide

Bonjour,

Une possibilité :

Sub galopin()
Dim WsC As Worksheet, WsS As Worksheet
Dim a, Source$
Source = "planning B3 IDE.xlsm"

If Not WbIsOpen(Source) Then
On Error GoTo GESTERR
   Workbooks.Open (Source)
End If

Set WsS = Workbooks(Source).Worksheets("hebdoT")
Set WsC = ThisWorkbook.Worksheets("Hebdo")

With WsS
   a = .Range("E6:K9").Value
   WsC.Range("E6:K9") = a
   a = .Range("E10:K13").Value
   WsC.Range("E17:K20") = a
   a = .Range("E14:K17").Value
   WsC.Range("E28:K31") = a
   a = .Range("E21:K24").Value
   WsC.Range("E40:K43") = a
   a = .Range("E25:K28").Value
   WsC.Range("E51:K54") = a
   a = .Range("E29:K32").Value
   WsC.Range("E62:K65") = a
   End With
Exit Sub
GESTERR:
If Not WbIsOpen(Source) Then MsgBox "Source n'est pas disponible"
End Sub
Function WbIsOpen(WbName$) As Boolean
On Error Resume Next
WbIsOpen = Not Workbooks(WbName) Is Nothing
End Function

A+

Bonjour,

merci de cette réponse.

Cependant cette solution me retourne une erreur "sub ou fonction non définie"

je vais me pencher dessus pour comprendre d'où peut venir cette alerte.

cordialement

Bonjour,

Cela arrive parfois quand on recopie le code depuis le forum.

Essaie avec ce classeur.

A+

merci