Discussion :

[Marc31]

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 :

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
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

[Kimy_Ire]

Bonjour Marc31,

Voici un exemple :

Code :

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

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 !

Cordialement,
Kimy

[Marc31]

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

[Philippe Tulliez]

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

Code :

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

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) .

[Marc31]

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 :

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

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

[Kimy_Ire]

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 :

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

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.

Cordialement,
Kimy

[Philippe Tulliez]

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

Code :

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

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

renverra

Code :

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

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

A adapter avec les paramètres