Résultats pour "macro complementaire"

8'567 résultats pour cette recherche

Bonjour,

Est-ce que il y a une possibilité de convertir une macro complémentaire en simple macro, parce que j'ai créer une fichier exel avec une macro complémentaire, et ce fichier doit utiliser sur plusieurs et déférente machine avec déférente version d'excel (2007 et 2010)

Si c'est possible merci de me donner comment, et s'il y a une autre solution pour que le fichier fonctionne correctement sur déférente machine (sans installer la macro complémentaire sur toutes les machine) merci de me la donnée.

Amicalement,

A+

Bonjour

Je reçois chaque semaine un fichier nommé gp_report.xls par courriel. Lorsque j'ouvre ce fichier et que je fait la combinaison Ctrl+Shift+G je veux que ma macro complémentaire (EM_Add_In.xlam) ouvre un autre fichier (Fournisseurs_EM.xlsx), duquel je vais copier la Feuil1 pour la coller dans mon fichier gp_report et effectuer par la suite certaines opérations. La macro complémentaire fonctionne bien jusqu'à ce qu'au moment où elle ouvre le fichier Fournisseurs_EM.xlsx. Je n'arrive pas à poursuivre la macro une fois que le fichier a été ouvert.

J'ai tenté d'activer la suite de la macro en la déplaçant dans Workbook_Open du fichier Fournisseurs_EM.xlsm mais ça ne fonctionne pas plus. Lorsque le fichier ouvre, la macro ne s'exécute pas.

Auriez-vous des idées à me proposer pour que la macro se poursuivent? À moins que les macro complémentaires ne soient pas faites pour ce type de manipulation.

Merci de votre aide.

Jacques

Option Explicit
Dim Fichier_GP_report As Workbook
Dim Fichier_Fournisseurs As Workbook
Dim iRow As Long

Sub Highlight_low_gp_2()

'cette macro complémentaire s'active avec CTRL+Shift+G

'Vérifier que c'est le fichier gp_report qui est actif avant de lancer la macro
If ActiveWorkbook.Name = "gp_report.xls" Then
Else
    MsgBox ("Le fichier actif doit être gp_report.xls.")
    Exit Sub
End If

Set Fichier_GP_report = ThisWorkbook

'vérifier que le fichier Fournisseurs_EM est dans le bon répertoire
If Dir("C:\Users\j1bou\Desktop\Fournisseurs_EM.xlsx") <> "" Then
Else
    'S'il n'est pas dans le bon répertoire
    MsgBox "Le fichier Fournisseurs_EM.xlsx contenant la liste des fournisseurs n'est pas dans C:\Users\j1bou\Desktop." & Chr(13) & Chr(10) _
    & "Vous devez corriger ce problème avant poursuivre."
    Exit Sub
End If

Set Fichier_Fournisseurs = Workbooks.Open("C:\Users\j1bou\Desktop\Fournisseurs_EM.xlsx")

'***La macro ne va pas plus loin***

1gp-report.zip (6.20 Ko)
1em-add-in.xlam (15.55 Ko)

Bonjour à tous,

je reviens vers vous car j'ai créée une macro et je viens de me rendre compte qu'elle est associée au fichier sur lequel je l'ai crée. Je suis novice j'apprends de mes erreurs . Je pensais pouvoir juste renommer mon fichier et utiliser la macro mais non

Cette macro sera utilisée par plusieurs utilisateurs et le nom du fichier va changer. Si j'ai bien compris je dois créer une macro complémentaire mais je ne comprends pas comment procéder.

Je vous remercie pour votre aide,

Bonne journée,

Prenez soin de vous.

Pauline

Bonjour

Je travaille sur un mac, excel 2016.

je voudrais savoir comment activer "le pack macro complémentaire XLP"

L'explication dans ce tuto " https://www.excel-pratique.com/fr/fonctions-complementaires/installation-macro-complementaire " pour window, est il possible de nous expliquer ce totu pour mac.

