Ouvrire le Nème enregistrement

[cj welch]

Bonsoir,

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

j'ai une feuille de commande avec un bouton et lorsque j'appuis sur ce bouton, j'aimerais que le dernier enregistrement s'ouvre. Le nom du fichier est identique pour tous les enregistrement avec comme seul difference le mois + l'année (Exemple : véhicule octobre 2008).

Si qlqu'un peut m'aider a completer mon code, si ma demande est possible, ça m'aiderais beaucoup.


Sub véhicule()

' Workbooks.Open Filename:= _
"C:\Documents and Settings\Ordi\Mes documents\excel\Véhicule octobre 2008"

End Sub

merci de votr aide

A+

 

[Bigfish]

Re : Ouvrire le Nème enregistrement

Salut,

tu peux utiliser la fonction suivante en la placant dans un module

Function MyFileDialog(Optional defaultFile As String, Optional FilePickerTitle As String) As String
Dim Fichier As String
If MyFileDialog = "" Then PickerFileTitle = "Select file... "
With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = False 'limite la selection a un fichier
.Title = PickerFileTitle
.InitialFileName = defaultFile
If .Show = -1 Then
MyFileDialog = .SelectedItems(1)
Else
MyFileDialog = .InitialFileName
End If
End With
End Function

puis l'utiliser comme ceci :

Sub demo()
Dim MonFichier As String, TestFichier as string
MonFichier = MyFileDialog("C:\Documents and Settings\Ordi\Mes Documents\excel\*.xls")
TestFichier = Dir(MonFichier)
if Not TestFichier = "" Then Workbooks.Open Filename:=MonFichier
End Sub

A+ 🙂

 

[job75]

Re : Ouvrire le Nème enregistrement

Bonsoir cj welch, Bigfish,

Désolé j'avais mal compris, je croyais que vous vouliez ouvrir un classeur nommé facture.xls...! Si vous voulez ouvrir un dossier nommé facture, la macro est très simple :

Sub facture()
ChDir "C:\Documents and Settings\Ordi\Mes Documents\excel\facture"
SendKeys "^o"
End Sub

Bonne fin de soirée et A+

 

[cj welch]

Re : Ouvrire le Nème enregistrement

Salut job,

merci de ta patience

j'ai rentré le code, et un message d'erreur me dit chemin d'accès introuvable.
le chemin d'accès que j'ai rentré est juste, j'ai fait un copier coller depuis la fenetre propriété du dossier.
Si les nom des fichiers a l'intérieur du dossier son différent cela change t'il quelque chose ?

dans l'attente de te lire

A+

 

[Staple1600]

Re : Ouvrire le Nème enregistrement

Bonjour


Peux-tu faire la manip suivante

Ouvre l'invite de commande Ms-Dos
(Démarrer/Exécuter: cmd.exe /k

Saisir la fenêtre qui vient de s'ouvrir
(à la fin de la saisie de chaque ligne appuie sur ENTER)
cd "C:\Documents and Settings\Ordi\Mes documents\excel\"
dir /S /AD /B >c:\dossiers.txt
exit

Enfin zippes le fichier dossiers.txt en le zippant et poste le ici

 

[cj welch]

Re : Ouvrire le Nème enregistrement

Salut Staple1600,
je viens de faire ce que tu m"as demandé, seulement l'accès est refusé.
Pourtant le fichier n'est pas protégé.

A+

 

[cj welch]

Re : Ouvrire le Nème enregistrement

salut job, staple,

je viens d'essayer le dernier code de job sur un autre ordi et la ça marche.
Pourquoi ça n'as pas fonctionné sur l'autre ? bonne question !

Merci pout tous

A+