Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel ouverture de fichiers excel

ouverture de fichiers excel

17 réponses
Avatar
PHIL
bonjour,

j'ai dans mon codes VBA,

dans le thisworkbook:
Private Sub WorkBook_Open()
UserForm1.Show
end sub

et dans le:
Private Sub UserForm_Initialize()
Workbooks("image.xls").Activate


si je change mon nom image.xls, du coup ca me genere l'eerreur l'indice
n'est pas dans la selection.
je voudrai pourvoir changer le nom de mon fichier sans pour autant avoir
cette erreur.

j'ai essayé le code que j'ai trouvé dans le fil mais ca bug.

merci
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
LeSteph
Re,Bonjour Phil ,
pour quel autre nom, le fichier est il ouvert, attention comment s'écrit son
nom?

lSteph
"PHIL" a écrit dans le message de news:

bonjour,

j'ai dans mon codes VBA,

dans le thisworkbook:
Private Sub WorkBook_Open()
UserForm1.Show
end sub

et dans le:
Private Sub UserForm_Initialize()
Workbooks("image.xls").Activate


si je change mon nom image.xls, du coup ca me genere l'eerreur l'indice
n'est pas dans la selection.
je voudrai pourvoir changer le nom de mon fichier sans pour autant avoir
cette erreur.

j'ai essayé le code que j'ai trouvé dans le fil mais ca bug.

merci



Avatar
Patrick Fredin
Bonjour,

Si j'ai bien compris ton fichier s'appelle "image.xls".

Pour avoir son nom de manière "interactive", tu utilises ce code :

ThisWorkbook.Name

--
Patrick

"PHIL" wrote in message
news:
bonjour,

j'ai dans mon codes VBA,

dans le thisworkbook:
Private Sub WorkBook_Open()
UserForm1.Show
end sub

et dans le:
Private Sub UserForm_Initialize()
Workbooks("image.xls").Activate


si je change mon nom image.xls, du coup ca me genere l'eerreur l'indice
n'est pas dans la selection.
je voudrai pourvoir changer le nom de mon fichier sans pour autant avoir
cette erreur.

j'ai essayé le code que j'ai trouvé dans le fil mais ca bug.

merci



Avatar
PHIL
meme si je met pas ThisWorkbook.Name
ca marche quand meme.


Bonjour,

Si j'ai bien compris ton fichier s'appelle "image.xls".

Pour avoir son nom de manière "interactive", tu utilises ce code :

ThisWorkbook.Name

--
Patrick

"PHIL" wrote in message
news:
bonjour,

j'ai dans mon codes VBA,

dans le thisworkbook:
Private Sub WorkBook_Open()
UserForm1.Show
end sub

et dans le:
Private Sub UserForm_Initialize()
Workbooks("image.xls").Activate


si je change mon nom image.xls, du coup ca me genere l'eerreur l'indice
n'est pas dans la selection.
je voudrai pourvoir changer le nom de mon fichier sans pour autant avoir
cette erreur.

j'ai essayé le code que j'ai trouvé dans le fil mais ca bug.

merci








Avatar
PHIL
j'ai juste enlever

Workbooks("image.xls").Activatecette igne

et ca fonctionne


Re,Bonjour Phil ,
pour quel autre nom, le fichier est il ouvert, attention comment s'écrit son
nom?

lSteph
"PHIL" a écrit dans le message de news:

bonjour,

j'ai dans mon codes VBA,

dans le thisworkbook:
Private Sub WorkBook_Open()
UserForm1.Show
end sub

et dans le:
Private Sub UserForm_Initialize()
Workbooks("image.xls").Activate


si je change mon nom image.xls, du coup ca me genere l'eerreur l'indice
n'est pas dans la selection.
je voudrai pourvoir changer le nom de mon fichier sans pour autant avoir
cette erreur.

j'ai essayé le code que j'ai trouvé dans le fil mais ca bug.

merci








Avatar
Patrick Fredin
C'est normal puisque tu viens d'ouvrir le fichier.

--
Patrick

"PHIL" wrote in message
news:
meme si je met pas ThisWorkbook.Name
ca marche quand meme.


Bonjour,

Si j'ai bien compris ton fichier s'appelle "image.xls".

Pour avoir son nom de manière "interactive", tu utilises ce code :

ThisWorkbook.Name

--
Patrick

