Discussion :

[bosk1000]

bonjour à tous

voila je crée un logiciel de comptabilité pour mon CE
et je cherche à crée un code qui ouvre un fichier dont le nom évolue en fonction de l'année

en 2009 le fichier sport s'appelle sport09.xls, il est dans le dossier compta09

en 2010 il y aura un fichier sport10.xls qui sera dans le fichier compta10.

donc comment puis-je généré ce code ?

[ucfoutu]

Bonjour,

Utilise alors la fonction Dir (à lire d'abord dans ton aide en ligne)
Elle permet la recherche de fichier dont le nom correspond à un "pattern" admettant des caractère génériques... appelons ce pattern toto

La seule question qui pourrait se poser alors à toi (après avoir bûché la fonction Dir) serait : comment établir ce pattern .
Soit n l'année considérée (qui peut être celle en cours, si tu utilise la fonction Year(Date) ===>>
Je vois que tu ne prends que les 2 derniers chiffres du millésime et je ne vais tout de même pas me lancer ici dans un exposé de comment extraire les deux derniers chiffres d'un string qui en contient 4 ! === >> soit titi la chaîne ainsi extraite ===>>
Ton "pattern" sera donc, dans ce cas :

Code :

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

Sport & titi & ".xls"

Voilà ....
Tu as tous les éléments entre tes mains, maintenant ...
Utilise-les et reviens en nous montrant ton essai de code si tu n'y parviens pas ...

EDIT :
Ah oui : pourquoi utiliser la fonction Dir ? ===>> pour vérifier si le fichier existe bien afin de :
===>> s'il existe : l'ouvrir
====>> s'il n'existe pas : msgbox d'avertissement et quitter la procédure.

[bosk1000]

je touche presque au but
voici ce que j'ai fait

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
 
Option Explicit
Private Sub CommandButton1_Click()
'Cette procédure teste si le fichier baule(year).xls" existe
Dim toto As Integer, titi As Integer
Dim Fichier As String
 
toto = Year(Date)
titi = Right(toto, 2)
 
    Fichier = Dir("c:\compta&titi&\baule&titi&.xls")
       If Fichier <> "" Then
        'le fichier existe
    Else
        'le fichier n'existe pas
    End If
Workbooks.Open Filename:="c:\compta&titi&\baule&titi&.xls"
End Sub

le seul probleme qui me reste est dans la composition du code du nom du fichier (ixci j'ai mis "baule")
en prenant titi comme variable pour l'annéee (09)
il me manque l'ecriture propre de la dernière ligne (qui me permetras aussi de ré-ecrire celle qui va avec la variable "fichier")

[ESVBA]

On écrit le texte littéral entre guillements (") une au début et une à la fin de la chaine texte puis on ajoute l'opérande (&) et enfin la valeur de la variable (titi). On répéte les autres parties.

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
Option Explicit
Private Sub CommandButton1_Click()
'Cette procédure teste si le fichier baule(year).xls" existe
Dim toto As Integer, titi As Integer
Dim Fichier As String
 
toto = Year(Date)
titi = Right(toto, 2)
 
    Fichier = Dir("c:\compta" & titi & "\baule" & titi & ".xls")
       If Fichier <> "" Then
        'le fichier existe
    Else
        'le fichier n'existe pas
    End If
Workbooks.Open Filename:="c:\compta" & titi & "\baule" & titi & ".xls"
End Sub

donnera

Code :

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

c:\compta09\baule09.xls

ESVBA

[bosk1000]

c'est étrange
il cherche "compta9\baule9" au lieu de "compta09\baule09" ??

[bosk1000]

j'ai trouvé
j'ai changé

Code :

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

1
2
 
Dim toto As Integer, titi As Integer

en

Code :

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

1
2
 
Dim toto As String, titi As String

impec

merci a vous

[ucfoutu]

Merci à toi d'être parmi nous, bosk1000
Tu viens de démontrer ta capacité à comprendre et à appliquer (j'ai personnellement beaucoup apprécié, en dépit de ta petite erreur de concaténation, maintenant réparée)

[bosk1000]

tes conseils m'ont fait progressé par moi mème en apprenant la fonction dir

tu m'as donné tout les bons indices
après il restait la syntaxe comme problème

merci a toi