Pbl Workbooks

[rollermarathon]

Bonjour,
j'ai voulu créer une macro me permettant de retranscrire des données Excel d'une plage donnée sur un modèle de lettre.
Voici ma macro:

For Each Cell In Range("PlageCalculs")
If Not IsEmpty(ActiveCell.Value) Then
vRecopie = vRecopie + 1
vCalcul = ActiveCell.Value
Workbooks("Lettre.xlt").Activate
Range("Feuil1!Calcul" & Cstr (vRecopie)).Value = vCalcul
End If
Next Cell

Lorsque j'arrive à l'étape "Workbooks("Lettre.xlt").Activate", Excel me renvoie une erreur d'exécution "9", avec le message "l'indice n'appartient pas à la sélection".
Je ne vois comment résoudre le problème... Avez-vous une idée?
Merci

 

[Luki]

Re : Pbl Workbooks

Bonjour RM,

Probablement car ton "lettre.xlt" n'est pas ouvert ou que tu l'as ouvert comme nouveau document (xlt étant un modèle) et qu'il s'appelle autrement lettre1. par exemple.

Tu peux savoir quels sont les classeurs ouvert avec cette petite macro, à mettre dans un module standard. Regarde bien les extensions aussi.

 Sub RollerM()
Dim i%
    For i = 1 To Workbooks.Count
        MsgBox Workbooks(i).Name & "    est ouvert"
    Next i
End Sub

voilà 🙂

 

[Gorfael]

Re : Pbl Workbooks

Bonjour,
j'ai voulu créer une macro me permettant de retranscrire des données Excel d'une plage donnée sur un modèle de lettre.
Voici ma macro:

For Each Cell In Range("PlageCalculs")
If Not IsEmpty(ActiveCell.Value) Then
vRecopie = vRecopie + 1
vCalcul = ActiveCell.Value
Workbooks("Lettre.xlt").Activate
Range("Feuil1!Calcul" & Cstr (vRecopie)).Value = vCalcul
End If
Next Cell

Lorsque j'arrive à l'étape "Workbooks("Lettre.xlt").Activate", Excel me renvoie une erreur d'exécution "9", avec le message "l'indice n'appartient pas à la sélection".
Je ne vois comment résoudre le problème... Avez-vous une idée?
Merci

Salut
Il faut un test : si il n'est pas ouvert, l'ouvrir.
Par contre, je ne suis pas persuadé que la macro fasse ce que tu désires :
Pour chaque cellule de la plagecalcul
recopier la cellule activée (qui reste la même tant qu'on ne la change pas)
dans la variable vcalcul
Mais ça
Range("Feuil1!Calcul" & Cstr (vRecopie))
Je n'en comprend pas la signification : peut-être
range("Calcul").cells(vRecopie)
avec une plage nommée calcul dans le classeur ?

Si tu expliquais ce que devrait faire ta macro ?
Avec ton fichier Xlt : Pourquoi faire un modèle, si tu compte le modifier par macro ? C'est pas sur un classeur issue de ce modèle que tu veux travailler ?

A+