[R] Fonction remplacer excel

[asilus]

Bonjour,

Je cherche actuellement à remplacer certain caractere dans un fichier excel.
Apres quelque recherche j'ai trouver lUDF "ExcelCOM_UDF.au3" avec la fonction _ExcelReplaceInRange.

Cette fonction fonctionne parfaitement mais le probleme est qu'elle ne remplace pas dans toute les feuilles mais uniquement dans la premier feuille.

Quelqu'un à deja eu ce probleme?

Cordialement,
Asilus

[TT22]

http://www.autoitscript.fr/forum/viewto ... f=35&t=595

[asilus]

c'est bon j'ai réussi en listant les feuilles puis en les activants...

Code pour ceux que sa peut interesser:

Code : Tout sélectionner

$sFilePath1 = $chemin
    $oExcel = _ExcelBookOpen($sFilePath1)
    $sFindWhat = $find
    $sReplaceWith = $remplace
    $sRangeOrRowStart = "1"
    $iColStart = 1
    $iRowEnd = 9000
    $iColEnd = 9000
    $iWholeOrPart = 2
    $fMatchFormat = ""
    $fMatchCase = False
    $fReplaceFormat = False
    $sheet = _ExcelSheetList($oExcel)
    For $i = 1 to $sheet[0] Step 1
        _ExcelSheetActivate($oExcel, $sheet[$i])
         $azerty = _ExcelReplaceInRange($oExcel, $sFindWhat, $sReplaceWith, $sRangeOrRowStart, $iColStart, $iRowEnd, $iColEnd, $iWholeOrPart, $fMatchCase, $fMatchFormat, $fReplaceFormat)
     Next