"PHIL" wrote in message
news:
bonjour,

j'ai dans mon codes VBA,

dans le thisworkbook:
Private Sub WorkBook_Open()
UserForm1.Show
end sub

et dans le:
Private Sub UserForm_Initialize()
Workbooks("image.xls").Activate


si je change mon nom image.xls, du coup ca me genere l'eerreur l'indice
n'est pas dans la selection.
je voudrai pourvoir changer le nom de mon fichier sans pour autant
avoir
cette erreur.

j'ai essayé le code que j'ai trouvé dans le fil mais ca bug.

merci










Avatar
Clément Marcotte
Que veux-tu, c'est un con.


"Patrick Fredin" a écrit dans le
message de news:
C'est normal puisque tu viens d'ouvrir le fichier.

--
Patrick

"PHIL" wrote in message
news:
meme si je met pas ThisWorkbook.Name
ca marche quand meme.


Bonjour,

Si j'ai bien compris ton fichier s'appelle "image.xls".

Pour avoir son nom de manière "interactive", tu utilises ce code
:




ThisWorkbook.Name

--
Patrick

"PHIL" wrote in message
news:
bonjour,

j'ai dans mon codes VBA,

dans le thisworkbook:
Private Sub WorkBook_Open()
UserForm1.Show
end sub

et dans le:
Private Sub UserForm_Initialize()
Workbooks("image.xls").Activate


si je change mon nom image.xls, du coup ca me genere l'eerreur
l'indice




n'est pas dans la selection.
je voudrai pourvoir changer le nom de mon fichier sans pour
autant




avoir
cette erreur.

j'ai essayé le code que j'ai trouvé dans le fil mais ca bug.

merci














Avatar
Père Fouras
bonjour JEAN-PHIL

pour info, à mettre dans un module standard :

