Discussion :

[patricktoulon]

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

[drakkar_agfa]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.DisplayAlerts = False

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

Bonne chance!

[laetitia]

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

[patricktoulon]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[patricktoulon]

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

merci a tout les deux donc

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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