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 ? :oops:

Merci de votre aide !

Bonjour iSebi,

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

Code:

---

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 !

Je pense que c'est plus ca qu'il souhaite...

Code:

---

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

---

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:

---

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 ! :D

Bonjour,

Peut être en mettant

Code:

---

Sheets("Feuil1").Range("C2").Value

---

à la place de

Code:

---

Sheets("Feuil1").Range("C2")

---

?

Cordialement.

ça ne fonctionne pas.. Et je n'arrive pas à trouver mon erreur..

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:

---

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 ^^)

Tu n'avais pas tout à fait tort !
C'est le chemin qui posait problème..

Code:

---

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.. :/

Citation:

---

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

---

peux-tu expliquer...

essaye comme ceci:

Code:

---

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

---

Merci à tous de votre aide !
ça marche très bien ! :)