Motifs de cellule sur fichier Excel sur Internet

Version imprimable

Bonjour à tous,

J'aimerais pouvoir afficher dans mon fichier un chiffre par rapport au motif des cellules d'un fichier Excel se trouvant sur Internet.
Les motifs, que je cherche, ne sont pas des couleurs mais des rayures.

J'ai réussi à faire ma fonction pour une cellule qui se trouve directement dans mon fichier Excel.
Mais lorsque j'essaye de l'adapter, rien ne va plus !!! Ma syntaxe ne doit pas être bonne.

Voici déjà le code qui fonctionne :
Code:

1 2 3 4 5 6 7 8 9 10 11 Sub Macro1() MsgBox ActiveCell.Interior.ColorIndex If ActiveCell.Interior.ColorIndex = "-4105" Then Cells(15, 8).FormulaR1C1 = "essai" Else MsgBox "FAUX" End If End Sub
Le fichier que je voudrais exploiter se trouve sur un serveur Intranet. Je sais que je peux lire des cellules sans l'ouvrir (en faisant "=" + "chemin du fichier") mais comment faire pour les motifs ?!

Merci d'avance

11/07/2006, 15h40
ouskel'n'or

Déjà, si tu n'insères pas une formule, à la place de

Citation:

Cells(15, 8).FormulaR1C1 = "essai"

mets

Code:

Cells(15, 8).Formula = "essai"

mais je ne sais pas si ça résoudra ton problème :(
12/07/2006, 11h43
wanou44
Le problème ne vient pas de là.

Je voudrais changer ça :

Code:

If ActiveCell.Interior.ColorIndex

Par un truc de ce genre là :
Code:

1 2 3 If Workbook("http://...").Sheets("plan de marche").Cells(15, 8).Interior.ColorIndex .
Mais ça ne marche pas, je dois faire une erreur dans la syntaxe et je ne vois pas comment faire.

Pouvez-vous m'aider ?
12/07/2006, 12h06
laloune

Citation:

Envoyé par ouskel'n'or

Code:

Cells(15, 8).Formula = "essai"

personnellement, j'aurais écrit :

Code:

Cells(15,8).Value="essai"

je ne vois pas l'intérêt d'utiliser la propriété Formula juste pour entrer une chaine dans une cellule, cela dit je peux me tromper ;)

laloune
12/07/2006, 14h36
wanou44

J'ai déjà changé :

Code:

Cells(15, 8).Formula = "essai"

Par :

Code:

Range("g78").Value = Val("0.5")

Mais j'ai toujours le problème de l'adresse.
13/07/2006, 08h53
wanou44

Personne une réponse même si je dois créer une fonction ?!