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

[Trystan441]

Bonjour,

Tu dois avoir un problème au niveau de la dénomination, soit du/des classeurs, soit d'une feuille.

Vérifies que les noms des feuilles de tes deux nouveaux fichiers se nomment bien "Feuil1".

[Patrice740]

Bonjour,

remplaces :

Code :

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

1
2
        Sortie.Worksheets("Feuil1").Cells(11, 7) = Entree.Worksheets("Feuil1").Cells(11, 7)
        Sortie.Worksheets("Feuil1").Cells(51, 11) = Entree.Worksheets("Feuil1").Cells(51, 11)

Par

Code :

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

1
2
3
        Sortie.Worksheets(1).Cells(11, 7) = Entree.Worksheets(1).Cells(11, 7)
        Sortie.Worksheets(1).Cells(51, 11) = Entree.Worksheets(l).Cells(51, 11)

[peterpan3000]

ca a l'air d'être ca..

[peterpan3000]

merci

[peterpan3000]

j'ai encore un souci avec visual basic..
J'essaie de tester le cas ou les numéros d'etude du premier fichier et du deuxieme sont identiques
j'arrive bien a afficher les msgbox avec le numéro d'étude mais le test If fonctionne pas..

Code :

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

1
2
3
4
5
6
 
MsgBox Entree.Worksheets(1).Cells(11, 1)
MsgBox Sortie.Worksheets(1).Cells(51, 1)
If Entree.Worksheets(1).Cells(11, 1) = Sortie.Worksheets(1).Cells(51, 1) Then
MsgBox "ok"
End If

[Trystan441]

Bonjour,

Essaye ceci :

Code :

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

1
2
3
4
5
MsgBox Entree.Worksheets(1).Cells(11, 1)
MsgBox Sortie.Worksheets(1).Cells(51, 1)
If cstr(Entree.Worksheets(1).Cells(11, 1)) = cstr(Sortie.Worksheets(1).Cells(51, 1)) Then
MsgBox "ok"
End If

Cstr transforme la valeur de ta cellule en texte.

En espérant que ce soit ça

[Patrice740]

j'ai encore un souci avec visual basic..
J'essaie de tester le cas ou les numéros d'etude du premier fichier et du deuxieme sont identiques
j'arrive bien a afficher les msgbox avec le numéro d'étude mais le test If fonctionne pas..

Code :

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

1
2
3
4
5
6
 
MsgBox Entree.Worksheets(1).Cells(11, 1)
MsgBox Sortie.Worksheets(1).Cells(51, 1)
If Entree.Worksheets(1).Cells(11, 1) = Sortie.Worksheets(1).Cells(51, 1) Then
MsgBox "ok"
End If

Si le test ne renvoie pas Ok, c'est que les valeurs ne sont pas rigoureusement identiques, comme le suggère Tristan, elles ne sont pas du même type (un nombre et un texte).
Donc attention, pour éviter tout problème ultérieur, il faut y remedier en remplaçant la mauvaise valeur par la bonne (toi seul sait laquelle il faut utiliser).