merci de votre réponse.

Bonjour à tous expert Excel !

Je suis à la recherche d'une âme charitable pour m'aider à réaliser une macro complémentaire c'est-à-dire disponible quelque soit le fichier ouvert.

Je voudrais avoir sur Excel 2016 un bouton en plus dans ma barre d'outils Excel, qui me permette de faire un rechercher du caractère "ALT + 010" et remplacer toutes les occurrences par un simple espace.

Il est utile pour moi de pouvoir faire cette action sans avoir à faire CTRL + H puis indiquer le caractère à rechercher puis celui qui doit le remplacer, car je fais cela tous les jours....

Merci d'avance de vos réponses, pour information je suis plus que nul en Excel....

Bonjour,

Je viens de changer ma version de windows et d'excel. Je suis maintenant sur W10 et Excel2019.

J'utilisais auparavant W7 et Excel2010. J'avais créé des fonctions à l'aide d'une macro complémentaire appelée Mesfonctions. Tout allait très bien.

J'ai essayé d'importé mon fichier Mesfonctions.xla dans ma nouvelle version de Excel. Je suis allé dans le menu ficher/options/complément/gérer/atteindre et j'ai coché le nom de mon fichier. Je suis aussi allé dans les paramètres des macros pour cocher la case "activer toutes les macros" pour être certain que ce n'était pas mon problème. Je vois qu'excel l'a ajouté dans son répertoire ADD-IN

Mais Excel ne reconnait pas mes fonctions. Il me retourne toujours le même message #NOM?

Est-ce que quelqu'un a une idée? J'ai même créé une nouvelle fonction très simple avec une seule ligne de code et j'obtiens toujours #NOM?

Merci de votre aide

Bonjour tout le monde

je suis nouvelle dans le forum

bon mon soucis c'est que : j'ai installé récemment une macro complémentaire xla suivant tous les instructions mais mon probléme c'est que je ne peux pas exécuter ma macro xla correctement ça me donne des erreurs genre débogage pour chaque ligne de mon code :

