Enregistrer classeur XLTM en VBA avec Plusieurs variables

[Regueiro]

Bonsoir le Forum.
Voilà ma petite difficulté à résoudre.
J'ai un fichier Modèle type XLTM, après avoir rempli ce formulaire,
j'aimerais enregistrer ce fichier au format XLSM dans un répertoire défini.
J'ai essayé avec l'enregistreur de Macro et cela marche.

MAIS : j'aimerais pouvoir :
1. Sélectionner les sous-repertoires ? ...\CHANTIERS\Chantier1, Chantier2, etc qui sont déjà créer sur mon C:\
2. Le nom du fichier doit être CO + valeur de la cellule (L11) + (N11) avec une séparation entre les 2 cellules
et le format de fichier XLSM.

Je vous joint un b

Sub ENREGISTRER_XLXM()
'ENREGISTRER_XLXM Macro
    ChDir "C:\ACHAT\PROCESSUS DEMANDE ACHAT\2012 ESSAI\CHANTIERS"
    ActiveWorkbook.SaveAs Filename:= _
        "C:\ACHAT\PROCESSUS DEMANDE ACHAT\2012 ESSAI\CHANTIERS\FORM. COMMANDE ACHAT 2012_V004.xlsm" _
        , FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub

 

[Regueiro]

Re : Enregistrer classeur XLTM en VBA avec Plusieurs variables

C'est Ok
Ca marche, en fait j'ai recopier tes 3 lignes et recopier sur mon VBA et c'est bon.
Petit complément si tu as le temps.
Comment afficher une MsgBox idem ci-dessous, mais pour indiquer l'enregistrement PDF.

MsgBox "Le fichier a été enregistré sous " & FichierCible

PS : tu n'aurais pas une solution pour mon post

https://www.excel-downloads.com/threads/importer-carnet-adresse-outlook.177260/

Je suis en train de terminer une application pour mes validations de commande
et j'aurais encore besoin d'aide ?

Pour ma lanterne
Comment faire pour indiquer que ce message est résolu.
Merci encore.
Je me suis permis de te tutoyer ?

 

[Yaloo]

Re : Enregistrer classeur XLTM en VBA avec Plusieurs variables

T'as bien fait pour le tutoiement, généralement sur les forum, c'est comme ça.

Pourquoi ne pas écrire :

MsgBox "Le fichier a été enregistré sous " & FichierCible & " et sous " & FicPdf

J'ai pas testé mais ça devrait le faire 🙂

Il n'y a pas précisément de fonction pour mettre le sujet en "résolu" tu peux par contre, éditer ton premier post en modifiant le titre et en inscrivant [Résolu], certains pratique comme ça.

Je regarde ton deuxième post, mais Outlook et carnet d'adresse c'est pas trop mon truc.

A+

 

[Regueiro]

Re : Enregistrer classeur XLTM en VBA avec Plusieurs variables

Salut Yaloo

Concernant mes 2 choix de répertoires ?
If range ("A1") ="2011*" = then C:\
la valeur de ma cells est variable 2011-001 ou 2011-002
est-ce que avec * cela peut marcher

D'autre part ou dois-je mettre ce code ainsi que celui-là
Elseif range("A1") = "2012*" then D:\

A+

 

[Yaloo]

Re : Enregistrer classeur XLTM en VBA avec Plusieurs variables

Je vois ça demain, soit à midi soit le soir, sauf si qq'un intervient avant.

A+

 

[Regueiro]

Re : Enregistrer classeur XLTM en VBA avec Plusieurs variables

OK Merci
Bonne soirée

 

[Yaloo]

Re : Enregistrer classeur XLTM en VBA avec Plusieurs variables

Bonjour à tous,

J'ai remanié un peu le fichier, avec un message d'erreur si l'année n'est pas bonne.

Remets à jour les répertoires et sous-répertoire dans lesquels les fichiers doivent s'enregistrer.

En espérant avoir répondu à ta demande.

A+

Yaloo

 

[Regueiro]

Re : Enregistrer classeur XLTM en VBA avec Plusieurs variables

Bonsoir le Forum
Salut Yaloo, merci pour ta réponse
Si je veux plusieurs variable c'est-à-dire 2011 et 2010 et 2009
j'ai essayé comme ceci, mais cela ne marche pas.

If Cells(11, 16) Like "2011*" & "2010*" Then
MyPath = "C:\"

quel code dois-je mettre.
Merci d'avance pour la réponse.

P.S. concernant mon post pour
https://www.excel-downloads.com/threads/importer-carnet-adresse-outlook.177260/
une personne a répondu à ma demande.
J'y travaille.

 

[Yaloo]

Re : Enregistrer classeur XLTM en VBA avec Plusieurs variables

Re,

J'ai bien suivi l'autre post concernant outlook, j'ai d'ailleurs gardé les macros de Softmama qui me paraissent très intéressantes.

Pour tes différentes années, il faudrait peut être écrire :

If Cells(11, 14).Value Like "2011*" _
Or Cells(11, 14).Value Like "2010*" _
Or Cells(11, 14).Value Like "2009*" Then

En remplaçant avec les données voulues

Bonne nuit