VBAExcel : fermer un classeur sans messages

kylook Messages postés 6 Date d'inscription   Statut Membre -  
 zozolatornade -
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

  1. Utilisateur anonyme
     
    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
    1. zozolatornade
       
      Ca fonctionne nickel. Merci.
      0