Discussion :

[Nightwhisper]

Bonjour à tous.

Je me présente, Nightwhisper, grand débutant en Vb (grand car vraiment mauvais)

J'ai eu, la brillante idée de faire une macro Excel pour me faciliter la vie, mais cela est loin d'être le cas.

Mon problème :

Je veux, incrémenter une valeur qui ce situe dans un autre classeur. Bon jusqu'a là rien de bien difficile (enfin mon programme ne fonctionne pas quand même)
A chaque incrémentation, je voudrais rappatrier la nouvelle valeur dans un tableau de mon classeur sur lequel je travaille.

La valeur que je tente d'incrémenter est sur le classeur Tm24FYC323-516.xls et elle est nommée Ltb.
Je travaille sur le classeur Teszt.xls

Voici ce que j'ai fait, qui ne fonctionne pas car il doit être bourré d'erreurs:

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
sub macro3()
 Dim ltb As Double
    Dim i As Integer
 
    ltb = Worksheets("Tm24FYC323-516.xls!Ltb")
    Range("B3").Select
    ActiveCell.FormulaR1C1 = "='Tm24FYC323-516.xls'!Ltb"
    For ltb = 0.01 To ltb = 0.4
    ltb = ltb + 0.01
        For i = 4 To i = 43
        Range(i, 2).Select
        ActiveCell.FormulaR1C1 = "='Tm24FYC323-516.xls'!Ltb"
        Next i
    Next ltb
 
 
End Sub

Bon je ne sais pas si j'ai été très clair. En tout cas tout éclairement est le bienvenu.

Version excel 2003 Sp3
Version VB 6.3

[casefayere]

Bonjour Nightwhisper, re le forum,
si on décortique ton code, rien que cette ligne

Code :

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

ltb = Worksheets("Tm24FYC323-516.xls!Ltb")

tu dis que Tm24FYC323-516.xls est un classeur donc déjà

Code :

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

ltb = Workbooks("Tm24FYC323-516.xls").worksheets("nomdetafeuille").range(....

à savoir si ltb est défini comme nom de cellule dans cette feuille, le reste comporte des erreurs mais allons-y pas à pas

a +

[Nightwhisper]

Merci déjà pour la réponse,
j'ai donc modifié la ligne

Code :

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

ltb = Worksheets("Tm24FYC323-516.xls!Ltb")

Par

Code :

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

ltb = Workbooks("Tm24FYC323-516.xls").Worksheets("tm24").Range("G16")

en lancant le programme, il ne bloque plus sur cette ligne.

Par contre, dans le classeur sur lequel je travaille, ltb n'est pas défini, je tente justement d'attribuer uniquement dans le code une valeur à ltb égale à celle définie dans le classeur Tm24.

Je suis clair?

Une idée comme ca, qui me semble pas bête pour aller modifier le Ltb du classeur Tm24

Code :

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

1
2
3
4
5
6
7
8
For ltb = 0.01 To ltb = 0.4
    ltb = ltb + 0.01
Workbooks("Tm24FYC323-516.xls").Worksheets("tm24").Range("G16") =ltb
        For i = 4 To i = 43
        Range(4, i).Select
        ActiveCell.FormulaR1C1 = "='Tm24FYC323-516.xls'!Ltb"
        Next i
    Next ltb

[casefayere]

dans ce cas

Code :

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

ltb = Workbooks("Tm24FYC323-516.xls").Worksheets("tm24").Range("G16") 'il faut que ce classeur soit ouvert

si la macro est dans le classeur "test", (vérifies l'ortographe)

Code :

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

thisworkbook.sheets("nomdelafeuilleactive").activecell = ltb

mais il faut continuer les corrections pour le reste du code avec les boucles, ceci n'est qu'un exemple

[casefayere]

Rien que cette ligne n'a pas une bonne syntaxe

Code :

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

For ltb = 0.01 To ltb = 0.4

je peux corriger ton code si tu me dis quelles sont les cellules à incrémenter