(l'indice n’appartient pas à la sélection ... membre de méthode ou de données introuvable...) et que je trouve bizarre et flippant pcq le code marche très bien quand il n'est pas sous macro complémentaire,

et les erreurs apparaissent une fois je change le nom d'une feuille ou je supprime une ; il l'a reconnu pas malgré que c'est variable et je donne pas de noms à mes feuilles dans la macro

aidez moi svvvp

lignes d erreurs :

Set FL1 = worksheets(sh.Name)
Cells(i, 1).Value = FL1.Name

voici mon code en entier

Sub Bouton2_Clic()

Dim FL1 As worksheets, Cell As Range, NoCol1 As Double, NoCol2 As Long
Dim DerLig As Long, Plage As Range, i As Double
Dim wk As Worksheet, NewSheet As Worksheet
Dim exist As Boolean
Dim nom As String

'**********************************
nom = "BDD"
 exist = False

 For Each wk In Worksheets
    If wk.Name = "BDD" Then
        exist = True
        Exit For
    End If
  Next wk
  If exist = False Then
   With ThisWorkbook
    Worksheets.Add.Name = "BDD"
    End With
   End If
 '*********************************

    Sheets("BDD").Select
    Cells.Select
    Selection.ClearContents
    Sheets("BDD").Cells(1, 1).Select
    Cells(1, 1).Value = "Feuille"
    Cells(1, 2).Value = "type"
    Cells(1, 3).Value = "ligne"
    Cells(1, 4).Value = "colonne"
    Cells(1, 5).Value = "valeur n-1"
    i = 2

    For Each sh In ThisWorkbook.Sheets

    If Not sh.Name = "BDD" And Not sh.Name = "Read me" Then
    Set FL1 = worksheets(sh.Name)

         ' *****************************

     Set Plage = Range("A1")

     While Range(Plage.End(xlDown).Address(rowabsolute:=False, columnabsolute:=False)).Value <> ""

     Set Plage = Range(Plage.End(xlDown).Address(rowabsolute:=False, columnabsolute:=False))
  Wend
    Set Plage = Range("A1:" & Plage.Address(rowabsolute:=False, columnabsolute:=False))

        For Each Cell In FL1

            Cells(i, 1).Value = FL1.Name
            Cells(i, 5).Value = Cell.Formula
            If VarType(Cell) = 8 Then
            Cells(i, 2).Value = "C"
            Else
            If VarType(Cell) = 5 Then
            Cells(i, 2).Value = "N"
            Else
            If VarType(Cell) = 10 Then
            Cells(i, 2).Value = "N"
            Else
            If VarType(Cell) = 0 Then
            Cells(i, 2).Value = "Non définie"
            End If
            End If
            End If
            End If
            Cells(i, 3).Value = Cell.Row
            Cells(i, 4).Value = Cell.Column
            i = i + 1
        Next
 End If
Next
    Set FL1 = Nothing
    Set Plage = Nothing
End Sub

Bonjour cher forum.

J'ai deux préoccupations concernant cette fonction citée à l'objet :

  • 1- Quelqu'un peut-il me dire si cette fonction met un " s " sur cent quand il s'agit des nombres tels deux cent mille, trous cent mille ? Si oui comment corriger cela ?
  • 2- Quelqu'un peut-il me réécrire les macros de cette fonction en y insérant des commentaires pour que je puisse l'adapter au Franc CAF ?

Merci.

Bonjour,

J'ai installer une macro complémentaire depuis peu et constate un soucis des que je clique sur un fichier excel je n'est que la fenêtre excel nommée classeur1 sans aucune feuille alors que que si j'ouvre excel et que ensuite je fait fichier ouvrir je n'ai aucun soucis.

Pourtant quand je veut fermer le fichier ouvert il me dit bien voulez enregistrer votre fichier.xlsx

Quelqu'un à une piste ?

Bonjour,

Est il possible par macro complémentaire :

1) A l'ouverture d'un fichier tester si les différentes feuilles sont protégées si c'est le cas colorier en vert l'onglet et en rouge si le contraire.

2) Changer la couleur de l'onglet quand on clique sur le bouton qui fais protéger ou déprotéger la feuille.

Merci pour votre aide.

Bonjour à tous

J'ai installé "Pack de fonctions XLP.xlam" mais quand je vais

dans Visual basic et que je clique dessus il me demande un mot

de passe? Comment faire pour avoir le mot de passe.

Je joins un fichier.

Par avance je vous remercie

37mot-de-passe.pdf (159.27 Ko)

Bonjour,

J'ai créée il y a quelques temps une macro complémentaire que j'ai associé à un bouton.

Il s'agissait essentiellement de modifier un fichier de données issu de progiciel "maison".

Par "modifier" j'entends suppression de colonne inutile et ajustement de largeur de colonnes et ensuite du format des données.

Aujourd'hui mon hiérarchique souhaite voir apparaitre une colonne de plus !

Mon soucis je ne sais pas où je dois effectuer la modification pour que cela soit définitif dans la macro.

MERCI

Bonjour à tous,

C'est mon 1er post sur ce forum 8)

J'ai appris VBA tout seul donc j'espère que vous serez indulgent si je fait de grosses boulettes

Voilà mon problème :

J'ai une feuille de calcul Excel qui contient des données auxquelles je souhaite accéder depuis n'importe quel classeur.

J'ai donc créé une fonction dans cette feuille de calcul et sauvegardé cette feuille en tant que macro complémentaire.

Pour faire simple, je cherche un paramètre en colonne A et la fonction me renvoie la valeur en colonne B, rien de compliquer et cela fonctionne à merveille.

J'aimerais maintenant aller plus loin : j'aimerais pouvoir ajouter une donnée à cette feuille si elle n'existe pas.

