Discussion :

[changul]

Bonjour a toutes, tous,

Mon projet avance...à petit pas.

J'ai créé avec les aides des pro, une macro qui transfère les données saisies à partir de cette dernière vers le fichier Excel Final qui fait plus de 9 Mo (cela évite d'ouvrir ce gros fichier pour le renseigner--quel fainéant !!!)

Ce fichier Final est Mensuel, cela veut dire que la date change, exemple : "2017-07-31 SERVERS List.xlsx", "2017-09-30 SERVERS List.xlsx", etc.....


Mon problème :

Je ne connais pas le code pour dire qu'il faut prendre le fichier "2017-07-31 SERVERS List.xlsx" au lieu de "2017-09-30 SERVERS List.xlsx" etc...
Existe il un code pour dire prendre ce fichier quelque la date du mois en cours par exemple ?


Voici le code macro:

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
Option Explicit

Dim ws As Workbook, wt As Workbook, ft As Worksheet, fs As Worksheet
Dim lgn&


Sub CopieListeServeurs()
    
    Set wt = ActiveWorkbook
    Set ft = wt.Sheets("Template")
    Workbooks.Open Filename:="C:\ABCDR\2017-06-30 SERVERS List.xlsx" <<== c'est ici que je souhaite ne plus mettre de date
    'Workbooks.Open Filename:="C:\Users\changu\Desktop\Nouveau dossier\SERVERS List.xlsx"
    Set ws = ActiveWorkbook
    Set fs = ws.Sheets(2)
   
    lgn = fs.Range("A" & Rows.Count).End(xlUp)(2).Row
       
    ft.Range("A2:DL" & ft.Range("A" & Rows.Count).End(xlUp).Row).Copy
    fs.Range("A" & lgn).PasteSpecial xlPasteAll

    Application.CutCopyMode = False
    ws.Close True
End Sub

Merci par avance pour votre aide
A vous lire
changul

[Roiser]

Salut,

normalement ce code devrait t'aider.

Dit moi si ça marche ! (tu a juste a remplecer la valeur "Tonchemin" normalement)

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
 
 
Sub Test()
 
Dim NomFichier As String
Dim MoisEnCours As Integer
'Sauvegarde le mois en cours (du système)
MoisEnCours = Format(Date, "dd/mm/yyyy")
MoisEnCours = Mid(MoisEnCours, 4, 2)
'Affiche le resultat dans un msgbox ( enlever " ' ")
'MsgBox MoisEnCours
'Recherche ton fichier
NomFichier = Dir(TonChemin & "*" & MoisEnCours & "*SERVERS List.xlsx")
'Affiche le nom du fichier dans un msgbox ( enlever " ' ")
'MsgBox NomFichier 
 
End Sub

[Jean-Philippe André]

Salut,

quelle regle permettrait de determiner la date qui servirait a reconstruire le chemin de ton fichier ?

[changul]

Bonjour Roiser,

Merci pour votre aide,

je vais tester et vous tiens au courant


@Jean-Philippe,
Excusez moi, je ne comprends pas votre question ....


Salutations
changul

[Jean-Philippe André]

Je pensais que tu voulais generer le dernier jour du mois, Est-ce bien le cas ?

du coup je complete la solution proposee par Roiser :

Code :

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

1
2
3
4
5
6
7
8
9
 
Dim Dt As Date
Dt= Date
'Si on prend le dernier jour du mois precedent
Dt = DateSerial(Year(Dt),Month(Dt),1)-1
'si du mois en cours
'Dt=DateAdd("m",1,Dt)
'Dt = DateSerial(Year(Dt),Month(Dt),1)-1
Workbooks.Open Filename:="C:\ABCDR\" & Format(Dt,"YYYY-MM-DD") & " SERVERS List.xlsx"

[changul]

Re,

Je vous tiens au courant.

Merci
changul

[changul]

Bonjour Jean-Philippe, Roiser,

Je viens de tester la macro, au fait il y a un souci (si je puis dire cela comme ça).

le script cherche le fichier 2017-06-30 SERVERS List.xlsx ? (voir copie écran)

Je pensais qu'il compléterait le fichier du mois en cours, c'est à dire Juillet (2017-07-30 SERVERS List.xlsx) et non Juin.


Merci pour votre aide

Changul

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
31
Option Explicit

Dim ws As Workbook, wt As Workbook, ft As Worksheet, fs As Worksheet
Dim Dt As Date
Dim lgn&

Sub CopieListeServeurs()
    
    Set wt = ActiveWorkbook
    Set ft = wt.Sheets("Template")
    Dt = Date
'Si on prend le dernier jour du mois precedent
Dt = DateSerial(Year(Dt), Month(Dt), 1) - 1 <<=== on ne peut pas rajouter +1 à la suite ?
'si du mois en cours
'Dt=DateAdd("m",1,Dt)
'Dt = DateSerial(Year(Dt),Month(Dt),1)-1
Workbooks.Open Filename:="C:\ABCDR\" & Format(Dt, "YYYY-MM-DD") & " SERVERS List.xlsx"
 'Workbooks.Open Filename:="C:\ABCDR\2017-06-30 SERVERS List.xlsx"
    'Workbooks.Open Filename:="C:\Users\changu\Desktop\Nouveau dossier\SERVERS List.xlsx"
    
    Set ws = ActiveWorkbook
    Set fs = ws.Sheets(2)
   
    lgn = fs.Range("A" & Rows.Count).End(xlUp)(2).Row
       
    ft.Range("A2:DL" & ft.Range("A" & Rows.Count).End(xlUp).Row).Copy
    fs.Range("A" & lgn).PasteSpecial xlPasteAll

    Application.CutCopyMode = False
    ws.Close True
End Sub

[Jean-Philippe André]

Ne lis tu pas les commentaires que j'ai mis dans mon code ?

un commentaire est ce qui est ecrit apres le signe apostrophe (')


Comme tu es dans le second cas (mois en cours), tu utiliseras alors les lignes deja ecrites dans mon post precedent et gardees telles que dans ton code

[changul]

C'est OK, ça marche !

j'ai enlevé le cote (') du code ci-dessous (je n'ai pas osé le tester)

Code :

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

Dt = DateAdd("m", 1, Dt)

Merci beaucoup pour votre aide précieuse.

Je reviendrai sur un autre thème, concernant pivot table...

je clos mon sujet.

salutations
changul