Discussion :

[arkange015]

Bonjour,

Je souhaiterais savoir si quelqu'un sait (ou a déjà réalisé) comment importer des données à partir d'un autre classeur Excel contenant "n" onglets.

La procédure est la suivante:
1) Ouvrir le classeur
2) Sélectionner sur chaque onglet une cellule de destination
3) Copier cette ou ces cellules de le classeur de synthèse


Je suis totalement débutant en VBA et en programmation donc si jamais quelqu'un peut m'aider, je le remercie d'avance.

Le code plante et me dit l'indice n'appartient pas à la sélection (je présume qu'il y a un soucis dans ma boucle et le "i" représentant le numéro des onglets...)

Voici le code :

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
 
Sub calcul()
 
'PARTIE 1///////////////////////////
 
'type variables itération
 
Dim i As Integer
Dim j As Integer
 
Dim Produits As String
 
Dim Enzyme As Double
 
Dim DossierTravail As String
Dim ouvre As String
Dim ouvre2 As String
Dim fichier As String
Dim nom As String
 
Application.ScreenUpdating = False  'pour désactiver le rafraichissement de l'écran pendant l'éxecution de la macro
 
fichier = "Produits" & ".xls"
 
DossierTravail = ActiveWorkbook.Path
 
ouvre = DossierTravail & "\test\" & fichier
ouvre2 = DossierTravail & "\Indicateurs_bdd_essai.xls"
 
 
 
Workbooks.Open Filename:=ouvre
 
For i = 1 To Sheets.Count
 
Sheets("i").Select
Range("S2").Select
nom = Range("S2").Value
 
 
For j = 1 To 181
 
 
' //////////////////    transposition Enzyme   ///////////////////////////
 
 
If (Range("A" & j) = "Enzyme") Then
Range("H" & j).Select
Enzyme = Range("C" & j).Value
End If
 
' //////////////////    ecriture dans fichier de synthese///////////////////////////
 
ThisWorkbook.Activate
Sheets("Feuil3").Select
 
Range("Q" & i + 3) = nom
 
Range("R" & i + 3).Select
 Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = Enzyme
 
Next j
 
Next i
 
Workbooks(fichier).Close
 
 
 
End Sub

[pgz]

Bonjour.

Tu peux déjà remplacer

Code :

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

Sheets("i")

par

Code :

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

Sheets(i)

De plus s'il y a des feuilles graphiques, il serait préférable d'utiliser plutôt WorkSheets.

PGZ

[ouskel'n'or]

Bonjour arkange, bienvenue sur le forum.
Déjà, si tu incrémentes une variable, la variable est une valeur. Tu as correctement déclaré i comme integer, et i est effectivement une valeur.
Donc, ce n'est pas Sheets("i").Select mais Sheets(i).Select.
Sans aller plus loin

[arkange015]

Bonjour et merci de vos 2 réponses.

La procédure plante toujours
" l'indice n'appartient pas à la séection" en faisant référence à la variable i.

?

Je souhaite en effet ouvrir un classeur excel XLS1
Puis rechercher des chaque onglet "1, 2... n" de ce classeur la cellule "..." dont la macro copie la valeur dans le classeur de synthèse XLS2 et ainsi de suite.

Si quelqu'un a une idée d'ou peut provenir le plantage, merci d avance.

[pgz]

Bonjour.

Un autre pb, le Sheets.Count ne te renvoie peut-être pas la bonne valeur.

Tu peux ajouter

Code :

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

Dim wbk as Excel.Workbook

Remplacer

Code :

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

1
2
3
4
5
Workbooks.Open Filename:=ouvre
For i = 1 To Sheets.Count
    Sheets("i").Select
    Range("S2").Select
    nom = Range("S2").Value

par

Code :

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

1
2
3
Set wbk = Application.Workbooks.Open(ouvre)
For i = 1 to wbk.WorkSheets.Count
    nom = wbk.Worksheets(i).Range("S2").Value

Si tu as toujurs des pb, montre le code après modif et regarde en debug la valeur de i lors du plantage.

PGZ

[arkange015]

Bonjour et merci pour la nouvelle aide.

La macro tourne et copie bien la cellule.
Par contre, la boucle ne marche pas elle renvoit à chaque fois un 0 alors que les valeurs sont des nombres non nuls ??

Voici le code entier:

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
 
Sub calcul()
 
'PARTIE 1///////////////////////////
 
'type variables itération
 
Dim i As Integer
Dim j As Integer
Dim Produits As String
 
'type ///////////
 
Dim CRE_Petrole_cycle As Double
Dim val1 As Double
Dim DossierTravail As String
Dim ouvre As String
Dim ouvre2 As String
Dim fichier As String
Dim nom As String
Dim wbk As Excel.Workbook
 
Application.ScreenUpdating = False
'pour désactiver le refraichissement de l'écran pendant léxecution de la macro
fichier = "Produits" & ".xls"
DossierTravail = ActiveWorkbook.Path
ouvre = DossierTravail & "\test\" & fichier
ouvre2 = DossierTravail & "\Indicateurs_bdd_essai.xls"
 
Set wbk = Application.Workbooks.Open(ouvre)
For i = 1 To wbk.Worksheets.Count
    nom = wbk.Worksheets(i).Range("S2").Value
 
 
'//////////////////////////////////// test dans la fichier (Produits)  ///////////////////////////////////////////////
 
For j = 1 To 181
 
' //////////////////    transposition CRE_Petrole   ///////////////////////////
 
If (Range("A" & j) = "CRE_Petrole") Then
Range("C" & j).Select
CRE_Petrole_cycle = Range("C" & j).Value
End If
 
 
'/////////////////////////////////// ecriture dans fichier source (Indicateur_bdd_essai)  ///////////////////////////
 
ThisWorkbook.Activate
Sheets("Feuil3").Select
 
Range("Q" & i + 3) = nom
 
Range("R" & i + 3).Select
 Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = CRE_Petrole_cycle
 
Next j
 
Next i
 
Workbooks(fichier).Close
 
End Sub

Merci encore de vos précieux conseils (pour des non experts de vba comme moi, cela m'aide énormément!)

[pgz]

Bonjour

Par contre, la boucle ne marche pas elle renvoit à chaque fois un 0 alors que les valeurs sont des nombres non nuls ??

Je ne comprends pas quel est ton nouveau problème. Tu peux être plus explicite? Une boucle est une boucle, et elle ne renvoie rien.

PGZ

[arkange015]

Bonjour,

En fait, lors que la copie d'une cellule ou il y a du texte, cela se copie normalement.

Par contre, dans les cellules où il y a une valeur numérique cela copie dna sle fichier de synthèse "0" alors que les cellules sont ont des valeurs non nulles (en écriture scientifique) ???

D'avance merci si quelqu'un voit dans le code et dans la boucle là où il y a un soucis..

[pgz]

Bonjour.

As-tu essayé d'écrire avec .Value plutôt que .FormulaR1C1?
Tu fais aussi des sélections qui ne servent à rien.

Tu peux donc remplacer

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
nom = wbk.Worksheets(i).Range("S2").Value
 
 
'//////////////////////////////////// test dans la fichier (Produits)  ///////////////////////////////////////////////
 
For j = 1 To 181
 
' //////////////////    transposition CRE_Petrole   ///////////////////////////
 
If (Range("A" & j) = "CRE_Petrole") Then
Range("C" & j).Select
CRE_Petrole_cycle = Range("C" & j).Value
End If
 
 
 
 
'/////////////////////////////////// ecriture dans fichier source (Indicateur_bdd_essai)  ///////////////////////////
 
ThisWorkbook.Activate
Sheets("Feuil3").Select
 
Range("Q" & i + 3) = nom
 
Range("R" & i + 3).Select
 Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = CRE_Petrole_cycle

par

Code :

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

1
2
Thisworkbook.Worksheets("Feuil3").Range("Q" & i + 3).Value=wbk.Worksheets(i).Range("S2").Value
Thisworkbook.Worksheets("Feuil3").Range("R" & i + 3).Value=wbk.Worksheets(i).Range("C" & j).Value

Il y a aussi probablement un pb dans la structure de ton code, car à chaque passage dans la boucle j, tu écris dans les mêmes cellules.

Bon courage,

PGZ