Script VB echoue alors qu'il fonctionne sous excel

Bonjour à tous,
Cette ligne de script :

Code:

---

1 2	Range(beginOfRange).Select Selection.AutoFill Destination:=Range(beginOfRange, Range(beginOfRange).Offset(OffsetValue, 0)), Type:=xlFillDefault

---

echoue à la compilation lorsqu'elle est dans un fichier .VBS exécuté depuis le système (XPPro) alors qu'elle fonctionne parfaitement sous Excel (97) en tant que macro. Vous avez une idée ?
Message Ligne ... Caractère 36, instruction attendue, code 800A0400. le caractère 36, c'est le = du premier := de la ligne Select.AutoFill.
Merci
Cordialement
Eb

Il ne faut pas perdre de vue que VBA(Visual Basic for Application) Excel est pratiquement un outil de développement intégré qui sait gérer les bibliothèques(DLL) et les composants(OCX)
Les éléments précités(dans ton post) sont liés à un objet "Document" géré par Excel.
Le VBS(Visual Basic Scripting) est un outil très modeste pour le développement et qui ne sait pas gérer les bibliothèques et les composants par lui-même. Mais on peut le lui faire faire si on passe par un wrapper.

D'où l'erreur mentionnée à l'exécution.

Citation:

---

Envoyé par l_autodidacte

...Les éléments précités(dans ton post) sont liés à un objet "Document" géré par Excel.
Le VBS(Visual Basic Scripting) est un outil très modeste pour le développement et qui ne sait pas gérer les bibliothèques et les composants par lui-même. Mais on peut le lui faire faire si on passe par un wrapper...

---

Bonjour,
Merci pour ta réponse. Est-ce que le code ci-dessous correspond à ce que tu veux dire par "passer un wrapper" ?

Code:

---

1 2 3 4 5

Set xl = CreateObject("Excel.Sheet") xl.Application.Workbooks.Add xl.Application.Workbooks(1).WorkSheets.Add With xl.Application.ActiveWorkbook .Names.Add Name="s" & tMois(0) & "NP", RefersToR1C1:="='Solde Annee precedente'!R17C7"

---

Il ne marche pas plus que l'autre, le compilateur bute toujours sur le = de :=
Cordialement
Eb

Salut

Il me semble bien que ton := doit être interprété comme un littéral par VBScript, c'est l'objet xl (Excel.Sheet) qui lui va utiliser l'opérateur.
Je n'ai jamais utilisé l'objet Excel, mais je pense que

Code:

---

1 2	With xl.Application.ActiveWorkbook .Names.Add Name = "s" & tMois(0) & "NP", RefersToR1C1 & ":=" & "'Solde Annee precedente'!R17C7"

---

doit être une piste pour la rédaction acceptable par VBScript.

Citation:

---

Envoyé par ProgElecT

... je pense que

Code:

---

1 2	With xl.Application.ActiveWorkbook .Names.Add Name = "s" & tMois(0) & "NP", RefersToR1C1 & ":=" & "'Solde Annee precedente'!R17C7"

---

doit être une piste pour la rédaction acceptable par VBScript.

---

Bonjour,
Merci pour la réponse.
Si j'écris ça

Code:

---

feuille.Names.Add Name="s" & tMois(0) & "NP", RefersToR1C1 & ":=" & "='Solde Annee precedente'!R17C7"

---

ok, VBScript compile et le script s'exécute, mais c'est Excel qui n'aime pas : "variable non définie : name"
Je cherche encore, mais ... le temps qui m'est imparti touche à sa flemme :oops:
Cdlt
Eb

Si la seule variable est tMois(0), essais encor comme ceci

Code:

---

feuille.Names.Add "Name=s" & tMois(0) & "NP, RefersToR1C1 := Solde Annee precedente!R17C7"

---

si les apostrophes sont utiles/nécessaires

Code:

---

feuille.Names.Add "Name=s" & tMois(0) & "NP, RefersToR1C1 := 'Solde Annee precedente'!R17C7"

---

Je me répète, je n'ai aucune connaissance dans l'utilisation d'une macro Excel depuis VBScript :aie:

Bonjour,
Pas mieux. Testé les deux lignes l'une après l'autre, chacune provoque une "erreur d'exécution inconnue" code 800A03EC.
J'abandonne. Merci quand même
Eb

Salut !

Désolé, c'est peut-être un peu tard ...
Voici la méthode que j'utilise :

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub Ajout_renommage_feuille()   Nom_Fichier = "test.xls" Nom_Feuille = "Ma_Feuille"   Workbooks(Nom_Fichier).Activate Workbooks(Nom_Fichier).Sheets.Add ActiveSheet.Name = Nom_Feuille   End Sub

---