Utilisation de l'étoile sous VBA

Version imprimable

10/08/2009, 10h14
willyol3

Utilisation de l'étoile sous VBA
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:

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...
10/08/2009, 10h20
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
10/08/2009, 10h24
willyol3

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

Tu boucles sur les classeurs ouvert

Code:

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

10/08/2009, 11h09
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...
10/08/2009, 11h38
LeForestier

Bonjour tous,
ton Windows("Export_*.xls").Activate
il est ouvert ?
A+
10/08/2009, 11h45
willyol3

Oui, il est ouvert.
10/08/2009, 11h49
jfontaine

Peux tu nous faire voir ton code et la ligne qui plante
10/08/2009, 11h52
LeForestier

Essaye en remplacant la ligne

Code:

wrk.Sheets("Page 1").Select

par

Code:

wrk.Sheets("Page 1").Activate

des fois le problème est là
Et vérifier que le nom de la feuille est correct, souvent un espace presqu'invisible plante le truc.
A+
Edit:
Bonjour Jérôme,

Citation:

"La méthode select de la classe worksheet a échoué".

Si mes souvenirs sont bon ont ne peu pas sélectionner une feuille dans un classeur qui n'est pas actif.
A+

Ben là je ne comprends pas... J'ai une nouvelle erreur, comme quoi, l'indice n'appartient pas à la sélection.

Je vous colle l'ensemble de mon code. Tout fonctionne. En fait au départ je demandais à l'utilisateur de copier coller lui même la feuille dans l'anafi. Mais après réflexion je pensais pouvoir automatiser cette copie. Plus facile à dire qu'à faire...

L'intégralité du code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
Sub Import_Diane()
 
' Macro permettant l'import de données Diane sur Anafi Excel
' V1.0 07/08/2009 - WJ
 
'Copier coller de la Page 1 Export dans Anafi
    Dim wrk As Workbook
    For Each wrk In Application.Workbooks
        If Left(wrk.Name, 9) = "DIANE-NEO" Then
            wrk.Sheets("Page 1").Activate
            wrk.Sheets("Page 1").Copy Before:=Workbooks("ANAFI DIANE1").Sheets("Menu")
        End If
    Next
 
' Insertion Colonne en A1
    Sheets("Page 1 (2)").Select
    Application.Goto Reference:="R2C1"
    Selection.EntireColumn.Insert
 
' Mise en Forme de la feuille Importée
    Sheets("Page 1 (2)").Select
    Cells.Select
    Selection.UnMerge
 
    Columns("H:P").Select
    Selection.Delete Shift:=xlToLeft
    Columns("D:I").Select
    Selection.Insert Shift:=xlToRight
 
    Columns("M:M").Select
    Selection.Copy
    Columns("D:D").Select
    ActiveSheet.Paste
    Columns("L:L").Select
    Application.CutCopyMode = False
    Selection.Copy
    Columns("F:F").Select
    ActiveSheet.Paste
    Columns("K:K").Select
    Application.CutCopyMode = False
    Selection.Copy
    Columns("H:H").Select
    ActiveSheet.Paste
    Columns("E:E").ColumnWidth = 1
    Columns("G:G").ColumnWidth = 1
    Columns("I:I").ColumnWidth = 1
    Columns("K:Q").Select
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlToLeft
    Columns("B:B").ColumnWidth = 46.43
    Columns("C:C").ColumnWidth = 3.43
    Range("a1:a1").Select
 
'Afficher les feuilles invisibles
    Sheets("Page 1").Visible = True
    Sheets("Liasse Diane").Visible = True
 
'Copier de la feuille importée sur la feuille Diane cachée et suppression feuille importée
    Sheets("Page 1 (2)").Select
    Cells.Select
    Selection.Copy
    Sheets("Page 1").Select
    Cells.Select
    ActiveSheet.Paste
    Sheets("Page 1 (2)").Select
    Application.CutCopyMode = False
    ActiveWindow.SelectedSheets.Delete
 
'Copier la liasse diane sur liasse visible
    Sheets("Liasse Diane").Select
    Range("C10:J276").Select
    Selection.Copy
    Sheets("liasse").Select
    Range("C10").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
 
'Cacher les feuilles
    Sheets("Page 1").Visible = False
    Sheets("Liasse Diane").Visible = False
 
 End Sub

Ca plante soit :
- ligne 4 : méthode select de la classe worksheet a échoué. A priori plus de problème depuis que j'ai remplacé le Select par Activate.
- ligne 5 : l'indice n'appartient pas à la sélection

10/08/2009, 12h13
LeForestier

Tu dois mettre .xls
ANAFI DIANE1.xls
EDIT:
Je vois aussi que tu à changer...

Code:

if left(wrk.Name,7)="Export_" then

Et que maintenant tu test un nom de classeur et que tu copie dans le même ?
Quel est le nom du classeur dans lequel esr situèe la macro ?
10/08/2009, 12h16
jfontaine

la feuille ANAFI DIANE1 est elle ouverte?

Peux tu mettre en rouge les lignes qui plante plutot que les numeros
10/08/2009, 12h17
willyol3

Oui je suis débile, je suis vraiment désolé, je viens de m'en rendre compte à l'instant....