Alertes Excel en Automation

[Julal]

Bonjour,
Pour ma grande premiere sur le forum, 2 questions qui me posent problème depuis hier.
Le principe de la fonction qui suit est :
Depuis un fichier Excel, par automation :
Ouvrir un autre fichier Excel ("FichierDepart")
Y activer une feuille pour faire une modification
Sauvegarder cette modification sur un autre fichier, déja existant en le remplacant.

C'est à ce niveau que j'ai un pbm : bien que mes 2 display Alerts soient à "false", je ne veux pas la boite de dialogue Excel me demandant si je veux écraser le fichier. Je souhaite l'ecraser automatiquement....
Comment faire pour "zapper" cette boite de diag????

J'ai aussi remarquer que pour supprimer des fauilles (suite du code apres ce qui est en gras, je suis obligé de faire la manip 2 fois sinon les feuilles (qui sont à la prop "visible" pour pouvoir etre supprimées) ne sont pas supprimées.

Enfin, comment de la meme facon puis-je supprimer kes feuilles sans que la boite de dialogue intervienne????

Je suis désolé d'etre si long mais c'est assez important pour la maintenance.
J'espère avoir été assez clair sur mes 2 demandes.
En tout cas merci d'avance à ceux qui voudront bien se pencher sur ces questions....


Public Sub DecoupageApplis()
On Error GoTo gesterr
Dim xl As New Excel.Application
Application.DisplayAlerts = False
xl.Application.DisplayAlerts = False
xl.Workbooks.Open "FichierDepart"
xl.ActiveWorkbook.Sheets(strMaintenance).Activate
xl.ActiveWorkbook.ActiveSheet.Cells(1, 1).Value = strTypeProfil

xl.ActiveWorkbook.SaveAs "NomNvFichier"
xl.ActiveWorkbook.SaveAs "NomNvFichier"

xl.Windows(1).Activate
xl.ActiveWorkbook.Sheets(strFeuill1).Visible = True
xl.ActiveWorkbook.Sheets(strFeuill2).Visible = True
xl.ActiveWorkbook.Sheets(Array(strFeuill1, strFeuill2)).Select
xl.ActiveWindow.SelectedSheets.Delete
xl.ActiveWorkbook.Save
xl.ActiveWorkbook.Close
Application.DisplayAlerts = True
xl.Application.DisplayAlerts = True
xl.Quit
Set xl = Nothing
Exit Sub
gesterr:
MsgBox "ERREUR : " & Err.Description
End Sub

 

[Julal]

Re : Alertes Excel en Automation

Je vois que personne ne répond...

C'est que c'est sertainement impossible à réaliser... Dommage

Lorsqu'on fait un "SaveAs" en automation, le fait de mettre
Application.DisplayAlerts = False
ne sert à rien ????

Je demande juste une petite confirmation d'expert.

Dans tous les cas ce forum est très utile car j'ai trouvé plein de chose à intégrer dans mes dev.

Merci beaucoup!

 

[MichelXld]

Re : Alertes Excel en Automation

bonsoir

Je vois que personne ne répond...

Effectivement tu n'obtiendras pas beaucoup de réponses si une heure et demi d'attente est trop long...


je n'ai pas testé mais tu pourrais adapter ce type de syntaxe

    Dim Wb As Workbook
    
    On Error GoTo gesterr
    
    Application.DisplayAlerts = False
    
    Set Wb = Workbooks.Open(FichierDepart)
    Wb.Sheets(strMaintenance).Cells(1, 1).Value = strTypeProfil
    Wb.SaveAs NomNvFichier
    
    Wb.Sheets(strFeuill1).Visible = True
    Wb.Sheets(strFeuill2).Visible = True
    Wb.Sheets(Array(strFeuill1, strFeuill2)).Delete
    Wb.Save
    Wb.Close
    Application.DisplayAlerts = True
    
    Exit Sub
    
gesterr:
    Application.DisplayAlerts = True
    MsgBox "ERREUR : " & Err.Description

Bonne soirée
MichelXld

 

[lapix]

Re : Alertes Excel en Automation

Bonsoir,

Je suis tout sauf un expert mais dans l'aide il semblerait effectivement que ce ne soit pas possible.

Peut etre parce que c'est un processus sous traite.....

Bonne soiree

 

[Julal]

Re : Alertes Excel en Automation

Merci à vous MichelXld et lapix.

J'essaie le code "MichelXld" dans la journée.
Selon toi il vaut mieux ouvrir direct le classeur..ok
A mon avis ca doit fonctionner j'ai lme meme type de fonction pour suppprimer des feuilles.
Désolé de m'etre montré si pressé...

Merci encore, je donne des nouvelles plus tard concernant la modif.