Discussion :

[man_coef]

Bonjour à tous!

Présentation :
Je suis un jeune ingénieur Méthodes, je sais programmer en C et Java et je viens de me mettre au VB sur Excel dans le cadre de mon travail pour le traitement de donné. Je connais donc assez bien les bases de la programmation mais je bloque encore sur certains points.

Description du problème :
J'ai deux fichiers xls A et B. Dans le fichier A, j'ai une macro qui permet d'ouvrir le fichier B. Je ne trouve pas comment l'on peut faire pour copier des données du fichier B pour les coller dans le fichier A.

Exemple de fonction :
Voici ce que j'ai tenté de faire ;

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub CommandButton1_Click()
    Sheets("Feuille du fichier A").Select
    Cells.Select
    Selection.ClearContents
    Range("A1").Select
    ChDir "E:\"
    Workbooks.Open Filename:="\Travail\NomDuFichierB.xls"
    Range("G9").Select
    Cells.Select
    Selection.Copy
    Windows("Feuille du fichier A").Activate
    Cells.Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Range("A1").Select
    Application.CutCopyMode = False
    ActiveWindow.Close
End Sub

Merci pour votre aide!
Emmanuel

[SfJ5Rpw8]

tiens voila :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub MACopie()
 Dim shA As Worksheet 'Feuille A
 Dim wB As Workbook 'Classeur B
  Set shA = Sheets("Feuille du fichier A")
  shA.Cells.ClearContents 'efface données
  Set wB = Workbooks.Open(Filename:="E:\Travail\NomDuFichierB.xls")
  shA.Cells.Value = wB.Sheets(1).Cells.Value
  wB.Close False ' ferme sans sauve
  Set wB = Nothing
  Set shA = Nothing
End Sub

[man_coef]

J'ai mis cette double boucle pour limiter le temps de copie :

Code :

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

1
2
3
4
5
   For x = 1 To 2 Step 1
    For y = 1 To 22 Step 1
        shA.Cells(y, x) = wB.Sheets(2).Cells(y, x).Value
    Next y
  Next x

C'est nickel ça marche! Merci

[man_coef]

Enfin non... J'utilise Rang... C'est mieux mdr!