Discussion :

[scofield69]

Bonjour,

J'ai a peu près le même problème que dans cette discussion,

Je voudrais insérer en base des fichiers en fonction de leur numéro de semaine.

Ces fichiers vont de la semaines S1 à S50.

Je n'arrive pas à trouver de programme pour cela!

Merci de votre aide!!

[edelweisseric]

Bonjour à tous
Bonjour scofield69

Pas très bien compris ton pb,

Bonjour,.....Je voudrais insérer en base des fichiers en fonction de leur numéro de semaine.Ces fichiers vont de la semaines S1 à S50....

mais pour avoir le N° de semaine :

Code :

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

1
2
3
4
5
Sub test()
Dim NumSem As Byte
NumSem = DatePart("ww", Date, 2, 2)
Range("A1").Value = "S" & " " & NumSem
End Sub

A la place de Range("A1")..... tu écris :

Code :

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

nomfichier = "blabla" & "S" & " " & NumSem

Eric

[scofield69]

Merci pour ton aide!

Le seul hic c'est que je n'ai pas besoin de calculer le numéro de la semaine en cours, je le connais déjà car il est dans mon fichier.

Ce que je veux, c'est incrémenter dans ma base le numéro de semaine associé a sa valeur..

[ouskel'n'or]

Code :

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

1
2
NoSemainePrécédente = Val(Mid("S5", 2, Len("S5") - 1))
SemaineSuivante = "S" & NoSemainePrécédente +1

Maintenant, il ne te reste plus qu'à trouver la dernière colonne de la ligne 1 pour ajouter le N° de semaine suivant au n° de semaine précédent

Edit
Allez, je suis brave

Code :

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

1
2
DerniereColonne = Cells(1, Rows(1).Cells.Count).End(xlToLeft).Column
Cells(1, DerniereColonne + 1) = "S" & Val(Mid(Cells(1, DerniereColonne), 2, Len(Cells(1, DerniereColonne)) - 1)) + 1

[scofield69]

C'est exactement ce qu'il me fallait!

Merci beaucoup!

[AlainTech]

Si ton problème est résolu, un petit clic sur ?