Discussion :

[foxbille]

Bonjour à tous,
Cette ligne de script :

Code :

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

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

[l_autodidacte]

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.

[foxbille]

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

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

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

[ProgElecT]

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 :

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

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.

[foxbille]

... je pense que

Code :

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

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 :

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

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
Cdlt
Eb

[ProgElecT]

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

Code :

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

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

si les apostrophes sont utiles/nécessaires

Code :

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

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

[foxbille]

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

[Cachlab]

Salut !

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

Code :

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

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