VBAExcel : fermer un classeur sans messages

Fermé
kylook Messages postés 6 Date d'inscription mardi 22 juin 2004 Statut Membre Dernière intervention 2 novembre 2006 - 22 juin 2004 à 16:36
 zozolatornade - 24 sept. 2021 à 12:52
Bonjour
But de mon prog VBA (excel2000, VBA 6.0): Ouvrir un fichier texte dans un classeur cible (j'ai fait, ca c'est bon), je sélectionne mes données, je fais un copier (hop, dans le tampon) puis je referme ce fichier qui ne me sers plus à rien mais je veux garder les données contenues dans le tampon afin de faire un copier dans mon classeur de travail pour les traiter . Et je ne souhaite pas les messages intermédiaires suivants :"Voulez vous enregistrer......" je réponds Non (j'aimerais qu'il se ferme sans me poser cette question puisque je ne fais que récupérer les données dans le tampon mémoire, le fichier ne m'intéresse pas, puis second message "Le presse-papier contient ......" et là je réponds "OUI" car je garde justement ces données que je traite par la suite" (je souhaite ne pas l'avoir non plus)

Voici le prog que j'ai fait mais ca ne marche pas
Listing 'commentaires
Range("A1").Select 'placement

Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select 'selection

Selection.Copy 'copie

'Application.DisplayAlerts = False 'inhibe l'affichage message

'ThisWorkbook.Close 'fermeture du classeur

'Application.DisplayAlerts = True 'remet l'affichage

ActiveWindow.Close 'ferme une fenêtre

Windowsrecuperation.xls").Activate 'appel mon classeur

Sheets("F_Fichier").Select 'active ma feuille de récup

Range("A1").Select 'départ cellule haut

ActiveSheet.Paste 'copie des données

Application.CutCopyMode = False

Voilà si vous avez la soluce je vous dit d'avance merciiiiiiiiiiiiii bcp.

1 réponse

Utilisateur anonyme
22 juin 2004 à 16:46
Bonjour,

Dim Classeur As Workbook

set Classeur=ActiveWorkbook
Range("A1").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.Copy
Workbook(Windowsrecuperation.xls").Activate
Sheets("F_Fichier").Select
Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False

Application.DisplayAlerts = False
Workbook(Classeur).Activate
ActiveWorkbook.Close
Application.DisplayAlerts = True

**Pas testé!

Lupin
6
zozolatornade
24 sept. 2021 à 12:52
Ca fonctionne nickel. Merci.
0