Question MODIFICATION EXPORT EXCEL ODBC

# Chemin source des fichiers Excel
$sourcePath = "C:\Rapports SQL"
# Chemin de destination des fichiers modifiés
$destinationPath = "C:\Rapports SQL - format EXCELnoODBC"

# Purger les fichiers existants dans le répertoire de destination
Get-ChildItem -Path $destinationPath -Filter "*.xlsx" | Remove-Item -Force

# Charger l'application Excel
$excel = New-Object -ComObject Excel.Application
$excel.Visible = $false
$excel.DisplayAlerts = $false

# Obtenir la date du jour au format YYYY-MM-DD
$dateSuffix = (Get-Date).ToString("yyyy-MM-dd")

# Récupérer tous les fichiers Excel du répertoire source
$files = Get-ChildItem -Path $sourcePath -Filter "*.xlsx"

foreach ($file in $files) {
    
 
    try {
        # Ouvrir le fichier Excel
        $workbook = $excel.Workbooks.Open($file.FullName)

        # Actualiser toutes les données ODBC du classeur
        $workbook.RefreshAll()
        Start-Sleep -Seconds 300 # Attendre pour s'assurer que l'actualisation est terminée

        # Supprimer les connexions ODBC
        foreach ($connection in $workbook.Connections) {
            $connection.Delete()
        }

        # Supprimer les feuilles indésirables (par exemple, nommées "SQL")
        foreach ($sheet in $workbook.Sheets) {
            if ($sheet.Name -eq "SQL") {
                $sheet.Delete()
                Write-Host "Feuille 'SQL' supprimée dans : $($file.Name)"
            }
        }

        # Générer un nouveau nom de fichier avec la date du jour
        $fileNameWithoutExtension = [System.IO.Path]::GetFileNameWithoutExtension($file.Name)
        $newFileName = "$fileNameWithoutExtension-$dateSuffix.xlsx"
        $newFilePath = Join-Path -Path $destinationPath -ChildPath $newFileName

        # Sauvegarder une copie sans les liens ODBC
        $workbook.SaveAs($newFilePath, 51) # 51 correspond à xlOpenXMLWorkbook (format .xlsx)
        $workbook.Close()
        Write-Host "Fichier traité : $($file.Name) => $newFileName"
    } catch {
        Write-Warning "Erreur avec le fichier : $($file.Name) - $($_.Exception.Message)"
    }
}

# Quitter Excel proprement
$excel.Quit()
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($excel) | Out-Null

Write-Host "Traitement terminé. Fichiers copiés dans : $destinationPath"