Discussion :

[lmfao92]

Bonjour,

J'ai besoin d'un peu d'éclaircissement !

En fait, j'ai réalisé un bouton (sur un fichier excel X) sur lequel que lorsque l'on click, il ouvre un fichier excel (Y) et les collent dans des cellules bien spécifiques aussi.

Le bouton marche très bien, il ouvre le fichier excel Y!

Mon point bloquant c'est comment passer les données vers ce fichier ?

Merci d'avance pour vos retours!

H.L.

[Philippe Tulliez]

Bonjour,

il ouvre un fichier excel (Y) et les collent dans des cellules bien spécifiques aussi.

Qu'entends-tu pas cellules spécifiques.

Pour copier le contenu d'une cellule vers une autre, il y a plusieurs méthodes et ce quel que soit la feuille ou le classeur source et cible. La règle étant de préciser la parentalité de l'objet Range

Voici deux exemples

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub Copie_1()
  ' Copie la valeur d'une seule cellule
  Dim rngSource As Range
  Dim rngTarget As Range
  Set rngSource = Workbooks("ClasseurA").Worksheets(1).Range("A1")
  Set rngTarget = ThisWorkbook.Worksheets(1).Range("F4")
  rngTarget.Value = rngSource.Value
  Set rngSource = Nothing: Set rngTarget = Nothing
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub Copie_2()
  ' Méthode Copy
  ' Permet de Copier une seule cellule ou plusieurs cellules
  ' Cette méthode permet de copier tout (Valeur, Format, Commentaire, etc.)
  Dim rngSource As Range
  Dim rngTarget As Range
  Set rngSource = Workbooks("ClasseurA").Worksheets(1).Range("A1:J11")
  Set rngTarget = ThisWorkbook.Worksheets(1).Range("A15")
  rngSource.Copy rngTarget
  Set rngSource = Nothing: Set rngTarget = Nothing
End Sub