Mettre à jour la feuille xlam est 'pénible' (il faut passer le paramètre "isAddin" en False, etc...).

Je me suis alors dit que je pouvais essayer de le faire là aussi avec une fonction, que voici :

Function DonneeAdd(Param1 As String, NewValeur As Double)
 Dim DerLig As Double

 Param1 = UCase(Param1)
 NewValeur = Round(NewValeur, 0)

 DerLig = ThisWorkbook.Sheets(1).Range("A" & Rows.Count).End(xlUp).Row + 1

 With ThisWorkbook.Sheets("1")
  .Cells(DerLig, 1).Value = Param1
  .Cells(DerLig, 2).Value = NewValeur
 End With

 ThisWorkbook.Save

 DonneAdd = "Valeur ajoutée"

End Function

Je n'ai aucun message d'erreur mais aucune ligne n'est ajoutée dans mon fichier xlam.

Je m'y prends mal ?

Merci d'avance pour votre aide

Bonjour,

Mon objectif est de pouvoir appliquer une mise en page personnalisé (encadrement, suppression de colonnes, police, .......) a plus de 200 fichiers identiques.

J'ai trouvé comment faire cela : en passant par une macro complémentaire (faire le code pour un fichier, puis ensuite c'est l'enregistrement qui doit être en xla.

cela fonctionne parfaitement mais j'ai 2 interrogations.

- 1) étant sous excel 2010, dois-je enregistrer sous *.xla ou sous *.xlam ?

- 2) Pour aller au bout de mon raisonnement d'automatisation, comment puis-je en un clic aller chercher cette macro complémentaire et non devoir ouvrir l'éditeur, rechercher le module, cliquer sur la macro et ensuite l'exécuter ?

Une sorte de raccourci pour l'exécution de la macro complémentaire, un menu ?????

MERCI

Bonjour,

J'ai besoin de vos compétences pour terminer ma macro automatique. J'ai des extractions de données de notre GPAO vers Excel que je veux mettre en forme pour une lecture plus "digeste". par les opérateurs. J'ai fait une macro complémentaire avec un bouton sur le ruban qui sera accessible de tous les PC de l'entreprise. J'ai réussi à faire la mise en forme qui va bien, pagination, en-tête, marges....mais je veux aussi supprimer les doublons de la colonne A uniquement si les données de la colonne B sont à 0 et c'est là que le bât blesse...j'ai essayé les filtres avancés, supprimer les doublons avec critères, je ne trouve rien qui me convienne sur les forums.

Je vous joins un fichier que j'ai tronqué. Ma macro n'y est pas, comme elle est enregistrée dans un classeur perso en.xlsb, c'est normal.

Merci d'avance pour votre disponibilité.

23extract.zip (9.97 Ko)

Bonjour à tous,

J'ai une difficulté sous VBA dont je n'arrive pas à ma dépatouiller malgré la lecture de divers sujets de forum.

Je suis sous excel 2007.

Au départ, j'avais créé un fichier XLSM contenant diverses macros.

Mais souhaitant pouvoir utiliser simultanément ce fichier à plusieurs, et ayant vu qu'a priori c'était difficile avec un fichier de macros, j'ai alors :

  • créé un fichier type XLA placé dans le même répertoire et contenant toutes les macros au sein d'un module. Je lui ai donné un petit nom , disons MACRO sous VBA via Outils / Propriétés...
  • enlevé les macros sur le fichier XLSM pour le transformer en XLSX.
Je souhaite donc pouvoir utiliser sur ce fichier XLSX les macros du XLA.

Jusque là, tout va bien.

J'ai ouvert les 2 nouveaux fichiers XLSX et XLA, puis sous VBA, je suis allé dans outils, référence et j'ai lié MACRO à mon fichier XLSX en cochant son nom.

Ca ca marche.

Mais, une fois que je ferme les fichiers et les ouvre de nouveau, le lien ne se fait plus. Si je recommence, ça marche, mais j'aimerais que ce lien soit permanent, sans devoir refaire la manip.

