Discussion :

[djepi]

Bonjour à tous et toutes,

je souhaite automatiser la mise en forme de fichiers que je reçois chaque mois. Je copie/colle des parties de ces fichiers "bruts" vers des fichiers "mis en forme". Comme je suis ultra débutant j'ai enregistré une macro que je vous copie ci-dessous:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub test()
'
' test Macro
'
 
'
    Windows("acc juin 2011.xls").Activate
    Range("A1:H13").Select
    Selection.Copy
    Application.WindowState = xlMinimized
    Windows("TRANSIT EN FORME.xls").Activate
    Sheets("acc").Select
    Range("A1").Select
    ActiveSheet.Paste
    Windows("achats juin 2011.xls").Activate
    Range("A1:G11").Select
    Application.CutCopyMode = False
    Selection.Copy
    Application.WindowState = xlMinimized
    Windows("TRANSIT EN FORME.xls").Activate
    Sheets("achats").Select
    Range("A1").Select
    ActiveSheet.Paste
End Sub

comme chaque mois le nom des fichiers source gangent, comment puis je faire pour que la macro ignore une partie du nom du fichier. Dans le cas ci-dessus ignorer "juin 2011" ou autre possibilité ne prendre que les 5 premières lettres du nom du fichier.

Pouvez vous m'aider? D'avance grand merci.
Djepi

Edité 25/09/11 à 23h36 Désolé pour le non emploi de la balise code.

[PolyAmide]

Je pense qu'un "like" avant la partie de nom du fichier qui t’intéresse peut être une solution.

Pour plus d'infos l'aide VBA est assez bien faite:

tape like sur n'importe quelle ligne de vba, surligne avec la souris et appuie sur F1

[Daniel.C]

Bonjour,

Essaie comme ceci (je n'ai pas retouché autrement ton code qui pourrait être simplifié) :

Code :

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

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
Sub test()
'
' test Macro
'
 
'
Dim w As Window, i As Integer
For i = 1 To Windows.Count
    If Left(Windows(i).Caption, 4) = "acct" Then
        Set w = Windows(i)
    End If
Next i
w.Activate
Range("A1:H13").Select
Selection.Copy
Application.WindowState = xlMinimized
Windows("TRANSIT EN FORME.xls").Activate
Sheets("acc").Select
Range("A1").Select
ActiveSheet.Paste
w.Activate
Range("A1:G11").Select
Application.CutCopyMode = False
Selection.Copy
Application.WindowState = xlMinimized
Windows("TRANSIT EN FORME.xls").Activate
Sheets("achats").Select
Range("A1").Select
ActiveSheet.Paste
End Sub

[Theze]

Bonjour,

Teste ce qui suit mais attention, les 2 feuilles du classeur copié doivent se nommer "acc" et "achats", adapte si ce n'est pas le cas car dans ta macro les feuilles copiées ne sont pas précisées :

Code :

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

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
 
Sub test()
 
    Dim Cl As Workbook
    Dim ClForme As Workbook
 
    Set ClForme = Workbooks("TRANSIT EN FORME.xls")
 
    'attention, pour le classeur copié, les feuilles se nomment "acc" et "achats"
    'à adapter
    For Each Cl In Workbooks
 
        If InStr(Cl.Name, "acc") <> 0 Then
 
            Cl.Worksheets("acc").Range("A1:H13").Copy ClForme.Worksheets("acc").Range("A1")
 
        End If
 
        If InStr(Cl.Name, "achats") <> 0 Then
 
            Cl.Worksheets("achats").Range("A1:G11").Copy ClForme.Worksheets("achats").Range("A1")
 
        End If
 
    Next cel
 
End Sub

Hervé.

[djepi]

merci Polyamide,Daniel et Theze pour vos réponses.

Polyamide, je suis encore trop débutant et je n'ai pas encore eu le temps nécessaire mais je n'ai pas su mettre la solution "like" en route.

Daniel j'ai essayé de faire fonctionner ta macro mais j'ai un message :erreur
d'exécution '13' incompatibilité de type et c'est la ligne set w=windows(i) qui est surlignée.

Thèse j'ai modifié le nom des feuilles comme tu le demandais et tout marche très bien. Grand merci. Si je peux encore poser une question j'aimerais que tu m'indiques comment il faut modifier ta macro si le fichier excel 'Transit en forme.xls' se trouve à l'adresse C:\mes documents\DEVOK alors que tous les autres fichiers excel (acc, achats, etc...) se trouvent à l'adresse C:\mes documents\DEVBRUT .
D'avance merci pour l'aide précieuse.
Djepi

[Theze]

Bonjour,

Donc, si j'ai bien compris, tu souhaiterais ouvrir les classeurs automatiquement ?
Indique nous avec assez de précisions la marche à suivre afin de ne pas te donner des réponses erronées qui finiront par semer la pagaille.

Hervé.