Indice n'arrpatient pas a la selection

[grogoin]

Bonjour a tous,

je débute dans excel. Il y a une erreur al a ligne qui suit mais,
-je ne comprends pas la ligne
-je ne comprends pas l'erreur

temp = Workbooks(Résultatsencours).Sheets("RESULTAT").Range("F6").Value

l'erreur est "l'indice n'appartient pas a la selection"
Résulatsencours est un excel au format .RE qui contient un tableau important de données

Merci et bonne journée a tous!

 

[mutzik]

Re : Indice n'arrpatient pas a la selection

bonjour

Workbooks("Résultatsencours")

sinon, c'est quoi un format .RE

 

[gilbert_RGI]

Re : Indice n'arrpatient pas a la selection

Bonjour
Résultatsencours c'est une variable représentant le nom d'un fichier ou c'est le nom d'un fichier

cette ligne veut dire que l'on donne à la variable temp la valeur de la cellule F6 de la feuille RESULTAT et du fichier certainement Résultatsencours

Résulatsencours est un excel au format .RE ?????????? c'est quoi


Edit : bonjour mutzik

 

[grogoin]

Re : Indice n'arrpatient pas a la selection

Enfaite je crois que le RE c'est un fichier excel mais avec l'extention modifiée.

L'instruction Workbooks("Résultatsencours") ou Workbooks(Résultatsencours) me font la même erreur.

Enfaite cette instruction veut dire que l'on charge le fichier Resultatsencours?

 

[gilbert_RGI]

Re : Indice n'arrpatient pas a la selection

ce fichier peut être ouvert par excel ?

Le type de fichier RE est principalement associé à « Fichier inconnu des Apple II ».

 

[grogoin]

Re : Indice n'arrpatient pas a la selection

oui, c'est un tableau de données lorsqu'on l'ouvre avec Excel, comme un fichier classique

Une instruction comme celle non plus ne marche pas :

Workbooks("Résultatsencours").Windows(1).WindowState = xlMinimized
ou Workbooks(Résultatsencours).Windows(1).WindowState = xlMinimized

 

[gilbert_RGI]

Re : Indice n'arrpatient pas a la selection

essayez cette procédure

modifiez le chemin

Sub test_ouverture()
Workbooks.Open Filename:="C:" _
             & "\Résultatsencours.re", UpdateLinks:=0
    Sheets(1).Select
End Sub