Famille de feuilles de calcul Microsoft avec des outils pour l’analyse, le graphique et la communication des données.
Bonjour,
Merci pour votre réponse:
Depuis quelque semaine j'utilise la version d'Excel 2021
Avec la version de 2007 j'avait jamais un problème.
Version 2021:
$XExcelVenusChedule = Open-ExcelPackage -Path "C:............xlsx"
Add-Worksheet -ExcelPackage $XExcelVenusChedule -WorksheetName "MondKalender"
$XExcelVenusChedule_Nom_hemera = $XExcelVenusChedule.Workbook.Worksheets['MondKalender'].Cells['c15'].Value.ToString() # ligne, col
$XExcelVenusChedule_Valeur_hemera = $XExcelVenusChedule.Workbook.Worksheets['MondKalender'].Cells['c16'].Value.ToString()
""
$XExcelVenusChedule_Nom_men1 = $XExcelVenusChedule.Workbook.Worksheets['MondKalender'].Cells['D15'].Value.ToString() # col, ligne
$XExcelVenusChedule_Nom_men2 = $XExcelVenusChedule.Workbook.Worksheets['MondKalender'].Cells['J20'].Value.ToString()
$XExcelVenusChedule_Nom_men3 = $XExcelVenusChedule_Nom_men2.Substring(0,1).ToUpper() + $XExcelVenusChedule_Nom_men2.Substring(1).ToLower()
$XExcelVenusChedule_Valeur_men = $XExcelVenusChedule.Workbook.Worksheets['MondKalender'].Cells['D16'].Value.ToString()
""
$XExcelVenusChedule_Nom_etos = $XExcelVenusChedule.Workbook.Worksheets['MondKalender'].Cells['E15'].Value.ToString()
$XExcelVenusChedule_Valeur_etos = $XExcelVenusChedule.Workbook.Worksheets['MondKalender'].Cells['E16'].Value.ToString()
""
$Xtarget = ((get-date ).DayOfWeek.value__)
Switch -exact ($Xtarget)
{
1 {$Xtag = " 1 | Σελήνης ἡμέρα - Selēnēs hēméra"}
2 {$Xtag = " 2 | Ἄρεως ἡμέρα - Áreōs hēméra"}
3 {$Xtag = " 3 | Ἕρμου ἡμέρα - Hérmou hēméra"}
4 {$Xtag = " 4 | Διὸς ἡμέρα - Diòs hēméra"}
5 {$Xtag = " 5 | Ἀφροδίτης ἡμέρα - Aphrodítēs hēméra"}
6 {$Xtag = " 6 | Κρόνου ἡμέρα - Krónou hēméra"}
0 {$Xtag = " 7 | Ἡλίου ἡμέρα - Hēlíou hēméra"}
}
$XExcelVenusChedule_Nom_hemera.ToString()
"Luna-Day-Week:" + $Xtag.ToString()
"Luna-Day-Month: " + $XExcelVenusChedule_Valeur_hemera.ToString()
""
$XExcelVenusChedule_Nom_men1.ToString()
$XExcelVenusChedule_Nom_men3.ToString()
# $XExcelVenusChedule_valeur_men.ToString()
""
$XExcelVenusChedule_Nom_etos.ToString()
$XExcelVenusChedule_valeur_etos.ToString()
Close-ExcelPackage $XExcelVenusChedule
clear-variable X* -scope global -F
La page web correspondant en version manuelle:
ou en version pour IE
pictured as: Eosphoros vs Hesperos - Venus is (pagesperso-orange.fr)
========================
$ExcelVenus.Save()
Ne fonctionne point
La même chose est de ne rendre visible la feuille Excel
En VBA vous fait comment?
Merci
Arnold