recherche valeur dans cellule excel depuis un vbs

Bonjour, je cherche à éviter l'utilisation de macro sur un fichier excel car sharepoint ne le supporte pas :calim2:

je souhaite ouvrir un fichier excel A dans lequel la ligne 2 (par ex) contient différentes dates.

En fonction de la date du jour, je veux que le script ouvre un fichier B nommé type XXX_site_date.xls et qu'il copie une colonne vers le fichier A dans la colonne avec la date correspondante.

Quelle fonctions utiliser?

Merci pour votre aide

Bonjour Gamack,

Pour utiliser Excel depuis VBS, vous pouvez débuter avec ce bout de code qui permet d'ouvrir un fichier Excel et de lire la première cellule de la ligne 2 de la feuille active :

Citation:

---

Set oXL = WScript.CreateObject("EXCEL.application")
oXL.Workbooks.Open "D:\..\...\fichier_A.xls"
oXL.visible=true
'............ votre code
WScript.Echo oXL.ActiveSheet.cells(2,1).value
'.............................
oXL.Quit
Set oXL = Nothing

---

si vous avez besoin de faire une boucle sur une colonne pour récupérer, par exemple, les données de la 3ème ligne à la dernière complétée de la colonne B, vous pouvez insérer ce bout de code:

Citation:

---

intRow = 3
Do Until oXL.Cells(intRow,2).Value = ""
WScript.Echo oXL.ActiveSheet.cells(intRow,2).value
intRow = intRow + 1
Loop

---

Reste plus qu'à l'adapter à vos besoins.
Bon courage :ccool:

Bonjour Guillaume,

Merci pour ton retour.

En fait j'ai défini une variable datejour dans mon vbs.
J'ai essayé de retrouvé la valeur de datejour dans mon fichier excel via la fonction .find mais ça ne marche pas.

Je me suis dis que c'était parce que il n'y avait pas d'interaction avec mon vbs et excel que j'ai ouvert.

J'ai donc renseigné sur la feuille 7 de mon classeur la date du jour dans la cellule B2 (B2=aujourd'hui()).

Je souhaite donc recherché via vbs la valeur de la cellule B2 de la feuille 7 sur la ligne 1 de la feuille 1.

une fois la valeur trouvée, je souhaite copier dans la colonne des valeurs d'un autre classeur...

Voici le bout de script que j'ai écris mais qui ne fonctionne pas :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Set XlDate =.sheets(7).cells(2,2)   .Sheets(1).rows(1).find (XlDate)   ColumnNum = .activecell.column   wscript.echo ColumnNum   ColumnLetter = Chr(64 + ColumnNum)   wscript.echo ColumnLetter   .sheets(1).cells(137,ColumnNum).pastespecial

---

Merci pour ton aide.

J'ai réussi à avancer sur mon script suite à tes astuces mais maintenant je bloque à un autre niveau.

J'arrive à copier des plages de cellules du fichier A vers le fichier B, mais celle ci sont collés au format text et non en chiffre et pour le coup inexploitable pour mes graphiques..

une idée?

Code:

---

1 2 3 4 5 6 7 8 9 10

If fso.fileExists (EngPath & centre & FNBFAICO & extfichier & ".xlsx") then   .workbooks.open(EngPath & centre & FNBFAICO & extfichier & ".xlsx") .sheets(1).Range("B2:B26").Copy .Activeworkbook.close   SuiviEngts.activate .sheets(1).cells(9,ColumnNum).PasteSpecial   End If

---

bonjour Guillaume,

J'ai presque finalisé mon script grace a tes conseils :-)

Un dernier blocage neanmoins :-(.

Je souhaite exporter chaque graphique contenu dans mon classeur en gif ou png.

j'ai essayé .chart ou.chartobjects mais ca ne fonctionne pas...