lier macro au modéle

[wen]

Bonjour
après pas mal de recherche, je viens vers vous car je n'y arrive plus.
j'ai un fichier qui me permet de faire des facture et qui est sur un petit réseau.
LE problème c'est que les macro que j'ai réussi a faire ne fonctionne que sur le pc d'origine car elles sont liées a excell et non au fichier.
comment je peux faire pour que ça fonctionne de partout ?
de plus j'aimerai fermer par une macro ce fichier sans faire de sauvegarde car c'est un modèle et uune de mes macro permet de l'enregistrer sous un autre nom.
Merci d'avance
Wen

 

[Paritec]

Re : lier macro au modéle

Bonsoir wen le forum,
tes macros sont des macros complémentaires?
a+
papou 🙂

 

[wen]

Re : lier macro au modéle

oui, et je les ai enregistrer dans perso.xls, mais je ne sais pas où est ce fichier

 

[wen]

Re : lier macro au modéle

voici mes 3 macros

Sub tri_croissant()
'
' tri_croissant Macro
' Macro enregistrée le 26/03/2010 par chouchou
'

'
    Range("A18:F39").Select
    ActiveWindow.SmallScroll Down:=-18
    Selection.Sort Key1:=Range("B19"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
End Sub

'
' enregistrer_facture Macro
' Macro enregistrée le 26/03/2010 par chouchou
'

'ThisWorkbook.SaveAs Range("i13").Value & Range("b11").Value & ".xls"
Sub SaveAsNom()
If Dir(Range("i12").Value, vbDirectory) = "" Then MkDir Range("i12").Value
ThisWorkbook.SaveAs Range("i12").Value & Range("i13").Value & ".xls"

 
End Sub
Sub imprimer_facture()
'
' imprimer_facture Macro
' Macro enregistrée le 26/03/2010 par chouchou
'

'
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
    
End Sub

il est certainement ameliorable.
j'utilise 3 boutons, un pour chacune.
merci d'avance

 

[tototiti2008]

Re : lier macro au modéle

Bonjour wen, Bonjour Paritec,

tes macros sont des macros complémentaires?

oui, et je les ai enregistrer dans perso.xls

Pour info, perso.xls n'est pas une macro complémentaire mais un classeur qui s'ouvre automatiquement avec Excel

Si tu veux que ton code soit lié à ton classeur, il faut le mettre dans le classeur.

A priori, ça devrait donner ça :
Ouvre ton classeur
Va dans Visual Basic Editor
Normalement, dans les projets, tu as Perso.xls et le Module qui doit contenir tes 3 macros

Copie tout le contenu du module
Dans Projets, Double-clique sur le nom du classeur
Menu Insertion - Module
Colle le code copié
Si tu as des boutons qui lançaient tes macros, il faudra les réassocier aux macros "tri_croissant" ...etc à la place de "Perso.xls!tri_croissant"

 

[wen]

Re : lier macro au modéle

merci
je regarde ça ce soir sinon demain.
je devrai y arriver
Wen

 

[wen]

Re : lier macro au modéle

Bonjour
Ca marche
MAis j'ai le probleme suivant, comme je suis en réseau, quand on essaye d'enregistrer sur le pcdistant, ça ne marche pas.car le chemein est en dur en I12
comment je peux faire pour qu'il enregistre juste la feuille active et non le classeur entier sur le pc distant ?

'ThisWorkbook.SaveAs Range("i13").Value & Range("b11").Value & ".xls"
Sub SaveAsNom()
If Dir(Range("i12").Value, vbDirectory) = "" Then MkDir Range("i12").Value
ThisWorkbook.SaveAs Range("i12").Value & Range("i13").Value & ".xls"

merci d'avance

 

[chris]

Re : lier macro au modéle

Bonjour

Une bonne solution est de créer un modèle : extension xlt et de le stocker dans un dossier réseau.

Tu y stockes le modèle de la facture et les macros.

Quand on veut créer une facture on n'ouvre pas le fichier xlt : on crée un classeur d'après ce modèle ; cela évite tout risque d'écrasement du modèle, conflit d'ouverture etc.

Tu peux faire un essai :

• fichier enregistrer sous et choisir comme type de fichier "modèle" et accepter le dossier modèle proposé.
• fermer
• pour créer un classeur basé sur le modèle : fichier, nouveau, créer à partir d'un modèle, modèles généraux et sélection le modèle (cela peut être associé à un bouton pour faciliter)

Si la solution te convient, tu peux déclarer un nouveau dossier de modèles pour le groupe : bizarrement il faut le faire via Word, outils, options, Dossiers par défaut et là configurer le dossier modèles groupe de travail.