Discussion :

[willyol3]

Bonjour à tous les développeurs,

Je viens vers vous afin de savoir si le caractère étoile peut fonctionner dans les noms de feuille.

Je fais une petite macro toute simple qui copie le contenu d'un classeur importé d'Internet (non enregistré - en fichier temp) dans un autre classeur. Le problème, c'est que le nom de la feuille dispose d'un N° qui change à chaque fois. Exemple : EXPORT_1.xls et le n° est icrémenté à chaque fois.

Voici le code que je pensais utiliser :

Code :

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

1
2
3
Windows("Export_*.xls").Activate
    Sheets("Page 1").Select
    Sheets("Page 1").Copy Before:=Workbooks("ANAFI DIANE1").Sheets(1)

Mais il semblerait qu'il y'ait un problème avec l'étoile. Merci d'avance pour vos réponses...

[jfontaine]

bonjour,

Le caractère * n'a pas cette utilisation dans VBA.

Pour ton problème, il te faut tester la partie gauche des classeurs ouverts pour voir si le nom correspond

[willyol3]

Merci de ta réponse aussi rapide. Là je t'avouerai que je n'ai vraiment aucune idée de comment faire ceci...

[jfontaine]

Tu boucles sur les classeurs ouvert

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Dim wrk As Workbook
 
For Each wrk In Application.Workbooks
    if left(wrk.Name,7)="Export_" then
           wrk.Sheets("Page 1").Select
           wrk.Sheets("Page 1").Copy Before:=Workbooks("ANAFI DIANE1").Sheets(1)
    End If
 
Next

Je n'ais pas testé le code, mais ca doit être quelques chose comme ca

[willyol3]

Une nouvelle fois merci...

Alors pour l'instant j'ai encore une erreur d'exécution... "La méthode select de la classe worksheet a échoué".

Je suis en train de chercher l'erreur... Si tu as une idée...

[LeForestier]

Bonjour tous,
ton Windows("Export_*.xls").Activate
il est ouvert ?
A+