[E-03] macro d'ouverture de fichier

Version imprimable

29/01/2009, 08h52
meumeu73.1

[E-03] macro d'ouverture de fichier

Bonjour à tous,

Je souhaiterais créer une macro qui me permettrait d'ouvrir un fichier dans un répertoire bien spécifique, mais avec un nom de fichier qui aurait toujours les 8 mêmes premiers caractères par contre les suivants peuvent être différents d'un mois à l'autre, ensuite, je dois faire des copier coller avant de refermer ce même fichier.

Pour tout ce qui est copier-coller, je n'ai pas de problème, en ce qui concerne les ouvertures et fermeture du fichier, je ne vois pas du tout comment faire.

Merci pour votre aide.

Meumeu73.1
29/01/2009, 10h25
Gorfael

Salut meumeu73.1 et le forum
Tu lances une macro apprentissage (Menu Outils>>Macro>>Noucelle Macro) Tu ouvres et tu fermes ton fichier => ça te donnera la syntaxe à utiliser.

Pour le nom de ton fichier, comment comptes-tu trouver la partie qui est changeante ? mois en cours, boîte de dialogue, cellule dans une feuille ?
A+
29/01/2009, 10h56
meumeu73.1

Merci,

Pour les commandes Ouverture - Fermeture, je n'ai pas de problème particulier, par contre, c'est pour la selection du fichier, il aura automatiquement 8 caractère fixe au début du nom du fichier, par contre , il se peut qu'avant l'extension .xls, il y ait des caractère ou chiffres, qui peuvent être de tout et n'importe quoi.

et d'un mois sur l'autre cela peut changer. C'est surtout pour éviter le renommage de fichier.

Par avance merci.
29/01/2009, 15h16
-={-_-}=-

Citation:

Envoyé par meumeu73.1

il aura automatiquement 8 caractère fixe au début du nom du fichier, par contre , il se peut qu'avant l'extension .xls, il y ait des caractère ou chiffres, qui peuvent être de tout et n'importe quoi.

et d'un mois sur l'autre cela peut changer.

pourrais-tu nous donner quelques exemples de noms de fichier pour que l'on voit bien ce qui est fixe et ce qui est variable?
29/01/2009, 15h26
meumeu73.1

par exemple : COOLCOOL98209025.xls

la partie Fixe COOLCOOL

Il y a plus d'un an j'avai la même problèmatique que toi.
Et j'ai donc résolu mon problème de la sorte :

Code:

1
2
3
4
5
6
7
8
9
10
11
Set FSO = CreateObject("Scripting.FileSystemObject")
 
Set le_dossier = FSO.getfolder(MonArborescence)
 
    For Each fichier In le_dossier.Files
        If UCase(fichier.Name) Like "COOLCOOL*.XLS" Then
            NomFichier = fichier.Name
            recup = True
            Exit For
        End If
    Next fichier

Je pense que tu peux t'en resservir mais il faudra surement le réadapter

29/01/2009, 22h10
PPz78

Comment souhaites tu faire le choix du fichier parmi tous ceux qui sont présents dans le répertoire ?

Pourquoi ne pas ouvrir une fenêtre de choix dans le répertoire ad hoc?

A+

Bonjour,

si j'ai bien compris, tous tes fichiers se trouvent dans un même dossier, ont un nom qui commence par COOLCOOL et une extension xls.

Dans un tel cas de figure : ===>> utilisation simple et légère de la fonction Dir !
Ainsi (avec un bouton de commande Command1 et une Listbox ListBox1 :
Code:

1 2 3 4 5 6 7 8 9 Private Sub Command1_Click() Dim monrep As String, mesfics As String monrep = "d:\monoutil\" ' mets ici ton répertoire (dossier) à toi. mesfics = Dir(monrep & "COOLCOOL*.XLS", vbNormal Or vbHidden) Do While mesfics <> "" Listbox1.AddItem monrep & mesfics mesfics = Dir Loop End Sub
Il ne te restera plus qu'à cliquer sur l'élément de ton choix (tu sais déjà faire celà, je pense) pour en extraire le chemin complet.