excel visual basic erreur

Version imprimable

2 pièce(s) jointe(s)

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:

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
Pièce jointe 456683 Pièce jointe 456687

11/03/2019, 10h20
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".

Bonjour,

remplaces :

Code:

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:

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)

11/03/2019, 10h43
peterpan3000

ca a l'air d'être ca..
11/03/2019, 17h57
peterpan3000

merci ;)
14/03/2019, 09h57
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:

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

Bonjour,

Essaye ceci :
Code:

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 ;)

14/03/2019, 10h16
peterpan3000

oui, ca marche
merci :D
14/03/2019, 10h27
Patrice740
Citation:
Envoyé par 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:

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).