Discussion :

[iSebi]

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 !

[Etudiant57]

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 !

[CODYCO]

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

[iSebi]

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 !

[Mr.Mof]

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.

[iSebi]

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