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

[Julien12]

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

[iSebi]

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

[rvtoulon]

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

[iSebi]

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