changement de variable dans du code

Bonjour à tous,

J'aimerais savoir si c'est possible de changer des valeurs dans le code vba, sans avoir à rentrer dans l'onglet developpeur.
J'ai mis un petit exemple ci-dessous.
En fait chaque mois, je dois rentrer dans le code pour changer Fevrier 2015 et Mars 2015. Je souhaite changer ses variablesdans une feuille excel pour plus de simplicité.
Est ce possible?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Private Sub CommandButton1_Click()   Dim Fichier As String Dim WinXp As New clsWindowsExporer   Fichier = Dir("D:\PREV\Fichiers\*Fevrier15.doc")   While Fichier <> ""   WinXp.Copie_Fichier "D:\PREV\Fichiers\" & Fichier, "D:\PREV\Fichiers\" & Replace(Fichier, "Fevrier15", "Mars15") WinXp.Supprimer_Fichier "D:\PREV\Fichiers\" & Fichier   Fichier = Dir Wend   End Sub

---

Bonjour Marc31,

Voici un exemple :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Sub CommandButton1_Click()   Dim ma_variable As String Dim Fichier As String Dim WinXp As New clsWindowsExporer   'Tu places dans la range A1 de la FeuilX ce que tu veux changer. ma_variable = Worksheets("FeuilX").Range("A1") ma_variable = "D:\PREV\Fichiers\*" & ma_variable & ".doc"   Fichier = Dir(ma_variable)   While Fichier <> ""

---

Voila. N'hésite pas à revenir vers moi ! :ccool:

Cordialement,
Kimy

Merciii pour ta rapidité et ton efficacité! Bonne journée

Bonjour,
En utilisant par exemple des cellules nommées
Exemple

Code:

---

1 2	Const fichier As String = "c:\mesdocuments\Facture février 15 .xls" MsgBox Replace(fichier, Range("oldDate").Text, Range("newDate").Text)

---

Pour l'exemple, j'utilise la propriété Text au lieu de Value parce-que le nom de ton fichier est le nom d'un mois suivi des deux derniers chiffres de l'année or si tu encodes Février 15 dans une cellule d'excel, il risque de le transformer en date et donc il est préférable d'entrer 1/1/2015 et le formater (format personnalisé) mmmm aa et la propriété Text te renverra la valeur formatée alors que Value renverra le n° de série de la date.
Attention toutefois que le format mmmm renvoie le mois en minuscule.
Pour que Février 15 soit considérée comme une valeur alphanumérique, tu peux l'encoder en le faisant précéder par l'apostrophe. la propriété Value peut alors être utilisée sans problème (elle peut aussi être omise car c'est la propriété par défaut de l'objet Range) .

Merci pour les infos et le mois que je dois changer ce retrouve deux fois en fait dans mon chemin.....
C'est possible de mettre deux variables?

Code:

---

1 2	Fichier = Dir("D:\PREVE\Fevrier2015\Coms\Fichiers\*Fevrier15.doc") ma_variable = "D:\PREV\" & ma_variable & "2015\Fichiers\*" & ma_variable & ".doc"

---

Marc31,

Si tu as toujours le même formalisme à savoir :
"D:\PREVE\" Fevrier2015 "\Coms\Fichiers\*" Fevrier15 ".doc"

tu peux partir sur quelque chose du type :

Code:

---

1 2 3 4 5

ma_variable = Worksheets("FeuilX").Range("A1")   ma_variable = "D:\PREVE\" & Left(ma_variable, Len(ma_variable) - 2) & "20" & Right(ma_variable, 2) & "\Coms\Fichiers\*" & ma_variable & ".doc"   Fichier = Dir(ma_variable)

---

Mais c'est "grossier". ^^
Place "Fevrier15" dans la cellule concernée.

N'hésite pas à revenir vers moi. :ccool:

Cordialement,
Kimy

Bonjour,
La fonction Replace modifie tous les éléments de même orthographe d'une chaîne de caractères.
Ainsi

Code:

---

1 2 3 4

Dim txt$ txt = "D:\PREVE\Fevrier2015\Coms\Fichiers\*Fevrier15.doc" txt = Replace(txt, "Fevrier", "Mars") Debug.Print txt

---

renverra

Code:

---

D:\PREVE\Mars2015\Coms\Fichiers\*Mars15.doc

---

A adapter avec les paramètres

Merci ça marche nickel!!!!! j'aimerais bien avoir votre niveau....Bonne journée et encore merci