Discussion :

[meumeu73.1]

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

[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+

[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.

[-={-_-}=-]

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?

[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 :

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

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