Importation de données d'un autre fichier

Bonjour à tous

J'ai une macro pour importer avec un bouton dans le fichier essai2 des données du fichier LM_112015.

Je tourne dans tous les sens mais rien à faire il m'indique "l'indice n'appartiens pas à la sélection erreur 9"

C'est certainement pas grand chose mais je tourne autour du problème.

Merci d'avance de votre aide

Bonjour

Modifie le code

    ThisWorkbook.Sheets("Importation").Range("C2") = Sh.Cells(Ligne, 7)

  End With

End Sub

Bonjour

Super ça fonctionne mais je ne sais pas pourquoi "ThisWorkbook"

Tu peux m'expliquer ?

Bonne journée

Comment je peux mettre une plage de cellule à Sh.Cells ?

ThisWorkbook.Sheets("Importation").Range("C2:C5") = Sh.Cells(Ligne, 7)

merci de ton aide

Bonjour

Quand tu notes, sans préciser le classeur, un objet ( ici une feuille), l'interpréteur recherche cet objet dans le classeur actif, et dans ce cas le classeur actif est celui que tu as ouvert pour y lire des infos donc ---> Plantage

philippe34130 a écrit :

Comment je peux mettre une plage de cellule à Sh.Cells ?

Explique clairement ce que tu cherches à faire

Je veux importer plusieurs cellules en même temps

Importation des cellules 7 à 15 de la ligne vers les cellules "C2:C10 dans la feuille importation

soit :

ThisWorkbook.Sheets("Importation").Range("C2:C10") = Sh.Cells(Ligne, 7 ????) et là je n'arrive pas à sélection une plage

Bonjour

Tu veux copier des données d'une ligne sur une colonne, donc il faut transposer les données

    ThisWorkbook.Sheets("Importation").Range("C2:C10").Value = Application.Transpose(Sh.Cells(Ligne, 7).Resize(1, 9).Value)
  End With
End Sub

Bonsoir

C'est Ok merci de ton aide

Cdt