' ***************************
Sub On_ne_nous_la_fait_pas()
' Renomme JEAN en PHIL
Dim TxtE1, TxtE2, TxtE3, TxtE4, TxtS$, EntE, EntS$
EntE = Array("", 74, 101, 97, 110, 44, 32, 111, 110, 32, 116, 39, 97, 115,
32, _
114, 101, 99, 111, 110, 110, 117, 46, 46, 46)
TxtE1 = Array("", 66, 111, 110, 115, 111, 105, 114, 32, 74, 69, 65 _
, 78, 44, 10, 10, 73, 108, 32, 101, 115, 116, 32, 73 _
, 78, 85, 84, 73, 76, 69, 44, 32, 118, 111, 105, 114, 101, 32, 100, 233, 99,
111, 110, 115, 101, 105 _
, 108, 108, 233, 32, 100, 101, 32, 99, 104, 97, 110, 103, 101, 114, 32, 100,
101, 32, 80, 115, 101 _
, 117, 100, 111, 44, 32, 108, 97, 32, 112, 114, 101, 117, 118, 101, 44, 32,
116, 117, 32, 101, 115 _
, 32, 100, 233, 106, 224, 32, 100, 233, 109, 97, 115, 113, 117, 233, 32,
101, 116, 32, 115, 105, 32 _
, 116, 117, 32, 116, 39, 101, 115, 32, 112, 101, 114, 109, 105, 115, 32,
100, 39, 101, 110, 32, 99 _
, 104, 97, 110, 103, 233, 44, 32, 99, 39, 101, 115, 116, 32, 113, 117)
TxtE2 = Array("", 101, 32, 116, 117, 32, 116 _
, 101, 32, 114, 101, 110, 100, 115, 32, 99, 111, 109, 112, 116, 101, 32,
113, 117, 101, 32, 116 _
, 117, 32, 101, 110, 32, 100, 101, 109, 97, 110, 100, 101, 32, 117, 110, 32,
112, 101, 117, 32 _
, 116, 114, 111, 112, 32, 97, 117, 32, 99, 111, 110, 116, 114, 105, 98, 117,
116, 101, 117, 114 _
, 115, 32, 98, 233, 110, 233, 118, 111, 108, 101, 115, 46, 46, 46, 10, 85,
110, 32, 102, 111, 114 _
, 117, 109, 32, 110, 39, 101, 115, 116, 32, 112, 97, 115, 32, 108, 224, 32,
112, 111, 117, 114, 32 _
, 100, 233, 118, 101, 108, 111, 112, 112, 101, 114, 32, 117, 110, 101, 32,
97, 112, 112, 108, 105 _
, 99, 97, 116, 105, 111, 110, 32, 99, 111, 109, 112, 108, 232, 116, 101, 44,
32, 109, 97, 105, 115 _
, 32, 112, 111, 117, 114, 32, 114, 233, 112, 111, 110, 100, 114, 101, 32,
112, 111, 110, 99, 116, _
117, 101, 108, 108, 101, 109, 101, 110, 116, 32, 97, 117, 120, 32, 97, 116,
116, 101, 110, 116, _
101, 115, 32, 100, 39, 101, 120, 99, 101, 108, 108, 105, 101, 110, 115, 32,
98, 108, 111, 113, 117 _
, 233, 115, 46, 46, 46, 10, 78, 101, 32, 112, 111, 115, 101, 32, 112, 97,
115, 32, 53, 32, 102, 111 _
, 105, 115, 32, 108, 97, 32, 109, 234)
TxtE3 = Array("", 109, 101, 32, 113, 117, 101, 115, 116, 105, 111, 110, 32,
115 _
, 117, 114, 32, 53, 32, 102, 105, 108, 115, 32, 100, 105, 102, 102, 233,
114, 101, 110, 116, 115, 44 _
, 32, 99, 101, 108, 97, 32, 97, 103, 97, 99, 101, 32, 98, 101, 97, 117, 99,
111, 117, 112, 32, 100, 101 _
, 32, 99, 111, 110, 116, 114, 105, 98, 117, 116, 101, 117, 114, 115, 32,
104, 97, 98, 105, 116, 117 _
, 101, 108, 115, 46, 46, 46, 10, 10, 77, 101, 114, 99, 105, 32, 100, 101,
32, 115, 117, 105, 118, 114 _
, 101, 32, 99, 101, 115, 32, 99, 111, 110, 115, 101, 105, 108, 115, 46, 10,
10, 80, 232, 114, 101, 32, _
70, 111, 117, 114, 97, 115, 10)
For n = 1 To UBound(EntE)
EntS = EntS & Chr(EntE(n))
Next
For n = 1 To UBound(TxtE1)
TxtS = TxtS & Chr(TxtE1(n))
Next
For n = 1 To UBound(TxtE2)
TxtS = TxtS & Chr(TxtE2(n))
Next
For n = 1 To UBound(TxtE3)
TxtS = TxtS & Chr(TxtE3(n))
Next
MsgBox TxtS, , EntS
End Sub
' ***************************
"PHIL" a écrit dans le message de news:

bonjour,

j'ai dans mon codes VBA,

dans le thisworkbook:
Private Sub WorkBook_Open()
UserForm1.Show
end sub

et dans le:
Private Sub UserForm_Initialize()
Workbooks("image.xls").Activate


si je change mon nom image.xls, du coup ca me genere l'eerreur l'indice
n'est pas dans la selection.
je voudrai pourvoir changer le nom de mon fichier sans pour autant avoir
cette erreur.

j'ai essayé le code que j'ai trouvé dans le fil mais ca bug.

merci



Avatar
Frédéric Sigonneau
Fier de toi ?

FS
---
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://frederic.sigonneau.free.fr
Si votre question sur Excel est urgente, évitez ma bal !

Que veux-tu, c'est un con.


"Patrick Fredin" a écrit dans le
message de news:

C'est normal puisque tu viens d'ouvrir le fichier.

--
Patrick

"PHIL" wrote in message
news:

meme si je met pas ThisWorkbook.Name
ca marche quand meme.



Bonjour,

Si j'ai bien compris ton fichier s'appelle "image.xls".

Pour avoir son nom de manière "interactive", tu utilises ce code




:

ThisWorkbook.Name

--
Patrick

"PHIL" wrote in message
news:

bonjour,

j'ai dans mon codes VBA,

dans le thisworkbook:
Private Sub WorkBook_Open()
UserForm1.Show
end sub

et dans le:
Private Sub UserForm_Initialize()
Workbooks("image.xls").Activate


si je change mon nom image.xls, du coup ca me genere l'eerreur





l'indice

n'est pas dans la selection.
je voudrai pourvoir changer le nom de mon fichier sans pour





autant

avoir
cette erreur.

