simuler la touche entrée

Version imprimable

25/04/2009, 19h29
patricktoulon

simuler la touche entrée

bonjours a tous
j ai un petit soucis dans une macro
mon script enregistre le feuillet1 dans un autre classeur nommé au préalable dans la macro
:?mais je suis obligé de cliquer sur "OK" pour enregistrer les modifs du nouveau classeur
j'avais trouvé une commande du genre "sendkey ("ENTER") ou quelque chose comme ça
mais je ne m'en rappelle plus
j'ai bien essayé de l'enregistrer avec l'enregistreur mais ça ne fonctionne pas

je suis un super débutant alors un coup de main serais le bien venu

merci d avance
25/04/2009, 19h37
drakkar_agfa

Bonjour,

essais en ajoutant cette ligne au début de ton code

Code:

Application.DisplayAlerts = False

N'oublie pas de le remettre à True en terminant!

Bonne chance! :)
25/04/2009, 19h55
laetitia

bonjour patricktoulon drakkar_agfa le forum pour cela il faudrait voir ton code tu as pas un copy par hasard dans ton code!!!

re: simuler la touche entrée

merci drakkar agfa et laeticia
je vais essayer en attendant voila mon bou de code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub sauvegardedevis()
'
' sauvegardedevis Macro
  chemin = "O:\vp service\DEVIS\"
  popo = Sheets("prepadevis").Range("F2").Text
  statut = Sheets("prepadevis").Range("B12").Text
  nomdufichier = Sheets("prepadevis").Range("G4").Text
  espace = "  "
 
' Dans mon cas je récupère l'info dans une cellule
 
'
    Sheets(Array("envelloppe", "prepadevis")).Select
    Sheets("envelloppe").Activate
    Sheets(Array("envelloppe", "prepadevis")).Copy
    ChDir "C:\Users\Patrick\Desktop"
    ActiveWorkbook.SaveAs Filename:= _
        chemin & statut & espace & nomdufichier & espace & popo
        ActiveWindow.Close
    Sheets("devis").Activate
 
End Sub

----------------------------------------------------------------------------
merci d'avance a tous les deux

re:simuler la touche entrée

ok!! c'est bon la formule de drakkar a fonctionné

merci a tout les deux donc :yaisse2:

voila le code en entier pour sauvegarder un feuillet ou une partie du classeur
sous un autre nom
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 Sub sauvegardedevis() 'suprime les intervention des fenetre windows Application.DisplayAlerts = False 'construction du nom du fichier ' Dans mon cas je récupère l'info dans une cellule chemin = "O:\vp service\DEVIS\" popo = Sheets("prepadevis").Range("F2").Text statut = Sheets("prepadevis").Range("B12").Text nomdufichier = Sheets("prepadevis").Range("G4").Text espace = " " 'je sélectionne les feuillets a copier Sheets(Array("envelloppe", "prepadevis")).Select Sheets("envelloppe").Activate Sheets(Array("envelloppe", "prepadevis")).Copy SendKeys ("{ENTER}") ChDir "O:\vp service\DEVIS\" ActiveWorkbook.SaveAs Filename:= _ chemin & statut & espace & nomdufichier & espace & popo SendKeys ("{ENTER}") 'revient sur la page de depart ActiveWindow.Close Sheets("prepadevis").Activate SendKeys ("{ENTER}") End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' SendKeys ("{ENTER}")<------"simule l'appuie sur la touche entrée"

voila je n'ai rien inventer mais si ca peut servir a quelqu'un j'en suis ravi

merci encore a drakkar agfa et laeticia:king: