Modification de formule

Bonjour
Voici mon probleme je recupere des valeurs venant d'un automate l'expression pour la recuperation de celle ci ce presente comme ce ci

Code:

---

1 2	ActiveCell.FormulaR1C1 = _ "=ATGetTimeVal(""PC4-K74-GENE.SEQ"", ""FRCGS021"", """", ""13/05/2007 12:00:00"", 16, 0, 0, 1)"

---

Je souheterai pouvroi grace a une macro sur excel pouvoir modifier la formule afin de pouvroi selectionner exactement le jour l'heure l'année l'heure et les minute sachant quand mettant
Exemple :

Code:

---

1 2 3 4

Dim temps as integer temps = 14   "=ATGetTimeVal(""PC4-K74-GENE.SEQ"", ""FRCGS021"", """", ""temps/05/2007 12:00:00"", 16, 0, 0, 1)"

---

il m'affiche une valeur erroné... pour que la formule marche il faut kel arrive sur la cellule exactement avec les bon chiffre voulu, si quelqu'un pourrai m'aider sa me facileterai grandement la vie ..

Bonjour,

Dans ton exemple il faut remplacer "13/05/2007" par " & temps & "/05/2007"

Code:

---

1 2 3

Dim temps as Integer ActiveCell.FormulaR1C1 = _ "=ATGetTimeVal(""PC4-K74-GENE.SEQ"", ""FRCGS021"", """", "" & temps & "/05/2007 12:00:00"", 16, 0, 0, 1)"

---

A verifier car il y a beaucoup de " donc peut etre il en manque un (il faut ouvrir et fermer a chaque fois je n'ai pas compte les paires).

Bon mon prog marche tré bien merci Rmais j'ai un petit souci apres celui la

voici mon programme en cours qui marche que j'ai affecté a un bouton:

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

Private Sub Temps_Click()   msg = "Voulez-vous Choir le temps voulu?" ' Définit le message. Style = vbYesNo + vbDefaultButton1 'Définit les boutons. Title = "Espace temps" ' Définit les titres. Réponse = MsgBox(msg, Style, Title) If Réponse = vbYes Then ' Vous avez choisi le bouton " Oui ". Dim mois, jour, année, heure, minute As Integer   jour = Range("av27") mois = Range("av28") année = Range("av29") heure = Range("av30") minute = Range("av31")   ActiveCell.FormulaR1C1 = _ "=ATGetTimeVal(""PC4-K74-GENE.SEQ"", ""FRCGS021"", """", """ & jour & "/" & mois & "/" & année & " " & heure & ": " & minute & ":00"", 16, 0, 0, 1)"   End If End Sub

---

Le problème existant c'est qu'il me genere le nombre récuperé de facon aléatoire dans des cellule diférentes a chaque utilisation, pourai t'on pas lui affecter une cellule fixe de facon pour moi d'utliser cette valeur pour faire autre chose

Merci D'avance

Les nombres devraient etre ceux que tu entres dans les cases AV28 a AV31, as tu essaye de mettre a la suite

Code:

---

1 2 3

msgbox(mois) msgbox(annee) ...

---

pour voir ce qu'il y a dans ces variables ? Ca aiderait bien a comprendre ce qui cloche.

Remplace ActiveCell par une adresse fixe.