Discussion :

[thechosenone5949]

bonjour à tous,
Je n'ai jamais utilisé le langage VBscript t je cherche à réaliser un script qui permet d'ouvrir un fichier Excel (avec un nom fixe) contenant une seule feuille.
Le script permettra simplement d'appliquer un taux (faire une multiplication par 1,10) sur l'ensemble des cellules d'une collone (ex: collone B).
Pouvez-vous m'aider à réaliser ce script.Je ne connais pas la commande VBscript pour ouvrir un ficier Excel précis. comment dois-je faire pour appliquer l'opération de multiplication sur l'ensemble de la collone (boucle for?)
merci d'avance pour votre aide.
Cordialement Kévin.

[scolopendra]

bonjour,

vous pouvez le faire en vba excel à l'aide d'une macro:

Code :

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

1
2
3
For Each cellule In Range("B1:B65536")
cellule.Value = cellule.Value * 1.1
Next cellule

[thechosenone5949]

Tout d'abord, merci pour la réponse.
La solution Vba fonctionne bien mais elle ne peut convenir dans mon cas.
En effet, je vais recevoir un fichier nouveau fichier excel tout les lundi ce qui implique que je devrais à chaque fois copier ma macros.
Le vbscript me semblait intéressant car il est inérant aux fichiers que je vais recevoir.
merci d'avance pour votre aide.
Très cordialement.

[SfJ5Rpw8]

Bonsoir,

pour un tel problème j'aurai plutôt utilisé un classeur Excel indépendamment du classeur à traiter, ce classeur contenant ton code ..

En VBScript , pour commencer tu pourrai t'inspirer de :

Comment piloter Excel pour créer un classeur.xls ?

[thechosenone5949]

Merci pour la redirection.Le début du script est bon mais je vais avoir besoin de vous pour les commandes suivantes.
Après avoir créer créer le nouveau fichier, il faut que j'ouvre le fichier que j'ai recu:

Code :

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

1
2
3
4
5
6
Fichier_XLS = " c:\MonClasseurRecu " 
Feuille_XLS = "Feuil1" 
set oXL   = WScript.CreateObject("EXCEL.application" ) 
oXL.Visible = False 
oXL.workbooks.open   Fichier_XLS 
oXL.sheets(Feuille_XLS).Activate

Est ce que c'est bon? puis il faudrait m'expliquer comment importer 3 champs complet vers le fichier nouvellement crée.

La derniere étape est simple je suppose, je n'aurais qu'a multiplier la variable par le coefficient dont j'ai besoin.
Merci d'avance pour votre aide. Très cordialement kévin

[scolopendra]

pour continuer ma proposition, ta macro sera stoker quelque part et tu n'auras pas besoin de la copier qui va contenir le script suivant (non tester) :

fichierMacro.xlsm

Code :

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

1
2
3
4
5
6
7
8
9
 
sub Macro()
Workbooks.Open "chemin de ton fichier"
For Each cellule In Range("B1:B65536")
cellule.Value = cellule.Value * 1.1
Next cellule
ActiveWorkbook.Save
Workbooks.Close
End Sub

fichierLanceur.vbs

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Sub Lanceur()
 
Dim AppExcel
 
Set AppExcel = CreateObject("Excel.Application")
AppExcel.workbooks.Open "chemin de ta macro"
AppExcel.Run "nom de la macro"
End Sub
 
Lanceur

voila

[thechosenone5949]

Un grand merci. Après quelques modifications, le script fonctionne bien!
Merci pour votre aide!
Longue vie à la communauté de developpez.net.
Très cordialement Kévin.

[scolopendra]

salut
n'oublie pas de m'entionner le sujet comme résolu