Conserver une valeur

Conserver une valeur - VB/VBA/VBS - Programmation

Marsh Posté le 29-03-2005 à 18:18:44    

Bonjour,
 
Je suis un debutant dans vb excel.  
J,aimerais savoir comment faire pour garder en mémoire mon entrée dans mon inputbox(temps_cuisson), pour que la prochaine fois, elle apparaisse automatiquement.  
 
temps_recette1 = (Application.InputBox("Entrer le temps de la recette, si vous ne le connaissez pas et voulez seulement le graphique cliquez sur cancel ", "Temps de recette", temps_cuisson)) / 10
temps_recette = Round(temps_recette1, 0)
[/#0000ff]
 
Merci d'avance
 :D

Reply

Marsh Posté le 29-03-2005 à 18:18:44   

Reply

Marsh Posté le 29-03-2005 à 18:45:44    

Reply

Marsh Posté le 29-03-2005 à 18:57:22    

Comme je suis un debutant, je ne sais pas comment ecrire le code. J'ai essayer debut un bon bout pis j'ai toujours plein d'erreur.  
 
Pouvez vous m'aider svp.

Reply

Marsh Posté le 30-03-2005 à 01:55:07    

On peut t'aider si tu n'EXIGES pas.
 
Donne-nous le code que tu as écrit et les erreurs qu'il donne (en mentionnant la ligne qui est pointée par l'erreur.


---------------
Si on vous donne une info qui marche, DITES-LE!!!! ------ Si vous trouvez seul, AUSSI, votre solution peut servir à d'autres! ------ Je dois la majorité de mes connaissances à mes erreurs!
Reply

Marsh Posté le 30-03-2005 à 05:40:59    

Merci
L'erreur apparait à la premiere ligne du code.
 
Open "C:\Stagiaire\Macro_Excel_moulage\Fichier_temps_cuisson" For Input As #1
Input #1, temps_cuisson
Close #1
 
Control = 0
 
temps_recette1 = (Application.InputBox("Entrer le temps de la recette, si vous ne le connaissez pas et voulez seulement le graphique cliquez sur cancel ", "Temps de recette", temps_cuisson)) / 10
temps_recette = Round(temps_recette1, 0)
 
Open "C:\Stagiaire\Macro_Excel_moulage\Fichier_temps_cuisson" For Output As #1
Print #1, temps_cuisson
Close #1
 
If temps_recette = False Then GoTo Line2 Else GoTo Line1

Reply

Marsh Posté le 30-03-2005 à 06:55:17    

Et l'erreur est????


---------------
Si on vous donne une info qui marche, DITES-LE!!!! ------ Si vous trouvez seul, AUSSI, votre solution peut servir à d'autres! ------ Je dois la majorité de mes connaissances à mes erreurs!
Reply

Marsh Posté le 30-03-2005 à 10:44:17    

Comme tu as fait l'effort de chercher, je te propose ceci:
 

Sub Start()
 
  Dim sRet As String
  Dim iTempsRecette As Integer
  Dim iTempsCuisson As Integer
   
   
  If Dir("C:\Stagiaire\Macro_Excel_moulage\Fich_tps_cuisson" ) = "" Then
    iTempsCuisson = 0
  Else
    Open "C:\Stagiaire\Macro_Excel_moulage\Fich_tps_cuisson" For Input As #1
    Input #1, iTempsCuisson
    Close #1
     
  End If
   
  sRet = InputBox("Entrer le temps de la recette" & vbCrLf & _
            "Si vous ne le connaissez pas et voulez seulement " & _
            "le graphique cliquez sur cancel ", _
            "Temps de recette", iTempsCuisson)
  If Not sRet = "" Then
    iTempsRecette = CInt(sRet / 10)
    Open "C:\Stagiaire\Macro_Excel_moulage\Fich_tps_cuisson" For Output As #1
    Print #1, sRet
    Close #1
  End If
End Sub


Message édité par AlainTech le 30-03-2005 à 10:46:34
Reply

Marsh Posté le 30-03-2005 à 16:50:18    

Merci ca marche à merveille, je pense qu'initialement mon probleme était que je n'avait pas de donnée sauvgardée. J'ai une petite question pour savoir si c'est possible. Est-il possible, que ma macro demarre automatiquement (sans shortcut key) pour seulement un dossier précisément contenant mes fichiers à étudier.
 
Merci encore

Reply

Marsh Posté le 30-03-2005 à 17:01:51    

Dans ton projet, tu vas dans ThisWorkbook et dans le code, tu ouvres Workbook et Open.
Tu y mets le contenu de la sub ci-dessus.

Reply

Marsh Posté le 30-03-2005 à 17:45:46    

Je suis desole je ne comprend pas ce que tu veux que je fasse  (tu ouvres Workbook et Open.)  
Moi j'utilise un autre programme qui simule une production à l'intérieur duquel je collecte mes données et les enregistres dans un fichier excel dans un dossier. A la fin du programme (du cycle de production) j'ouvre automatiquement le fichier excel. J'aimerais que ma macro demarre automatiquement des l'ouverture du fichier.  
 
Merci encore pour ton aide tres précieuse
 

Reply

Marsh Posté le 30-03-2005 à 17:45:46   

Reply

Marsh Posté le 30-03-2005 à 20:14:07    

up

Reply

Marsh Posté le 30-03-2005 à 21:35:55    

Réponse demain, je vais me coucher. Je me lève à 5h!

Reply

Marsh Posté le 31-03-2005 à 07:50:04    

Le code ci-dessus, il est bien dans un classeur Excel???
Où l'as-tu mis? Dans un module ou dans un bouton?
Où que ce soit, VBA s'est bien ouvert pour que tu puisses le taper (ou coller).
Quand tu es dans VBA, à gauche, tu vois ton projet et là, sous le nom de ton classeur, il y a ThisWorkbook.
 
Si tu veux que je comprenne mieux ce que tu fais, envoie-moi un MP et je te donnerai mon adresse mail pour m'envoyer tes fichiers.
 
Edit -> Faute d'ortografe  :ange:


Message édité par AlainTech le 31-03-2005 à 07:51:06

---------------
Si on vous donne une info qui marche, DITES-LE!!!! ------ Si vous trouvez seul, AUSSI, votre solution peut servir à d'autres! ------ Je dois la majorité de mes connaissances à mes erreurs!
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed