OVH Cloud OVH Cloud

Fermer fenêtre

3 réponses
Avatar
Denys
Bonjour à tous,

Dans une application, j'ai une macro qui va chercher de l'information sur
une feuille excel déjà ouverte. Elle copie l'information sur cette feuille,
puis la colle sur l'application "primaire".

Je voudrais aussi fermer la feuille sur laquelle je suis aller copier
l'information sans qu'Excel me demande si je veux sauver l'application. Pour
cela j'utilise l'instruction suivante:

ActiveWorkbook.Close False

Sauf que cette fois-ci Excel me dit "There's a large amount of information
bla bla bla..."

Sauriez-vous qu'est-ce que je dois écrire afin que l'application se ferme
sans poser de question????

Je vous donne mon bout de code:

Sub TransfertDemande()
Sheet3.Unprotect "cont"
Sheet1.Unprotect "cont"
Application.ScreenUpdating = False
Windows("ContRequest.xls").Activate
Cells.Select
Range("A12").Activate
Selection.Copy
Windows("RRSP Cont-Receipts Database (2005).xls").Activate
Cells.Select
ActiveSheet.Paste
Range("AC27").Select
Windows("ContRequest.xls").Activate
ActiveWorkbook.Close False (Ici le problème)
Windows("RRSP Cont-Receipts Database (2005).xls").Activate
ActiveCell.Value = Sheets("Database").Range("AG1").Value + 1
etc...

Merci pour votre temps...

Denys

3 réponses

Avatar
OnE
Bonjour à tous,

Dans une application, j'ai une macro qui va chercher de l'information sur
une feuille excel déjà ouverte. Elle copie l'information sur cette feuille,
puis la colle sur l'application "primaire".

Je voudrais aussi fermer la feuille sur laquelle je suis aller copier
l'information sans qu'Excel me demande si je veux sauver l'application. Pour
cela j'utilise l'instruction suivante:

ActiveWorkbook.Close False

Sauf que cette fois-ci Excel me dit "There's a large amount of information
bla bla bla..."

Sauriez-vous qu'est-ce que je dois écrire afin que l'application se ferme
sans poser de question????

Je vous donne mon bout de code:

Sub TransfertDemande()
Sheet3.Unprotect "cont"
Sheet1.Unprotect "cont"
Application.ScreenUpdating = False
Windows("ContRequest.xls").Activate
Cells.Select
Range("A12").Activate
Selection.Copy
Windows("RRSP Cont-Receipts Database (2005).xls").Activate
Cells.Select
ActiveSheet.Paste
Range("AC27").Select
Windows("ContRequest.xls").Activate
ActiveWorkbook.Close False (Ici le problème)
Windows("RRSP Cont-Receipts Database (2005).xls").Activate
ActiveCell.Value = Sheets("Database").Range("AG1").Value + 1
etc...

Merci pour votre temps...

Denys


Mettre

Application.DisplayAlerts = False

Excel n'affichera plus de demandes de confirmation.

Avatar
papou
Bonjour
Après Activesheet.Paste mettre un
Application.CutCopyMode = False
Cordialement
Pascal

"Denys" a écrit dans le message de news:

Bonjour à tous,

Dans une application, j'ai une macro qui va chercher de l'information sur
une feuille excel déjà ouverte. Elle copie l'information sur cette
feuille,
puis la colle sur l'application "primaire".

Je voudrais aussi fermer la feuille sur laquelle je suis aller copier
l'information sans qu'Excel me demande si je veux sauver l'application.
Pour
cela j'utilise l'instruction suivante:

ActiveWorkbook.Close False

Sauf que cette fois-ci Excel me dit "There's a large amount of information
bla bla bla..."

Sauriez-vous qu'est-ce que je dois écrire afin que l'application se ferme
sans poser de question????

Je vous donne mon bout de code:

Sub TransfertDemande()
Sheet3.Unprotect "cont"
Sheet1.Unprotect "cont"
Application.ScreenUpdating = False
Windows("ContRequest.xls").Activate
Cells.Select
Range("A12").Activate
Selection.Copy
Windows("RRSP Cont-Receipts Database (2005).xls").Activate
Cells.Select
ActiveSheet.Paste
Range("AC27").Select
Windows("ContRequest.xls").Activate
ActiveWorkbook.Close False (Ici le problème)
Windows("RRSP Cont-Receipts Database (2005).xls").Activate
ActiveCell.Value = Sheets("Database").Range("AG1").Value + 1
etc...

Merci pour votre temps...

Denys


Avatar
Denys
Bonjour One et Papou,

Merci infiniment, c'est très aimable de votre part...

Bonne fin de semaine

Denys



Bonjour à tous,

Dans une application, j'ai une macro qui va chercher de l'information sur
une feuille excel déjà ouverte. Elle copie l'information sur cette feuille,
puis la colle sur l'application "primaire".

Je voudrais aussi fermer la feuille sur laquelle je suis aller copier
l'information sans qu'Excel me demande si je veux sauver l'application. Pour
cela j'utilise l'instruction suivante:

ActiveWorkbook.Close False

Sauf que cette fois-ci Excel me dit "There's a large amount of information
bla bla bla..."

Sauriez-vous qu'est-ce que je dois écrire afin que l'application se ferme
sans poser de question????

Je vous donne mon bout de code:

Sub TransfertDemande()
Sheet3.Unprotect "cont"
Sheet1.Unprotect "cont"
Application.ScreenUpdating = False
Windows("ContRequest.xls").Activate
Cells.Select
Range("A12").Activate
Selection.Copy
Windows("RRSP Cont-Receipts Database (2005).xls").Activate
Cells.Select
ActiveSheet.Paste
Range("AC27").Select
Windows("ContRequest.xls").Activate
ActiveWorkbook.Close False (Ici le problème)
Windows("RRSP Cont-Receipts Database (2005).xls").Activate
ActiveCell.Value = Sheets("Database").Range("AG1").Value + 1
etc...

Merci pour votre temps...

Denys


Mettre

Application.DisplayAlerts = False

Excel n'affichera plus de demandes de confirmation.