Ouvrire le Nème enregistrement

Staple1600

XLDnaute Barbatruc

• 13 Octobre 2008

• #2

Re : Ouvrire le Nème enregistrement

Bonsoir

Code:

Sub test_I()
Dim chemin$, nom$
'ici pour [B]véhicule octobre 2008.xls[/B]
'chemin = "C:\Documents and Settings\Ordi\Mes documents\excel\"
chemin = "C:\Temp\"
nom = "véhicule " & MonthName(Month(Date)) & Space(1) & Year(Date) & ".xls"
Workbooks.Open (chemin & nom)
End Sub

Code:

Sub test_II()
' ic pour [B]véhicule 10 2008.xls[/B]
Dim chemin$, nom$
chemin = "C:\Documents and Settings\Ordi\Mes documents\excel\"
nom = "véhicule " & Month(Date) & Space(1) & Year(Date) & ".xls"
 Workbooks.Open (chemin & nom)
End Sub

 

Dernière édition: 13 Octobre 2008

Vote positif 0 Vote négatif

C

cj welch

XLDnaute Occasionnel

• 13 Octobre 2008

• #3

Re : Ouvrire le Nème enregistrement

salut staple1600,

merci pour ton aide

je ne sait pas si j'ai bien rentré le code mais j'ai crée 2 fichiers véhicule:
véhicule octobre 2008
véhicule novembre2008

Quand je lance la macro c'est le fichier d'octobre qui s'ouvre alors que moi j'aurais voulu le fichier de novembre.

A+

 

Dernière édition: 13 Octobre 2008

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 14 Octobre 2008

• #4

Re : Ouvrire le Nème enregistrement

Bonsoir cj welch, Staple,

Voici une macro qui fait un balayage à partir de décembre 2027 jusqu'à janvier 2008 et qui normalement doit ouvrir le dernier fichier en date dans cette période :

Code:

Sub véhicule()
Dim i As Integer
For i = 240 To 1 Step -1
On Error Resume Next
Workbooks.Open "C:\Documents and Settings\Ordi\Mes Documents\excel\Véhicule " & _
Format(DateAdd("m", i, "1/12/2007"), "mmmm yyyy") & ".xls"
If Err = 0 Then Exit For
On Error GoTo 0
Next
End Sub

Bonne nuit et A+

Edit : on peut bien sûr réduire la période pour diminuer le temps de calcul. Si l'on est sûr que l'année du dernier fichier ne dépasse pas l'année en cours + 1, on peut écrire :

Code:

Sub véhicule()
Dim i As Integer
For i = 23 To 0 Step -1
On Error Resume Next
Workbooks.Open "C:\Documents and Settings\Ordi\Mes Documents\excel\Véhicule " & _
Format(DateAdd("m", i, "1/1/" & Year(Date)), "mmmm yyyy") & ".xls"
If Err = 0 Then Exit For
On Error GoTo 0
Next
End Sub

 

Dernière édition: 14 Octobre 2008

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 14 Octobre 2008

• #5

Re : Ouvrire le Nème enregistrement

Re



Cela fonctionne si le nom des fichiers a la même structure

véhiculeESPACEmoisESPACEannée.xls

et la macro ouvre le fichier avec le nom du mois en cours.

 

Dernière édition: 14 Octobre 2008

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 14 Octobre 2008

• #6

Re : Ouvrire le Nème enregistrement

Salut Staple, comme moi de bon matin,

cj welch à dit:

Je me demande s'il est possible d'ouvrire le dernier fichier enregistré a partir d'un bouton.

Cliquez pour agrandir...

Notre ami parle bien du dernier fichier enregistré.

Bonne journée

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 14 Octobre 2008

• #7

Re : Ouvrire le Nème enregistrement

Bonjour job75


Oui je sais


Mais je lui expliquait pourquoi mon code en fonctionnait pas chez lui


Pourquoi ne pas utiliser la propriéte LastSaved ou LastModified dans ce cas?

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 14 Octobre 2008

• #8

Re : Ouvrire le Nème enregistrement

Re Staple,
Tu as raison, mais je crois que notre ami veut en fait le dernier fichier créé. Bon on verra.
A+

 

Vote positif 0 Vote négatif

C

cj welch

XLDnaute Occasionnel

• 14 Octobre 2008

• #9

Re : Ouvrire le Nème enregistrement

salut job75, staple1600,

Merci ça fonctionne super bien.

j'ai une dernière petite demande plus simple :
Et si je voulais ouvrir un dossier appelé facture qui contient des factures classés par mois. quel code faut il ? j'ai essayé avec l'enregistreur mais cela na pas marché.

Merci de votre aide

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 14 Octobre 2008

• #10

Re : Ouvrire le Nème enregistrement

Bonjour cj welch,

Si les noms des feuilles sont du genre "novembre 2008", il faut d'abord simplement ouvrir le classeur, puis faire un balayage sur les feuilles, par exemple en utilisant la 2ème solution que j'ai indiquée :

Code:

Sub facture()
Dim i As Integer
Workbooks.Open "C:\Documents and Settings\Ordi\Mes Documents\excel\facture.xls"
For i = 23 To 0 Step -1
On Error Resume Next
Sheets(Format(DateAdd("m", i, "1/1/" & Year(Date)), "mmmm yyyy")).Activate
If Err = 0 Then Exit For
On Error GoTo 0
Next
End Sub

Mais normalement vos feuilles seront classées dans l'ordre des mois, et il suffira alors d'activer la dernière feuille :

Code:

Sub facture()
Workbooks.Open "C:\Documents and Settings\Ordi\Mes Documents\excel\facture.xls"
Sheets(Sheets.Count).Activate
End Sub

A+

 

Vote positif 0 Vote négatif

C

cj welch

XLDnaute Occasionnel

• 14 Octobre 2008

• #11

Re : Ouvrire le Nème enregistrement

salut job 75,

merci encore une fois pour ton aide.

j'ai essayé le 2ème code et malheureusement j'ai eu un message d'erreur. j'ai bien vérifié le chemin plusieurs fois.

A+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 14 Octobre 2008

• #12

Re : Ouvrire le Nème enregistrement

Aucune raison que ça bug, sauf s'il y a une faute d'orthographe dans le chemin d'accès. Ne pas oublier le s des 2 Sheets. A+

 

Vote positif 0 Vote négatif

C

cj welch

XLDnaute Occasionnel

• 14 Octobre 2008

• #13

Re : Ouvrire le Nème enregistrement

salut job,

je viens de faire un nouvelle essai et j'ai encore ce message d'erreur. Sur le chemin il n'y a pas d'erreur car j'ai fait du copier coller.

je me suis peut etre mal exprimé. je récap

Dans un dossier qu'on appèlera facture , j' ai des fichiers appellés
facture octobre 2008, facture novembre 2008, etc
Quand j'actionne le bouton, je voudrais que le dossier facture s'ouvre et laisse apparaitre toutes les fact de ce dossier.

dans l'attente de te lire

 

Vote positif 0 Vote négatif

B

Bigfish

XLDnaute Occasionnel

• 14 Octobre 2008

• #14

Re : Ouvrire le Nème enregistrement

Salut,

une fois le dossier facture ouvert, que doit faire l'utilisateur ?

A+ 🙂

 

Vote positif 0 Vote négatif

C

cj welch

XLDnaute Occasionnel

• 14 Octobre 2008

• #15

Re : Ouvrire le Nème enregistrement

salut,

il doit selectionner un fichier a ouvrir et doit pouvoir l'ouvrire s'il le souhaite

A+

 

Vote positif 0 Vote négatif