Macro avec chemin de fichier

[bloublou]

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

 

[Dugenou]

Re : Macro avec chemin de fichier

Bonjour,

J'ai quelquechose comme ça dans mes outils : on calcule le nom du fichier et le chemin à l'intérieur de la macro avec :

territoire = range("TERRITOIRE").Value
    codemois = range("Mois_courant").Value
    
ActiveWorkbook.SaveAs FileName:= _
        "G:\BSP_DASR\Sales_Excellence\BUs\Imagerie\Dom Tom\01 - Résultats\2011\Ville\" & territoire & ".xls" _

Cordialement

 

[bloublou]

Re : Macro avec chemin de fichier

Hello Dagenou,

Merci pour ta réponse. Mais cela correspond à mon 6ieme point ou 9ieme point

Merci de ton aide,

Cordialement

Bloublou

 

[Dugenou]

Re : Macro avec chemin de fichier

Bloublou,

pour les autres points as-tu essayé d'enregistrer une macro ?

Cordialement