K
kylook
Guest
Bonjour
But du prog VBA : Ouvrir un fichier texte dans une feuille (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 à rien mais je veux garder les données afin de les recopier pour les traiter dans mon classeur de travail.
J'ai ces lignes mais il me pose la question :"Voulez vous enregistrer......" je éponds Non, puis second message "Le presse-papiers contient ......" et là je réponds "OUI" car je garde justement ces données que je traite par la suite"
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
Windows("recuperation.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 'je me rappelle mm plus
Voilà si vous avez la soluce je vous dit d'avance MERCIiiiiiiiiiiiii
But du prog VBA : Ouvrir un fichier texte dans une feuille (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 à rien mais je veux garder les données afin de les recopier pour les traiter dans mon classeur de travail.
J'ai ces lignes mais il me pose la question :"Voulez vous enregistrer......" je éponds Non, puis second message "Le presse-papiers contient ......" et là je réponds "OUI" car je garde justement ces données que je traite par la suite"
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
Windows("recuperation.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 'je me rappelle mm plus
Voilà si vous avez la soluce je vous dit d'avance MERCIiiiiiiiiiiiii