eviter le message excel sur le presse papier

[dj.run]

re à tous,

vous devez vous dire il est fatigant celui la avec toutes ces questions .
en faite c'est la soif de savoir et depuis que j'ai mis le doigt dans le vba j'ai attaqué plusieurs projets ensembles.

en fait ma question est peut etre bete mais:

je fais une importation d'un fichier txt (qui est sur disquette) vers excel, je copie les colonnes dont j'ai besoin sur ma feuille de projet et puis je referme le fichier txt . jusque la tout va bien . quand je referme le fichier txt excel m'envoyait deux message un pour enregistrer les modifications celui la je l'ai fait sauté "boum" avec ActiveWindow.Close SaveChanges:=False
mais j'en ai un autre que je n'arrive pas à repondre par le vba, c'est sur le presse papiers.

presse-papiers contient une grande quantite d'informations. etc....

3 choix possibles : oui, non, annuler.

moi je voudrai lui dire non mais par la programation et j'y arrive po !

quelqu'un aurait il une idée ??

merci à lui ou à elle de ce manifesté(e).

dj.run

si besion je peux vous joindre les 2 fichiers xls et txt

 

[@+Thierry]

RE Salut à toi DJ-Run

Ben je ne sais plus si :
Application.DisplayAlert = False
Te fera sauter le message du Presse Papier ou non... (pense pas !)

Sinon deux méthodes Système D

Méthode on fait remplir le ClipBoard par Excel et on le Vide !! (oui je sais un peu tordu mais bon !! lol)
Range("a1").copy
Application.CutCopyMode

Méthode on essaie de répondre au message par un send Key....
Application.SendKeys Keys:="{TAB} + "~"


Mais tout compte fait pourquoi n'ouvres-tu pas ton fichier TXT par Excel ? Tu n'aurais pas ce problème ?

Bon ben moi je vais pas tarder à partir du bureau !! et Youpi 4 Days !!!

Bonnes et Joyeuses Paques
@+Thierry

 

[@+Thierry]

oups pour :

Application.CutCopyMode = False (of course !!)

Too Fast to run on Holidays !!!

@+Thierry

 

[dj.run]

bonjour a tous,

@thierry, qu'entends tu par ouvrir par excel ?

je pense que c'est ce que je fais car je l'importe par excel .

ci joint le code :

Workbooks.OpenText FileName:="h:\statfam\STATFAM.TXT", Origin:=xlWindows, StartRow _
:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _
, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), _
Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1))
Range("A2:A46,B2:B46,C246").Select
Range("C2").Activate
ActiveWindow.ScrollRow = 1
Range("A2:A46,B2:B46,C246,F2:F46").Select
Range("F2").Activate
Selection.Copy
Windows("statfammodl.xls").Activate
ActiveWindow.ScrollRow = 1
Range("B7").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Windows("STATFAM.TXT").Activate
ActiveWindow.Close SaveChanges:=False

MsgBox "Vous devez changer de mois puis cliquer sur le bouton Sauvegarde", 64

Range("a1").Select

dj.run

 

[Zon]

Bonsoir Djrun,

...
Range("B7").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'''''''Aprés le copier collage special
application.cutcopymode=false''on vide le presse papier

Windows("STATFAM.TXT").Activate
...


A+++

 

[dj.run]

bonjour zon,

tu ne dors pas à cette heure ci ?

super comme d'habitude, ça fonctionne à merveille, je note tout ça dans mon petit cahier car je vais souvent l'utiliser .

bonne journée, joyeuses Paques

dj.run