Discussion :

[RéviAT]

Bonjour à tous,
Dans un programme en VBA dans un classeur Excel (classeur « Essai ») j’aimerais aller copier une feuille d’un autre classeur (feuille « PoliceDeCaractères ») et la coller dans la feuille « Travail » du premier fichier. Pour cela j’ai fait la macro suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub ChargementDesPolices()
    Workbooks.Open Filename:="D:\Travail\Transfert\PolicesDeCaractères.xls"
    Cells.Select
    Selection.Copy
    ActiveWorkbook.Close False
    Sheets("Travail").Select
    Cells.Select
    ActiveSheet.Paste
End Sub

Elle fonctionne presque bien mais Excel est interrompu par les deux demandes suivantes ::
« le presse-papier contient une grande quantité d’information. Voulez-vous … » (Réponse possibles : oui, non, Annulé, et il faut répondre « Oui »)
« La taille et la forme des données du presse-papier ne correspond pas … » (Réponse possibles : OK, Annulé et il faut toujours répondre « OK »)

Voici ma question : Quels codes faut écrire en VBA pour répondre systématiquement « Oui » à la première demande et « OK » à la deuxième ?
Merci par avance de votre aide.
RéviAT

[mayekeul]

bonjour,

tu devrais essayer avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

application.displayalerts=true

et

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

application.displayalerts=false

[Jean-Pierre49]

Bonjour mayekeul,

Ou plutot en inversant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.DisplayAlerts = False

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.DisplayAlerts = True

[mayekeul]

bonjour jean-pierre49,

lol
oui c'est mieux!

[RéviAT]

Cela fonctionne très bien.
Merci beaucoup.
RéviAT