j'ai essayé le code que j'ai trouvé dans le fil mais ca bug.

merci
















Avatar
Clément Marcotte
Chez nous, pas nécessaire d'être invitable à un dîner de cons pour
mériter le qualificatif de con. S'il faut qu'à chaque fois que l'on
utilise une épithète quelconque faut sortir une "échelle des
différences d'appréciation entre les Français et le reste du monde",
on n'en sortira jamais. D'autant plus que les choqués Français sont
bien différents des choqués Québécois.


"Frédéric Sigonneau" a écrit dans le
message de news:O%
Fier de toi ?

FS
---
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://frederic.sigonneau.free.fr
Si votre question sur Excel est urgente, évitez ma bal !

Que veux-tu, c'est un con.


"Patrick Fredin" a écrit dans
le


message de news:

C'est normal puisque tu viens d'ouvrir le fichier.

--
Patrick

"PHIL" wrote in message
news:

meme si je met pas ThisWorkbook.Name
ca marche quand meme.



Bonjour,

Si j'ai bien compris ton fichier s'appelle "image.xls".

Pour avoir son nom de manière "interactive", tu utilises ce code




:

ThisWorkbook.Name

--
Patrick

"PHIL" wrote in message
news:

bonjour,

j'ai dans mon codes VBA,

dans le thisworkbook:
Private Sub WorkBook_Open()
UserForm1.Show
end sub

et dans le:
Private Sub UserForm_Initialize()
Workbooks("image.xls").Activate


si je change mon nom image.xls, du coup ca me genere l'eerreur





l'indice

n'est pas dans la selection.
je voudrai pourvoir changer le nom de mon fichier sans pour





autant

avoir
cette erreur.

j'ai essayé le code que j'ai trouvé dans le fil mais ca bug.

merci


















Avatar
verificator
Clément,

je ne comprends ce que viennent faire régulièrement dans
ton discours les mots "Québec", "Français", "la haine du
reste du monde à l'égard des Français" dès qu'un problème
surgit avec un intervenant.
Je n'ai jamais perçu ici une façon de penser
spécifiquement française, québecoise, belge, tunisienne
ou marocaine (j'en oublie...). En France, pour 60
millions de Français, il doit y avoir pas loin de 60
millions de manières de penser (ou de ne pas penser, si
tu veux, pour aller dans ton sens).
Quant aux mots "con, vieux débris", ce sont effectivement
des qualificatifs, mais aussi des insultes (et ce, dans
tous les pays (?)).

amicalement,

un citoyen du monde

-----Original Message-----
Chez nous, pas nécessaire d'être invitable à un dîner de
cons pour

mériter le qualificatif de con. S'il faut qu'à chaque
fois que l'on

utilise une épithète quelconque faut sortir une "échelle
des

différences d'appréciation entre les Français et le
reste du monde",

on n'en sortira jamais. D'autant plus que les choqués
Français sont

bien différents des choqués Québécois.


"Frédéric Sigonneau" a
écrit dans le

message de news:O%
Fier de toi ?

FS
---
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://frederic.sigonneau.free.fr
Si votre question sur Excel est urgente, évitez ma
bal !



Que veux-tu, c'est un con.


"Patrick Fredin"
a écrit dans



le
message de
news:




C'est normal puisque tu viens d'ouvrir le fichier.

--
Patrick

"PHIL" wrote in
message




news:0616E4D8-EB6C-4F91-B38F-






meme si je met pas ThisWorkbook.Name
ca marche quand meme.



Bonjour,

Si j'ai bien compris ton fichier
s'appelle "image.xls".







Pour avoir son nom de manière "interactive", tu
utilises ce code







:

ThisWorkbook.Name

--
Patrick

"PHIL" wrote in
message






news:8A3D1226-97C2-47F6-A2A9-








bonjour,

j'ai dans mon codes VBA,

dans le thisworkbook:
Private Sub WorkBook_Open()
UserForm1.Show
end sub

et dans le:
Private Sub UserForm_Initialize()
Workbooks("image.xls").Activate


si je change mon nom image.xls, du coup ca me
genere l'eerreur








l'indice

n'est pas dans la selection.
je voudrai pourvoir changer le nom de mon fichier
sans pour








autant

avoir
cette erreur.

j'ai essayé le code que j'ai trouvé dans le fil
mais ca bug.








merci













.









1 2