IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Macro compatible tout xls [XL-2010]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Homme Profil pro
    Étudiant
    Inscrit en
    Décembre 2011
    Messages
    93
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Décembre 2011
    Messages : 93
    Par défaut Macro compatible tout xls
    bonjour tout le monde

    Je reviens avec une nouvelle formulation car il me semble que j'ai pas été clair lors de la premiére , je veux eviter de faire du copier coller des données avant de les traiter avec ma macro.

    j'ai enregistré la macro sur le ruban mais elle ne fonctionne qu'avec le .xls sous lequel j'enregistre !!

    est ce que je peux faire en sorte qu'elle fonctionne un n'importe qu'elle xls que j'ouvre ?
    c'est surtout les lignes qui ne s'exécute pas!!!

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    Code = .Cells(Val.Row, 2).Value
         ThisWorkbook.Range("C" & ligne) = Code

    merci



    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    Sub MEF()
        Dim CIBLE, Code As Variant
        Dim ligne As Integer
        Dim Val As Range
    Worksheets(1).Columns("C:C").Insert Shift:=xlToRight
    Worksheets(1).Columns("N:N").Insert Shift:=xlToRight
     
    ThisWorkbook.Worksheets(1).Cells(1, 3) = "ARTICLE "
    ThisWorkbook.Worksheets(1).Cells(1, 13) = "DATE"
     For ligne = 2 To Range("A" & Rows.Count).End(xlUp).Row
        If (IsEmpty(Range("A" & ligne))) Then
        'MsgBox "Code Article Manquant à la ligne " & ligne
        Exit Sub
        Else
        CIBLE = Range("A" & ligne)
        Range("M" & ligne) = Left(Range("M" & ligne).Value, 9)
     
    If Split(UCase(Range("O" & ligne).Value), "/")(1) = "M" Then
           Range("L" & ligne).Value = Range("L" & ligne).Value / 1000
    End If
    Range("N" & ligne).Value = Format(Range("M" & ligne).Value, "yyyymm")
       Feuil1.Range("K" & ligne).NumberFormat = "###0"
           'MsgBox "Code Article " & CIBLE & " recherche"
            Call Find(CIBLE, Code, ligne)
     End If
    Next ligne
    End Sub
    Sub Find(CIBLE, Code, ligne)
    Dim x As Variant
    Dim Val As Range
      Application.ScreenUpdating = False
      Application.DisplayAlerts = False
     Set wbk = Workbooks.Open("U:\redirection\reférence.xlsx")
     With wbk.Worksheets("Feuil1")
     Set Val = .Columns("A:A").Find(CIBLE, LookIn:=xlValues)
     If Not Val Is Nothing Then
       'MsgBox "Le Code Article" & CIBLE & "est dans la ligne: " & Val.Row
         Code = .Cells(Val.Row, 2).Value
         ThisWorkbook.Range("C" & ligne) = Code
            Else
        'MsgBox "Code Article " & CIBLE & " non trouvée dans la table de correspondance"
     End If
     End With
     wbk.Save
     wbk.Close
        Set wbk = Nothing
        Application.ScreenUpdating = True
     
    End Sub

  2. #2
    Membre éclairé Avatar de nchal
    Homme Profil pro
    Étudiant
    Inscrit en
    Avril 2012
    Messages
    512
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 32
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Avril 2012
    Messages : 512
    Par défaut
    Bonjour,

    Si j'ai bien tout compris. Tu souhaites faire qqchose, je ne sais pas trop quoi sur tous les Workbooks d'ouvert. Essaie cette petite boucle et si sa ne répond pas à ton problème, je te suggère de reformuler ton problème :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    Sub boucleworkbook()
     
    Dim wb As Workbook
     
    For Each wb In Application.Workbooks
        'met ton code ici
    Next
     
    End Sub

  3. #3
    Membre confirmé
    Homme Profil pro
    Étudiant
    Inscrit en
    Décembre 2011
    Messages
    93
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Décembre 2011
    Messages : 93
    Par défaut
    je pense que vous m'avez devancer ,car j'étais entrain de reformuler mon probléme:

    -j'ai plusieurs fichiers ; j'aimerais après l'ouverture d'un de ces fichiers pouvoir excécuter la fonction dont le code est posté dans mon premier message .

    cette fonction ouvre un fichier pour chercher un code et l'insérer devant le champ correspondant.

    merci

  4. #4
    Membre éclairé Avatar de nchal
    Homme Profil pro
    Étudiant
    Inscrit en
    Avril 2012
    Messages
    512
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 32
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Avril 2012
    Messages : 512
    Par défaut
    Bonjour

    Je crois avoir cerné le problème. Je pense que tu dois utiliser un template Excel. Tu pourra exécuter ta macro sur n'importe quel classeur.

    Après je ne suis pas sur d'avoir tout compris (et oui, je suis pas en forme aujourd'hui) de l'aide serai le bienvenue si j'ai répondu de travers

  5. #5
    Expert confirmé
    Avatar de fring
    Homme Profil pro
    Engineering
    Inscrit en
    Février 2008
    Messages
    3 900
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 62
    Localisation : Belgique

    Informations professionnelles :
    Activité : Engineering

    Informations forums :
    Inscription : Février 2008
    Messages : 3 900
    Par défaut
    Bonsoir,

    Il ne s'agit pas vraiment d'un template mais d'une macro complémentaire.
    1. insérer le code dans un classeur vierge
    2. enregistrer ce classeur au format xla
    3. activer la macro via le menu Outils --> Macro complémentaire

  6. #6
    Membre confirmé
    Homme Profil pro
    Étudiant
    Inscrit en
    Décembre 2011
    Messages
    93
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Décembre 2011
    Messages : 93
    Par défaut
    merci beaucoup pour cette information .

    je viens de faire ce qu'il faut mais vous pensez qu'il faut adpater le code aussi ?

    pourquoi je vous demande ?

    la macro se lance mais ne donne pas de résultat ou n'agit pas sur le classeur ouvert .

    merci

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [VBA-E]problème d'indice pour macro dans perso.xls
    Par fred38 dans le forum Macros et VBA Excel
    Réponses: 8
    Dernier message: 01/05/2007, 23h33
  2. Un menu dynamique centré compatible toute résolution et IE/FF
    Par Dsphinx dans le forum Mise en page CSS
    Réponses: 3
    Dernier message: 11/04/2007, 10h51
  3. Macro excel perso.xls et évènement commandButton1_click()
    Par Annie dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 30/09/2005, 19h05
  4. [java.sql.Date] format compatible tout sgbd ?
    Par djskyz dans le forum JDBC
    Réponses: 8
    Dernier message: 15/09/2004, 11h28

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo