Bonjour à tous,
J’ai regardé dans pas mal de forums et de tutoriels mais en fait svt je ne comprends pas les mots clés utilisés, pouvez vous m’aider à faire une macro ?
Je voudrais créer une macro qui me permette de faire un copier coller valeurs et formats de 11 fichiers « maitre » dans 11 nouveaux classeurs.
Jusque là ca va mais le chemin change tous les mois : P07..P08..P09.
Pour pallier à cet inconvénient, j’avais pensé me positionner directement dans le fichier et lancer la macro à ce moment là comme ca Excel ne se serait pas occupé du chemin à trouver…
Seulement j’ai un dossier ou il y a 50 fichiers et seulement 11 fichiers qui m’intéresse. Ces 11 fichiers commencent tous par HFM-…
Dans ces 11 fichiers, c’est l’onglet ordersforecast dont je veux faire un copier / coller dans 11 nouveaux classeurs.
Le chemin est : F:\11lymulti\HFM\P07\POR\HFM-19FR025LP07.xlsm ou il y a 11 fichier de même type
1) Ouvrir le fichier HFM-19FR025LP07.xlsm
2) Se positionner sur la feuille ordersforecast
3) Copier
4) Ouvrir nouveau classeur
5) Coller Valeurs & Formats
6) Enregistrer le nouveau classeur dans F:\ 11lymulti\HFM\P07\POR\orderforecast ( nom du nouveau classeur = nom de la feuille & nom de l’ancien classeur & extension.xlsx : ordersforecast - HFM-19FR025LP07-xlsx
7) Revenir au classeur HFM-19FR025LP07.xlsm
8) Fermer sans enregistrer le classeur HFM-19FR025LP07.xlsm
9) Passer au classeur suivant qui se trouve dans le dossier du POR :
Comment faire pour qu’Excel n’ouvre et effectue le cop/coll que sur les fichiers qui commencent par HFM ?
Et repète ainsi le cop/coller dans un autre classeur.
A part le 6) ou je ne sais pas trop faire le nom du classeur = nom de la feuille & nom de l’ancien classeur & extension.xlsx)
Et surtout le 9), le reste je peux me débrouiller :
J'ai déjà commencé à fair eun bout :
Sub OF()
'
' OF Macro
' copie colle l'onglet OF dans un nouveau classeur
'
'
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("ordersforecast").Select
Cells.Select
Selection.Copy 'copie la feuille orderforecast
Workbooks.Add 'rajoute un nouveau classeur
' fait un collage spécial & valeurs
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
'Choisit le chemin - correspond au point 6)
ChDir "F:\"
ActiveWorkbook.SaveAs Filename:="F:\ordersforecast-19FR0025.xlsx", FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False
ActiveWindow.Close
ActiveWindow.Close
End sub
Si vous avez d'autres idées ou toutes astuces, merci d'avance
ArnO
J’ai regardé dans pas mal de forums et de tutoriels mais en fait svt je ne comprends pas les mots clés utilisés, pouvez vous m’aider à faire une macro ?
Je voudrais créer une macro qui me permette de faire un copier coller valeurs et formats de 11 fichiers « maitre » dans 11 nouveaux classeurs.
Jusque là ca va mais le chemin change tous les mois : P07..P08..P09.
Pour pallier à cet inconvénient, j’avais pensé me positionner directement dans le fichier et lancer la macro à ce moment là comme ca Excel ne se serait pas occupé du chemin à trouver…
Seulement j’ai un dossier ou il y a 50 fichiers et seulement 11 fichiers qui m’intéresse. Ces 11 fichiers commencent tous par HFM-…
Dans ces 11 fichiers, c’est l’onglet ordersforecast dont je veux faire un copier / coller dans 11 nouveaux classeurs.
Le chemin est : F:\11lymulti\HFM\P07\POR\HFM-19FR025LP07.xlsm ou il y a 11 fichier de même type
1) Ouvrir le fichier HFM-19FR025LP07.xlsm
2) Se positionner sur la feuille ordersforecast
3) Copier
4) Ouvrir nouveau classeur
5) Coller Valeurs & Formats
6) Enregistrer le nouveau classeur dans F:\ 11lymulti\HFM\P07\POR\orderforecast ( nom du nouveau classeur = nom de la feuille & nom de l’ancien classeur & extension.xlsx : ordersforecast - HFM-19FR025LP07-xlsx
7) Revenir au classeur HFM-19FR025LP07.xlsm
8) Fermer sans enregistrer le classeur HFM-19FR025LP07.xlsm
9) Passer au classeur suivant qui se trouve dans le dossier du POR :
Comment faire pour qu’Excel n’ouvre et effectue le cop/coll que sur les fichiers qui commencent par HFM ?
Et repète ainsi le cop/coller dans un autre classeur.
A part le 6) ou je ne sais pas trop faire le nom du classeur = nom de la feuille & nom de l’ancien classeur & extension.xlsx)
Et surtout le 9), le reste je peux me débrouiller :
J'ai déjà commencé à fair eun bout :
Sub OF()
'
' OF Macro
' copie colle l'onglet OF dans un nouveau classeur
'
'
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("ordersforecast").Select
Cells.Select
Selection.Copy 'copie la feuille orderforecast
Workbooks.Add 'rajoute un nouveau classeur
' fait un collage spécial & valeurs
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
'Choisit le chemin - correspond au point 6)
ChDir "F:\"
ActiveWorkbook.SaveAs Filename:="F:\ordersforecast-19FR0025.xlsx", FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False
ActiveWindow.Close
ActiveWindow.Close
End sub
Si vous avez d'autres idées ou toutes astuces, merci d'avance
ArnO