OVH Cloud OVH Cloud

Nom de fichier

6 réponses
Avatar
Christian.L
Bonjour à tous

J'ai dans une procédure la ligne suivante :
While Workbooks(NomAffaire).Sheets(2).Cells(Ligne, 1) <> "fin" 'On demarre
sur le fichier affaire

Or quand
NomAffaire = Nom du fichier seul cela fonctionne

Mais quand
NomAffaire= Nom complet du fichier (chemin+nom) cela ne marche pas
(Erreur d'exécution 9 : Indice n'appartient pas à la sélection)


Que se passe t'il et que faire ?

Merci pour votre aide


C.L.

6 réponses

Avatar
papou
Bonjour
Comment est initiée ta variable NomAffaire ?
Cordialement
Pascal

"Christian.L" a écrit dans le message de
news:
Bonjour à tous

J'ai dans une procédure la ligne suivante :
While Workbooks(NomAffaire).Sheets(2).Cells(Ligne, 1) <> "fin" 'On demarre
sur le fichier affaire

Or quand
NomAffaire = Nom du fichier seul cela fonctionne

Mais quand
NomAffaire= Nom complet du fichier (chemin+nom) cela ne marche pas
(Erreur d'exécution 9 : Indice n'appartient pas à la sélection)


Que se passe t'il et que faire ?

Merci pour votre aide


C.L.



Avatar
Christian.L
Bonjour Papou

RepertAffaire = ActiveWorkbook.Path

Soit NomAffaire = ActiveWorkbook.Name......................pour le nom
simple

Soit NomAffaire = RepertAffaire & "" & NomAffaire........pour le nom
complet

Merci

C.L.

"papou" a écrit dans le message de
news:%
Bonjour
Comment est initiée ta variable NomAffaire ?
Cordialement
Pascal

"Christian.L" a écrit dans le message de
news:
Bonjour à tous

J'ai dans une procédure la ligne suivante :
While Workbooks(NomAffaire).Sheets(2).Cells(Ligne, 1) <> "fin" 'On
demarre


sur le fichier affaire

Or quand
NomAffaire = Nom du fichier seul cela fonctionne

Mais quand
NomAffaire= Nom complet du fichier (chemin+nom) cela ne marche pas
(Erreur d'exécution 9 : Indice n'appartient pas à la sélection)


Que se passe t'il et que faire ?

Merci pour votre aide


C.L.







Avatar
papou
Re
Ben dans ces conditions il ne faut pas concaténer RepertAffaire avec
NomAffaire.
Non ?
Cordialement
Pascal

"Christian.L" a écrit dans le message de
news:u6$
Bonjour Papou

RepertAffaire = ActiveWorkbook.Path

Soit NomAffaire = ActiveWorkbook.Name......................pour le nom
simple

Soit NomAffaire = RepertAffaire & "" & NomAffaire........pour le nom
complet

Merci

C.L.

"papou" a écrit dans le message de
news:%
Bonjour
Comment est initiée ta variable NomAffaire ?
Cordialement
Pascal

"Christian.L" a écrit dans le message de
news:
Bonjour à tous

J'ai dans une procédure la ligne suivante :
While Workbooks(NomAffaire).Sheets(2).Cells(Ligne, 1) <> "fin" 'On
demarre


sur le fichier affaire

Or quand
NomAffaire = Nom du fichier seul cela fonctionne

Mais quand
NomAffaire= Nom complet du fichier (chemin+nom) cela ne marche pas
(Erreur d'exécution 9 : Indice n'appartient pas à la sélection)


Que se passe t'il et que faire ?

Merci pour votre aide


C.L.










Avatar
Christian.L
Re

Oui mais dans ce cas c'est la ligne :
While Workbooks(FichierBible).Sheets(1).Cells(Ligne1, 1) <> "fin"

plus loin dans la procédure qui me sort la même erreur,
et là le fichier "FichierBible" n'est pas dans le même répertoire que
NomAffaire.

C.L.


"papou" a écrit dans le message de
news:
Re
Ben dans ces conditions il ne faut pas concaténer RepertAffaire avec
NomAffaire.
Non ?
Cordialement
Pascal

"Christian.L" a écrit dans le message de
news:u6$
Bonjour Papou

RepertAffaire = ActiveWorkbook.Path

Soit NomAffaire = ActiveWorkbook.Name......................pour le nom
simple

Soit NomAffaire = RepertAffaire & "" & NomAffaire........pour le nom
complet

Merci

C.L.

"papou" a écrit dans le message de
news:%
Bonjour
Comment est initiée ta variable NomAffaire ?
Cordialement
Pascal

"Christian.L" a écrit dans le message
de



news:
Bonjour à tous

J'ai dans une procédure la ligne suivante :
While Workbooks(NomAffaire).Sheets(2).Cells(Ligne, 1) <> "fin" 'On
demarre


sur le fichier affaire

Or quand
NomAffaire = Nom du fichier seul cela fonctionne

Mais quand
NomAffaire= Nom complet du fichier (chemin+nom) cela ne marche pas
(Erreur d'exécution 9 : Indice n'appartient pas à la sélection)


