Discussion :

[alexklond]

Bonjour,

Pour vous expliquer j'ai fait cette macro pour copier/coller des données d un fichier excel vers un autre fichier excel,

Cependant la limite c est que dés que le fichier de sauvegarde sera plein je devrais changer le nom du fichier dans la macro...

Afin d'eviter cela j'aimerai créer une condition pour l'ouverture d un fichier :
En effet la cellule A2 va contenir une date par exemple : 02/07/2017

J'aimerai qu'en fonction du mois dans l'exemple (07) => cette macro ouvre le fichier de sauvegarde avec dans le nom 07

Avec cette macro, je voudrais prendre comme condition pour l'ouverture du fichier le mois de la cellule A2

merci de trouver ci dessous le code :

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
Sub COPIEDONNEES()

Dim fichier_a_completer As Workbook
Dim valeur As Date

valeur = Range("A2").Left(A2, 3) & Right(A2, 3)


Set fichier_a_completer = Application.Workbooks.Open("S:\ETS\CLS ") & valeur & (".xlsm")

  'Ici tu mets les copies des cellules de la feuille d'entrée vers la feuille de sortie
 ThisWorkbook.Worksheets("Sheet1").Range("A2:O65536").Copy Destination:=fichier_a_completer.Worksheets("Sheet1").Cells(Rows.Count, 1).End(xlUp)
 
  ' Sauvegarde du fichier
 fichier_a_completer.Save
  'ferme le fihcier à compléter
 fichier_a_completer.Close

End Sub

Pour la ligne de code en gras j avoue etre perdu,

cdt

[Jean-Philippe André]

Salut,

tu peux utiliser la fonction Month + Format pour arriver a tes fins

attention egalement a ton erreur de syntaxe sur la ligne d'ouverture du fichier, dont la correction apparait egalement

Code :

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

1
2
valeur = Format(Month(Range("A2").Value),"00")
Set fichier_a_completer = Application.Workbooks.Open("S:\ETS\CLS " & valeur & ".xlsm")

[alexklond]

Tout d'abord merci pour ton message,

après modification du code,

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
Sub COPIEDONNEES()

Dim fichier_a_completer As Workbook
Dim valeur As Date

  'fichier de sortie
valeur = Format(Month(Range("A2").Value), "00")
Set fichier_a_completer = Application.Workbooks.Open(".....\.....\" & valeur & ".xlsm")

  'Ici tu mets les copies des cellules de la feuille d'entrée vers la feuille de sortie
 ThisWorkbook.Worksheets("Sheet1").Range("A2:O65536").Copy Destination:=fichier_a_completer.Worksheets("Sheet1").Cells(Rows.Count, 1).End(xlUp)
 
  ' Sauvegarde du fichier
 fichier_a_completer.Save
  'ferme le fihcier à compléter
 fichier_a_completer.Close

End Sub

le résulat de valeur est = 06/01/1900 alors que dans la cellule A2 il 06/07/2017

je comprends pas pourquoi valeur n est pas égal à "07"

[Jean-Philippe André]

Remplace

Code :

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

Dim valeur As Date

par

Code :

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

Dim valeur As String

[alexklond]

merci pour ton aide,

cela marche parfaitement

cdt