Discussion :

[Elstak]

bonjour,

je souhaiterai copier les valeurs d'un classeur fermé dans un classeur ouvert à l'aide d'une macro (executée à partir du classeur ouvert)

Code :

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

1
2
3
4
5
6
7
8
9
  Private Sub Ajouter_Click()
 
  Dim nom As String
    Dim source As Workbook
    nom = chemin.Value
    Sheets.Add after:=Sheets(Sheets.Count)
    Sheets(Sheets.Count).Name = "sem" & Sheets.Count - 1 & ""
    Set source = Application.Workbooks.Open(nom)
End sub

je crée une nouvelle feuille dans mon classeur ouvert,
j'ouvre le classeur de nom "chemin.value"
mais ensuite je ne sais pas comment copier les valeurs du classeur qui s'est ouvert (qui est le classeur actif à la fin de mon code) vers mon classeur.

Si quelqu'un a une idée..

[SfJ5Rpw8]

en supossant que ton premier classeur contient ta macro ... tu peu
écrire quelque chose du genre

Code :

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

Source.sheets(1).range("A1")=Thisworbook.sheets(1).range("A1")

[Elstak]

oui merci,
en fait je veux faire le contraire (affecter la valeur de "source" à mon classeur ouvert)
donc ta solution marche mais maintenant jai un autre probleme...
je veux copier une plage de données j'ai donc essayé le code qui suit :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Ajouter_Click()
 
    Dim nom As String
    Dim source As Workbook
    nom = chemin.Value
    Set source = Application.Workbooks.Open(nom)
   ThisWorkbook.Sheets(13).Range("A1:B2") = source.Sheets(1).Range("A1:B2")
 
End Sub

Je n'ai aucune erreur mais rien n'est copié je ne compernd pas alors que si je ne met que "A1" la cellule A1 est copiée

voilà j'ai egalement testé d'autres ecritures comme : " range(cells(1,1),cells(2,2)) "
Mais là jai une erreur pour ce code...

Voilà si quelqu'un a une idée

[SfJ5Rpw8]

voila :

Code :

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

 source.Sheets(1).Range("A1:B2").Copy ThisWorkbook.Sheets(1).Range("A1:B2")

[Elstak]

bien joué

merci bien car j'ai passé pas mal de temps à chercher sur le net sans trouver