VBAExcel : fermer un classeur sans messages
kylook
Messages postés
6
Date d'inscription
Statut
Membre
Dernière intervention
-
zozolatornade -
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.
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
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
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
zozolatornade
Ca fonctionne nickel. Merci.