Bonjour le forum
J'essaye vainement de réaliser une macro qui exporte le résultat du mois de novembre des 3 feuilles (LaveLinge, Cuisiniere et Frigo) de mon classeur vers 3 classeurs préexistants nommés du nom de ces feuilles dans un répertoire "C:\Users\MesDocuments\Résultats"
Les 3 classeurs contiennent tous 12 feuilles nommées de JANVIER à DECEMBRE.
L'objectif de la macro étant de copier :
1) le contenu de la feuille "LaveLinge" vers la feuille "Novembre" du classeur nommée "LaveLinge"
2)le contenu de l'onglet "Cuisinière " vers la feuille "Novembre" du classeur nommée "Cuisinière"
3)le contenu de l'onglet "Frigo" vers la feuille "Novembre" du classeur nommé "Frigo"
Plus bas j'ai essayé de composer avec des morceaux de script trouvés ici ou là, mais sans succès.
Je vous joins mon fichier, si l'un d'entre vous pouvais me donner des pistes ?
Merci pour votre aide
O.
Sub Ajout_Données_Classeurs_Destination()
Dim sh As Worksheet
Dim lenom As String
Dim lenom2 As String
Dim nomfichier As Workbook
Dim NomDeLaFeuille As Worksheet
Dim Thepath As String
Dim Moistraitement As String
For Each sh In Sheets(Array(Worksheets.Count - 3)) <--- pour ne traiter que les 3 feuilles voulues.
sh.Select
Application.CutCopyMode = False
Cells.Select
Selection.Copy
'sh.Copy
lenom = sh.Name
lenom2 = lenom & ".xlsx"
On Error GoTo 99
Workbooks.Open Filename:="CC:\Users\MesDocuments\Résultats" && "\" & lenom2
Worksheets(NomDeLaFeuille).Select
ActiveSheet.past
ActiveWorkbook.SaveAs Filename:= _
"C:\Users\MesDocuments\Résultats" & "\" & lenom2, FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
ActiveWorkbook.Close
99 Next sh
MsgBox "Les classeurs ont été mis à jour dans le repertoire destination"
End Sub
J'essaye vainement de réaliser une macro qui exporte le résultat du mois de novembre des 3 feuilles (LaveLinge, Cuisiniere et Frigo) de mon classeur vers 3 classeurs préexistants nommés du nom de ces feuilles dans un répertoire "C:\Users\MesDocuments\Résultats"
Les 3 classeurs contiennent tous 12 feuilles nommées de JANVIER à DECEMBRE.
L'objectif de la macro étant de copier :
1) le contenu de la feuille "LaveLinge" vers la feuille "Novembre" du classeur nommée "LaveLinge"
2)le contenu de l'onglet "Cuisinière " vers la feuille "Novembre" du classeur nommée "Cuisinière"
3)le contenu de l'onglet "Frigo" vers la feuille "Novembre" du classeur nommé "Frigo"
Plus bas j'ai essayé de composer avec des morceaux de script trouvés ici ou là, mais sans succès.
Je vous joins mon fichier, si l'un d'entre vous pouvais me donner des pistes ?
Merci pour votre aide
O.
Sub Ajout_Données_Classeurs_Destination()
Dim sh As Worksheet
Dim lenom As String
Dim lenom2 As String
Dim nomfichier As Workbook
Dim NomDeLaFeuille As Worksheet
Dim Thepath As String
Dim Moistraitement As String
For Each sh In Sheets(Array(Worksheets.Count - 3)) <--- pour ne traiter que les 3 feuilles voulues.
sh.Select
Application.CutCopyMode = False
Cells.Select
Selection.Copy
'sh.Copy
lenom = sh.Name
lenom2 = lenom & ".xlsx"
On Error GoTo 99
Workbooks.Open Filename:="CC:\Users\MesDocuments\Résultats" && "\" & lenom2
Worksheets(NomDeLaFeuille).Select
ActiveSheet.past
ActiveWorkbook.SaveAs Filename:= _
"C:\Users\MesDocuments\Résultats" & "\" & lenom2, FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
ActiveWorkbook.Close
99 Next sh
MsgBox "Les classeurs ont été mis à jour dans le repertoire destination"
End Sub