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 :

Problème programme VBA [XL-2003]


Sujet :

Macros et VBA Excel

  1. #1
    Membre à l'essai
    Homme Profil pro
    Inscrit en
    Mai 2012
    Messages
    5
    Détails du profil
    Informations personnelles :
    Sexe : Homme

    Informations forums :
    Inscription : Mai 2012
    Messages : 5
    Par défaut Problème programme VBA
    Bonjour à tous,

    Petit problème sous Excel 2003 pour un programme en VBA..

    Je souhaite que dans un classeur où ma macro est créée, d'aller vérifier la valeur d'une cellule d'un autre classeur préalablement ouvert.. Et si la valeur de la cellule de cet autre classeur est égale à 1, du texte s'écrit dans la cellule de mon choix dans le classeur source.. Suis-je suffisament clair ?

    Merci de votre aide !

  2. #2
    Membre confirmé
    Homme Profil pro
    Étudiant
    Inscrit en
    Janvier 2012
    Messages
    127
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Santé

    Informations forums :
    Inscription : Janvier 2012
    Messages : 127
    Par défaut
    Bonjour iSebi,

    Je pense que le code que tu cherches peut s'approcher de ça :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    Var_Chemin = "D:\TonClasseuràchercher.xls" 
    Fichier1 = ActiveWorkbook.Name 
    Workbooks.Open Var_Chemin, 0, ReadOnly:=True
    Workbooks(TonClasseuràchercher).Sheets("Feuil1").Range("Tacellule").Copy
    Workbooks(TonClasseur).Sheets("Feuill1").Range("Tacellule") = ("String")
    J'ai fais ça vite fait et de tête je ne sais pas si ca fonctionnera !

    A adapté j'imagine !

  3. #3
    Membre expérimenté Avatar de CODYCO
    Homme Profil pro
    Webplanneur
    Inscrit en
    Avril 2009
    Messages
    217
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Webplanneur
    Secteur : Bâtiment

    Informations forums :
    Inscription : Avril 2009
    Messages : 217
    Par défaut
    Je pense que c'est plus ca qu'il souhaite...

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
     
    If Workbooks(TonClasseurqueTuAsOuvert).Sheets("Feuil1").Range("Tacellule")=1 Then
    ActiveSheet.Range(Cellule de ton choix)="Texte de ton choix"
    End If

  4. #4
    Membre à l'essai
    Homme Profil pro
    Inscrit en
    Mai 2012
    Messages
    5
    Détails du profil
    Informations personnelles :
    Sexe : Homme

    Informations forums :
    Inscription : Mai 2012
    Messages : 5
    Par défaut
    Oui le deuxième code est le plus adapté je pense ! Merci à vous, cependant, je n'arrive pas à le faire fonctionner.. Quel est le problème selon vous ?

    Voivi mon code :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    Sub essai()
     
    If Workbooks("C:\Documents and Settings\sebastien.allais\Mes documents\Stage ALLAIS\Programme\TableauMoldShop.xls").Sheets("Feuil1").Range("C2") = 1 Then
    ActiveSheet.Range("A1") = "ça ne fonctionne pas"
    End If
     
    End Sub
    Merci !

  5. #5
    Membre expérimenté
    Homme Profil pro
    Étudiant
    Inscrit en
    Mai 2012
    Messages
    191
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Essonne (Île de France)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : High Tech - Électronique et micro-électronique

    Informations forums :
    Inscription : Mai 2012
    Messages : 191
    Par défaut
    Bonjour,

    Peut être en mettant
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Sheets("Feuil1").Range("C2").Value
    à la place de
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Sheets("Feuil1").Range("C2")
    ?

    Cordialement.

  6. #6
    Membre à l'essai
    Homme Profil pro
    Inscrit en
    Mai 2012
    Messages
    5
    Détails du profil
    Informations personnelles :
    Sexe : Homme

    Informations forums :
    Inscription : Mai 2012
    Messages : 5
    Par défaut
    ça ne fonctionne pas.. Et je n'arrive pas à trouver mon erreur..

  7. #7
    Membre averti
    Homme Profil pro
    Étudiant
    Inscrit en
    Mai 2012
    Messages
    18
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Aéronautique - Marine - Espace - Armement

    Informations forums :
    Inscription : Mai 2012
    Messages : 18
    Par défaut
    C'est peut être une idée à la con mais...il aime les chemins avec des espaces Excel ? Mes Documents notamment ?

    Essais Sub essai()

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    If Workbooks("C:\Documents and Settings\sebastien.allais\Mes documents\Stage ALLAIS\Programme\TableauMoldShop.xls").Sheets("Feuil1").Range("C2") = 1 Then
    MsgBox "test"
    End If
    Et son voisin avec Value.
    Si la MsgBox t'affiche rien, c'est que le soucis se trouve soit dans le lien, soit dans la feuil (feuil 1 existe bien ?) soit dans le s de workbooks (car j'ai toujours un doute ^^)

  8. #8
    Membre à l'essai
    Homme Profil pro
    Inscrit en
    Mai 2012
    Messages
    5
    Détails du profil
    Informations personnelles :
    Sexe : Homme

    Informations forums :
    Inscription : Mai 2012
    Messages : 5
    Par défaut
    Tu n'avais pas tout à fait tort !
    C'est le chemin qui posait problème..
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    Sub essai()
     
    If Workbooks("TableauMoldShop.xls").Sheets("Assemblage coquille").Range("C2") = 1 Then
    MsgBox "test"
    End If
     
    End Sub
    Là, ça marche !

    Merci bien !

    [EDIT]
    Ah non.. ça à fonctionné 2 fois et retour à la case départ.. :/

  9. #9
    Membre Expert Avatar de rvtoulon
    Homme Profil pro
    Agent Technique
    Inscrit en
    Mars 2009
    Messages
    1 042
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 49
    Localisation : France, Var (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Agent Technique
    Secteur : Santé

    Informations forums :
    Inscription : Mars 2009
    Messages : 1 042
    Par défaut
    Ah non.. ça à fonctionné 2 fois et retour à la case départ.. :/
    peux-tu expliquer...

    essaye comme ceci:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    Sub test()
    Dim wkdest As Workbook
     
    'définie le classeur de recherche
    Set wkdest = Workbooks("TableauMoldShop.xls")
     
    wkdest.Activate 'active le classeur de recherche
     
    With wkdest
    If .Sheets("Assemblage coquille").Range("C2") = 1 Then
    MsgBox "test"
    End If
    End With
    End Sub

  10. #10
    Membre à l'essai
    Homme Profil pro
    Inscrit en
    Mai 2012
    Messages
    5
    Détails du profil
    Informations personnelles :
    Sexe : Homme

    Informations forums :
    Inscription : Mai 2012
    Messages : 5
    Par défaut
    Merci à tous de votre aide !
    ça marche très bien !

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

Discussions similaires

  1. [XL-2003] Problème programmation VBA débutant :)
    Par Doby77 dans le forum Macros et VBA Excel
    Réponses: 24
    Dernier message: 13/11/2014, 10h20
  2. problème programmation VBA
    Par skippy80 dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 27/09/2013, 23h56
  3. Problème programme VBA
    Par folledebrune dans le forum Macros et VBA Excel
    Réponses: 7
    Dernier message: 09/03/2012, 10h17
  4. Problème programmation objet
    Par Contrec dans le forum MFC
    Réponses: 54
    Dernier message: 30/03/2005, 11h30
  5. problème avec VBA
    Par Delph dans le forum Langage
    Réponses: 2
    Dernier message: 19/08/2002, 13h15

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