Que se passe t'il et que faire ?

Merci pour votre aide


C.L.














Avatar
michdenis
Bonjour Christian,

Workbooks Représente la collection de tous les classeurs ouverts dans la MÊME instance d'excel.

Lorsque dans du code, tu veux faire référence à un classeur OUVERT en particulier, tu dois le désigner par son nom et oublier
de mentionner son chemin.... Excel n'a pas besoin de retrouver où il est situé sur le disque dur, puisque ce classeur est
déjà ouvert ... l'application Excel sait très bien naviguer entre les fenêtres d'ouvertes au sein de son application et il
sait très bien comment passer d'un classeur à un autre ...

Il en est tout autrement lorsqu'il s'agit d'utiliser la méthode "Open " or SaveAs de l'objet "Workbook où il faut renseigner
le chemin et le nom du classeur.


Salutations!



"Christian.L" a écrit dans le message de news:
Re

Oui mais dans ce cas c'est la ligne :
While Workbooks(FichierBible).Sheets(1).Cells(Ligne1, 1) <> "fin"

plus loin dans la procédure qui me sort la même erreur,
et là le fichier "FichierBible" n'est pas dans le même répertoire que
NomAffaire.

C.L.


"papou" a écrit dans le message de
news:
Re
Ben dans ces conditions il ne faut pas concaténer RepertAffaire avec
NomAffaire.
Non ?
Cordialement
Pascal

"Christian.L" a écrit dans le message de
news:u6$
Bonjour Papou

RepertAffaire = ActiveWorkbook.Path

Soit NomAffaire = ActiveWorkbook.Name......................pour le nom
simple

Soit NomAffaire = RepertAffaire & "" & NomAffaire........pour le nom
complet

Merci

C.L.

"papou" a écrit dans le message de
news:%
Bonjour
Comment est initiée ta variable NomAffaire ?
Cordialement
Pascal

"Christian.L" a écrit dans le message
de



news:
Bonjour à tous

J'ai dans une procédure la ligne suivante :
While Workbooks(NomAffaire).Sheets(2).Cells(Ligne, 1) <> "fin" 'On
demarre


sur le fichier affaire

Or quand
NomAffaire = Nom du fichier seul cela fonctionne

Mais quand
NomAffaire= Nom complet du fichier (chemin+nom) cela ne marche pas
(Erreur d'exécution 9 : Indice n'appartient pas à la sélection)


Que se passe t'il et que faire ?

Merci pour votre aide


C.L.














Avatar
Christian.L
Bonjour

Je me doutais que le problème était de ce genre, sans savoir quelle solution
appliquer

J'ai donc mis en oeuvre ta réponse et cela fonctionne

Merci

C.L.



"michdenis" a écrit dans le message de
news:%
Bonjour Christian,

Workbooks Représente la collection de tous les classeurs ouverts dans la
MÊME instance d'excel.


Lorsque dans du code, tu veux faire référence à un classeur OUVERT en
particulier, tu dois le désigner par son nom et oublier

de mentionner son chemin.... Excel n'a pas besoin de retrouver où il est
situé sur le disque dur, puisque ce classeur est

déjà ouvert ... l'application Excel sait très bien naviguer entre les
fenêtres d'ouvertes au sein de son application et il

sait très bien comment passer d'un classeur à un autre ...

Il en est tout autrement lorsqu'il s'agit d'utiliser la méthode "Open " or
SaveAs de l'objet "Workbook où il faut renseigner

le chemin et le nom du classeur.


Salutations!



"Christian.L" a écrit dans le message de
news:

Re

Oui mais dans ce cas c'est la ligne :
While Workbooks(FichierBible).Sheets(1).Cells(Ligne1, 1) <> "fin"

plus loin dans la procédure qui me sort la même erreur,
et là le fichier "FichierBible" n'est pas dans le même répertoire que
NomAffaire.

C.L.


"papou" a écrit dans le message de
news:
Re
Ben dans ces conditions il ne faut pas concaténer RepertAffaire avec
NomAffaire.
Non ?
Cordialement
Pascal

"Christian.L" a écrit dans le message de
news:u6$
Bonjour Papou

RepertAffaire = ActiveWorkbook.Path

Soit NomAffaire = ActiveWorkbook.Name......................pour le
nom



simple

Soit NomAffaire = RepertAffaire & "" & NomAffaire........pour le nom
complet

Merci

C.L.

"papou" a écrit dans le message de
news:%
Bonjour
Comment est initiée ta variable NomAffaire ?
Cordialement
Pascal

"Christian.L" a écrit dans le message
de



news:
Bonjour à tous

J'ai dans une procédure la ligne suivante :
While Workbooks(NomAffaire).Sheets(2).Cells(Ligne, 1) <> "fin" 'On
demarre


sur le fichier affaire

Or quand
NomAffaire = Nom du fichier seul cela fonctionne

Mais quand
NomAffaire= Nom complet du fichier (chemin+nom) cela ne marche
pas





(Erreur d'exécution 9 : Indice n'appartient pas à la sélection)


Que se passe t'il et que faire ?

Merci pour votre aide


C.L.