Discussion :

[peterpan3000]

bonjour
j'ai une macro vba qui fonctionne très bien pour copier une cellule d'un premier fichier xlsx dans un second
Le code utilisé est le suivant

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
18
19
20
21
22
23
24
25
26
27
28
29
30
 
Sub CopierDonnees()
 
Dim Entree As Workbook, Sortie As Workbook
 
Nomfichierentree = Application.GetOpenFilename("Fichier Excel (*.xlsx), *.xsl")
 
If Nomfichierentree <> False Then
 
    Set Entree = Workbooks.Open(Nomfichierentree)
 
 
    NomFichierSortie = Application.GetOpenFilename("Fichier Excel (*.xlsx), *.xsl")
    If NomFichierSortie <> False Then
        Set Sortie = Workbooks.Open(NomFichierSortie)
 
 
        Sortie.Worksheets("Feuil1").Cells(11, 7) = Entree.Worksheets("Feuil1").Cells(11, 7)
        Sortie.Worksheets("Feuil1").Cells(51, 11) = Entree.Worksheets("Feuil1").Cells(51, 11)
 
 
        Sortie.Close
 
 
    End If
 
    Entree.Close
End If
 
End Sub

par contre si j'essaie cette opération sur deux fichiers dont on m'as demandé d'effectuer la même opération, j'obtiens l'erreur 9....l'indice n'appartient pas a la selection