Je précise que j'ai testé divers codes placés sous le ThisWorkBook du XLA sans succès. Mais quelqu'un en a peut être un bien.

Et je rappelle que dans mon VBA MACRO, il y a en fait pleins de macros.

Enfin, dans les options EXCEL, Compléments, j'ai bien mis le VBA en compléments actifs.

En revanche sous VBA, rien n'apparait dans mon gestionnaire de compléments.

Des idées ?

Par avance merci !

Hopopop (enfin j'aimerai bien)

Bonjour à tous,

j'ai créé un onglet perso à l'aide des différents tuto sur le net (avec custom UI editor) et j'ai intégré le fichier XML dans une macro XLAM qui se lance à l'ouverture d'EXCEL.

J'ai bien généré les callbacks avec Custom UI editor et les ai collé dans un module standard de la macro complémentaire.

Seulement lorsque je clique sur un des contrôles du ruban il me dit <<"impossible d’exécuter la macro "xxxxxx". il est possible qu'elle ne soit pas dans ce classeur ou que toutes les macros soient désactivées.>>

Les macros sont bien activées je précise...

J'ai l'impression qu'il s’attend à trouver les macros dans le projet VBA du classeur actif et non dans le projet VBA de la macro complémentaire...

Comment faire pour que les contrôles déclenchent des macros qui sont dans la macro complémentaire?

merci pour votre aide.

Bonjour, j'utilise un logiciel qui importe des informations sur excel et une fois ce fichier excel ouvert je n'ai pas besoin de conserver toutes les lignes alors je les supprimais jusqu'à maintenant manuellement. Mais, ayant souvent besoin d'utiliser ce logiciel, je perd vite du temps à éditer ces classeurs excel, j'ai donc créé une macro complémentaire toute simple :

Sub ETIQUETTES()
Range("A:B,E:F,J:K,M:R").Delete Shift:=xlToLeft
Rows("5:5").Delete Shift:=xlUp
Rows("1:3").Delete Shift:=xlUp
End Sub

Elle fait parfaitement bien son travail, mais le problème est que je ne trouve pas de moyen pour l'exécuter autrement qu'en faisant Alt + f8 car j'ai essayé de lui appliquer un raccourci clavier, mais le logiciel qui importe ses donnés dans excel écrase le précédent, le raccourci est donc remis à zéro.

J'espère m'être fait comprendre, je souhaite juste trouver un moyen d'exécuter cette macro complémentaire grâce à un raccourci, taper un texte ou autre.

Merci d'avance.

Bonsoir le forum

je suis coincé sur un sujet que j'avais commencé la semaine passée

il s'agit de du lancement d'une macro complémentaire après l'avoir "bien" installée.

Je ne sais pas comment la lancer à partir d'un autre fichier.

Merci de votre aide

Bonne nuit

Bon Week end à tous

Bonjour,

J'ai un certain nombre de classeurs tous identiques et placer dans le même répertoire. Une macro se déclenche dès l'ouverture d'un classeur. Aussi pour faciliter les choses, j'ai placé cette macro principale dans une macro complémentaire et dans le classeur cible ce code : Application.Run "'C:\Documents and Settings\users\Application Data\Microsoft\AddIns\'!essai11".

Reste à déclencher la macro essai11 quand j'ouvre un de ces classeurs.

Dans le ficher test essai1.xslm, j'ai un message d'erreur : La méthode Run de l'objet application a échouée.

Quelqu'un peut-il me dire comment écrire cette liaison pour que cela fonctionne ?

Merci d'avance.

39essai1.xlsm (13.05 Ko)

Recherches récentes

copier vide apparaissesuite tabulationtarget address plageformulaire ordre tabulation6068congecalcul conge payegraphesclassement tableauclassementremplacer passage ligneuserformsap guifiltre multicriterefiltre multicritere vbasalairesusfformulaire salairescondition datesomme date ligne