Discussion :

[wanou44]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ouskel'n'or]

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

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

mets

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

mais je ne sais pas si ça résoudra ton problème

[wanou44]

Le problème ne vient pas de là.

Je voudrais changer ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If ActiveCell.Interior.ColorIndex

Par un truc de ce genre là :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[laloune]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

personnellement, j'aurais écrit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[wanou44]

J'ai déjà changé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Mais j'ai toujours le problème de l'adresse.

[wanou44]

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