définition du nom de fichier

Le
Bruno RCSC
Bonsoir,

Win XP, Excel 2002

Je ne comprends pas pourquoi ces quelques lignes ne fonctionnent pas :
Dim nomdefichier As String
ChDir "C:BH\facturation"
nomdefichier = InputBox("Saisir le nom du fichier", "", "week du .xls")
Je complète le nom du fichier.
Workbooks.Open Filename:=nomdefichier, Origin:=xlWindows
Ok, jusque là, le fichier s'ouvre impeccable.
Puis je veux activer un autre classeur ouvert
Windows("stat1.xls").Activate (j'ai essayé ActiveWindow.ActivateNext)
Et, là, il ne se passe rien.
Pourquoi ?
Pour info, quand j'ajoute MsgBox (nomdefichier) rien ne s'affiche.

Merci pour votre aide.

BH
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses Page 1 / 2
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Philippe.R
Le #4978381
Bonjour,
essaie avec :
Windows("stat1").Activate
en l'appelant juste par son prénom (sans le traiter de .xls)
J'ai juste ?
--
http://www.excelabo.net/mpfe/connexion.php
http://dj.joss.free.fr/trombine.htm
Avec plaisir
Philippe.R
"Bruno RCSC" news:47091874$0$5105$
Bonsoir,

Win XP, Excel 2002

Je ne comprends pas pourquoi ces quelques lignes ne fonctionnent pas :
Dim nomdefichier As String
ChDir "C:BH\facturation"
nomdefichier = InputBox("Saisir le nom du fichier", "", "week du .xls")
Je complète le nom du fichier.
Workbooks.Open Filename:=nomdefichier, Origin:=xlWindows
Ok, jusque là, le fichier s'ouvre impeccable.
Puis je veux activer un autre classeur ouvert
Windows("stat1.xls").Activate (j'ai essayé ActiveWindow.ActivateNext)
Et, là, il ne se passe rien.
Pourquoi ?
Pour info, quand j'ajoute MsgBox (nomdefichier) rien ne s'affiche.

Merci pour votre aide.

BH



Bruno RCSC
Le #4977991
Bonsoir Philippe,

Malheureusement, non, cela ne donne rien.
Je sèche complètement. Mon fichier s'ouvre parfaitement mais après on dirait
que je sors de la macro.
Par exemple avec le code ci dessous, le fichier s'ouvre mais je n'obtiens
par 78 en G5.
Dim nomdefichier As String
ChDir "C:BHfacturation"
nomdefichier = InputBox("Saisir le nom du fichier", "", "week du .xls")
Workbooks.Open Filename:=nomdefichier, Origin:=xlWindows
Range("G5").Value = 78

D'autres pistes ?
Merci
BH.


--
Bonjour,
essaie avec :
Windows("stat1").Activate
en l'appelant juste par son prénom (sans le traiter de .xls)
J'ai juste ?
--
Avec plaisir
Philippe.R



Bonsoir,

Win XP, Excel 2002

Je ne comprends pas pourquoi ces quelques lignes ne fonctionnent pas :
Dim nomdefichier As String
ChDir "C:BH\facturation"
nomdefichier = InputBox("Saisir le nom du fichier", "", "week du
.xls")
Je complète le nom du fichier.
Workbooks.Open Filename:=nomdefichier, Origin:=xlWindows
Ok, jusque là, le fichier s'ouvre impeccable.
Puis je veux activer un autre classeur ouvert
Windows("stat1.xls").Activate (j'ai essayé ActiveWindow.ActivateNext)
Et, là, il ne se passe rien.
Pourquoi ?
Pour info, quand j'ajoute MsgBox (nomdefichier) rien ne s'affiche.

Merci pour votre aide.

BH






isabelle
Le #4977971
bonjour Bruno,

est ce que la macro se situe dans le classeur "stat1.xls" ?
est ce que "week du .xls" s'ouvre dans la même application (instance) ?

isabelle

Bonsoir Philippe,

Malheureusement, non, cela ne donne rien.
Je sèche complètement. Mon fichier s'ouvre parfaitement mais après on dirait
que je sors de la macro.
Par exemple avec le code ci dessous, le fichier s'ouvre mais je n'obtiens
par 78 en G5.
Dim nomdefichier As String
ChDir "C:BHfacturation"
nomdefichier = InputBox("Saisir le nom du fichier", "", "week du .xls")
Workbooks.Open Filename:=nomdefichier, Origin:=xlWindows
Range("G5").Value = 78

D'autres pistes ?
Merci
BH.




Bruno RCSC
Le #4977941
Bonsoir,

Non, je suis en "test" la macro est lancée par CTRL+MAJ+M à partir d'un
fichier qui se nomme macro1.xls
Mon objectif semble simple :
L'utilisateur ouvre un fichier dont il choisit le nom puis la macro active
un autre fichier (qui est déjà ouvert, la macro finale sera dans Perso.xls)
pour copier des données.

BH


bonjour Bruno,

est ce que la macro se situe dans le classeur "stat1.xls" ?
est ce que "week du .xls" s'ouvre dans la même application (instance) ?

isabelle

Bonsoir Philippe,

Malheureusement, non, cela ne donne rien.
Je sèche complètement. Mon fichier s'ouvre parfaitement mais après on
dirait que je sors de la macro.
Par exemple avec le code ci dessous, le fichier s'ouvre mais je n'obtiens
par 78 en G5.
Dim nomdefichier As String
ChDir "C:BHfacturation"
nomdefichier = InputBox("Saisir le nom du fichier", "", "week du
.xls")
Workbooks.Open Filename:=nomdefichier, Origin:=xlWindows
Range("G5").Value = 78

D'autres pistes ?
Merci
BH.





isabelle
Le #4977931
bonjour Bruno,

essai avec,

With Application
.Workbooks.Open Filename:=nomdefichier, Origin:=xlWindows
End With
Workbooks("macro1.xls").Activate

isabelle


Bonsoir,

Non, je suis en "test" la macro est lancée par CTRL+MAJ+M à partir d'un
fichier qui se nomme macro1.xls
Mon objectif semble simple :
L'utilisateur ouvre un fichier dont il choisit le nom puis la macro active
un autre fichier (qui est déjà ouvert, la macro finale sera dans Perso.xls)
pour copier des données.

BH



bonjour Bruno,

est ce que la macro se situe dans le classeur "stat1.xls" ?
est ce que "week du .xls" s'ouvre dans la même application (instance) ?

isabelle


Bonsoir Philippe,

Malheureusement, non, cela ne donne rien.
Je sèche complètement. Mon fichier s'ouvre parfaitement mais après on
dirait que je sors de la macro.
Par exemple avec le code ci dessous, le fichier s'ouvre mais je n'obtiens
par 78 en G5.
Dim nomdefichier As String
ChDir "C:BHfacturation"
nomdefichier = InputBox("Saisir le nom du fichier", "", "week du
.xls")
Workbooks.Open Filename:=nomdefichier, Origin:=xlWindows
Range("G5").Value = 78

D'autres pistes ?
Merci
BH.









Bruno RCSC
Le #4977801
Bonsoir Isabelle,

Je viens d'essayer ta proposition.
Cela ne fonctionne pas.
Je ne comprends pas, je vais me résoudre à utiliser
Application.Dialogs(xlDialogOpen).Show
Dans ce cas, ma macro continue normalement mais au bout d'un an, apparaîtra
plus de 52 fichiers dans la boite.

Je suis prêt à tester d'autres idées.

Merci
BH


bonjour Bruno,

essai avec,

With Application
.Workbooks.Open Filename:=nomdefichier, Origin:=xlWindows
End With
Workbooks("macro1.xls").Activate

isabelle


Bonsoir,

Non, je suis en "test" la macro est lancée par CTRL+MAJ+M à partir d'un
fichier qui se nomme macro1.xls
Mon objectif semble simple :
L'utilisateur ouvre un fichier dont il choisit le nom puis la macro
active un autre fichier (qui est déjà ouvert, la macro finale sera dans
Perso.xls) pour copier des données.

BH



bonjour Bruno,

est ce que la macro se situe dans le classeur "stat1.xls" ?
est ce que "week du .xls" s'ouvre dans la même application (instance) ?

isabelle


Bonsoir Philippe,

Malheureusement, non, cela ne donne rien.
Je sèche complètement. Mon fichier s'ouvre parfaitement mais après on
dirait que je sors de la macro.
Par exemple avec le code ci dessous, le fichier s'ouvre mais je
n'obtiens par 78 en G5.
Dim nomdefichier As String
ChDir "C:BHfacturation"
nomdefichier = InputBox("Saisir le nom du fichier", "", "week du
.xls")
Workbooks.Open Filename:=nomdefichier, Origin:=xlWindows
Range("G5").Value = 78

D'autres pistes ?
Merci
BH.










isabelle
Le #4977761
bonjour Bruno,

si tu selectionne au menu, Fenêtre
est ce que tu voie le nom de tous les classeurs ouvert ?

http://cjoint.com/?kiwPSI5yTF

isabelle


Bonsoir Isabelle,

Je viens d'essayer ta proposition.
Cela ne fonctionne pas.
Je ne comprends pas, je vais me résoudre à utiliser
Application.Dialogs(xlDialogOpen).Show
Dans ce cas, ma macro continue normalement mais au bout d'un an, apparaîtra
plus de 52 fichiers dans la boite.

Je suis prêt à tester d'autres idées.

Merci
BH



bonjour Bruno,

essai avec,

With Application
.Workbooks.Open Filename:=nomdefichier, Origin:=xlWindows
End With
Workbooks("macro1.xls").Activate

isabelle



Bonsoir,

Non, je suis en "test" la macro est lancée par CTRL+MAJ+M à partir d'un
fichier qui se nomme macro1.xls
Mon objectif semble simple :
L'utilisateur ouvre un fichier dont il choisit le nom puis la macro
active un autre fichier (qui est déjà ouvert, la macro finale sera dans
Perso.xls) pour copier des données.

BH




bonjour Bruno,

est ce que la macro se situe dans le classeur "stat1.xls" ?
est ce que "week du .xls" s'ouvre dans la même application (instance) ?

isabelle



Bonsoir Philippe,

Malheureusement, non, cela ne donne rien.
Je sèche complètement. Mon fichier s'ouvre parfaitement mais après on
dirait que je sors de la macro.
Par exemple avec le code ci dessous, le fichier s'ouvre mais je
n'obtiens par 78 en G5.
Dim nomdefichier As String
ChDir "C:BHfacturation"
nomdefichier = InputBox("Saisir le nom du fichier", "", "week du
.xls")
Workbooks.Open Filename:=nomdefichier, Origin:=xlWindows
Range("G5").Value = 78

D'autres pistes ?
Merci
BH.













Bruno RCSC
Le #4977691
Oui, je vois les classeurs.
J'ai même essayé sur un autre micro, même chose.
Le phénomène est bizarre, le fichier s'ouvre et il semblerait qu'il faille
d'abord cliquer dans une cellule pour "récupérer" la main.

Cordialement.

BH


bonjour Bruno,

si tu selectionne au menu, Fenêtre
est ce que tu voie le nom de tous les classeurs ouvert ?

http://cjoint.com/?kiwPSI5yTF

isabelle


Bonsoir Isabelle,

Je viens d'essayer ta proposition.
Cela ne fonctionne pas.
Je ne comprends pas, je vais me résoudre à utiliser
Application.Dialogs(xlDialogOpen).Show
Dans ce cas, ma macro continue normalement mais au bout d'un an,
apparaîtra plus de 52 fichiers dans la boite.

Je suis prêt à tester d'autres idées.

Merci
BH



bonjour Bruno,

essai avec,

With Application
.Workbooks.Open Filename:=nomdefichier, Origin:=xlWindows
End With
Workbooks("macro1.xls").Activate

isabelle



Bonsoir,

Non, je suis en "test" la macro est lancée par CTRL+MAJ+M à partir d'un
fichier qui se nomme macro1.xls
Mon objectif semble simple :
L'utilisateur ouvre un fichier dont il choisit le nom puis la macro
active un autre fichier (qui est déjà ouvert, la macro finale sera dans
Perso.xls) pour copier des données.

BH




bonjour Bruno,

est ce que la macro se situe dans le classeur "stat1.xls" ?
est ce que "week du .xls" s'ouvre dans la même application (instance) ?

isabelle



Bonsoir Philippe,

Malheureusement, non, cela ne donne rien.
Je sèche complètement. Mon fichier s'ouvre parfaitement mais après on
dirait que je sors de la macro.
Par exemple avec le code ci dessous, le fichier s'ouvre mais je
n'obtiens par 78 en G5.
Dim nomdefichier As String
ChDir "C:BHfacturation"
nomdefichier = InputBox("Saisir le nom du fichier", "", "week du
.xls")
Workbooks.Open Filename:=nomdefichier, Origin:=xlWindows
Range("G5").Value = 78

D'autres pistes ?
Merci
BH.















isabelle
Le #4977681
bonjour Bruno,

essaie comme ça,

Application.Goto Workbooks(""stat1.xls"").Sheets("Feuil1").Range("A1")
en adaptant le nom de la feuille.

isabelle

Oui, je vois les classeurs.
J'ai même essayé sur un autre micro, même chose.
Le phénomène est bizarre, le fichier s'ouvre et il semblerait qu'il faille
d'abord cliquer dans une cellule pour "récupérer" la main.

Cordialement.

BH



bonjour Bruno,

si tu selectionne au menu, Fenêtre
est ce que tu voie le nom de tous les classeurs ouvert ?

http://cjoint.com/?kiwPSI5yTF

isabelle



Bonsoir Isabelle,

Je viens d'essayer ta proposition.
Cela ne fonctionne pas.
Je ne comprends pas, je vais me résoudre à utiliser
Application.Dialogs(xlDialogOpen).Show
Dans ce cas, ma macro continue normalement mais au bout d'un an,
apparaîtra plus de 52 fichiers dans la boite.

Je suis prêt à tester d'autres idées.

Merci
BH




bonjour Bruno,

essai avec,

With Application
.Workbooks.Open Filename:=nomdefichier, Origin:=xlWindows
End With
Workbooks("macro1.xls").Activate

isabelle




Bonsoir,

Non, je suis en "test" la macro est lancée par CTRL+MAJ+M à partir d'un
fichier qui se nomme macro1.xls
Mon objectif semble simple :
L'utilisateur ouvre un fichier dont il choisit le nom puis la macro
active un autre fichier (qui est déjà ouvert, la macro finale sera dans
Perso.xls) pour copier des données.

BH





bonjour Bruno,

est ce que la macro se situe dans le classeur "stat1.xls" ?
est ce que "week du .xls" s'ouvre dans la même application (instance) ?

isabelle




Bonsoir Philippe,

Malheureusement, non, cela ne donne rien.
Je sèche complètement. Mon fichier s'ouvre parfaitement mais après on
dirait que je sors de la macro.
Par exemple avec le code ci dessous, le fichier s'ouvre mais je
n'obtiens par 78 en G5.
Dim nomdefichier As String
ChDir "C:BHfacturation"
nomdefichier = InputBox("Saisir le nom du fichier", "", "week du
.xls")
Workbooks.Open Filename:=nomdefichier, Origin:=xlWindows
Range("G5").Value = 78

D'autres pistes ?
Merci
BH.



















isabelle
Le #4977671
correction pour simple guillemet,

Application.Goto Workbooks("stat1.xls").Sheets("Feuil1").Range("A1")

isabelle


bonjour Bruno,

essaie comme ça,

Application.Goto Workbooks(""stat1.xls"").Sheets("Feuil1").Range("A1")
en adaptant le nom de la feuille.

isabelle


Oui, je vois les classeurs.
J'ai même essayé sur un autre micro, même chose.
Le phénomène est bizarre, le fichier s'ouvre et il semblerait qu'il
faille d'abord cliquer dans une cellule pour "récupérer" la main.

Cordialement.

BH



bonjour Bruno,

si tu selectionne au menu, Fenêtre
est ce que tu voie le nom de tous les classeurs ouvert ?

http://cjoint.com/?kiwPSI5yTF

isabelle



Bonsoir Isabelle,

Je viens d'essayer ta proposition.
Cela ne fonctionne pas.
Je ne comprends pas, je vais me résoudre à utiliser
Application.Dialogs(xlDialogOpen).Show
Dans ce cas, ma macro continue normalement mais au bout d'un an,
apparaîtra plus de 52 fichiers dans la boite.

Je suis prêt à tester d'autres idées.

Merci
BH




bonjour Bruno,

essai avec,

With Application
.Workbooks.Open Filename:=nomdefichier, Origin:=xlWindows
End With
Workbooks("macro1.xls").Activate

isabelle




Bonsoir,

Non, je suis en "test" la macro est lancée par CTRL+MAJ+M à partir
d'un
fichier qui se nomme macro1.xls
Mon objectif semble simple :
L'utilisateur ouvre un fichier dont il choisit le nom puis la macro
active un autre fichier (qui est déjà ouvert, la macro finale sera
dans
Perso.xls) pour copier des données.

BH





bonjour Bruno,

est ce que la macro se situe dans le classeur "stat1.xls" ?
est ce que "week du .xls" s'ouvre dans la même application
(instance) ?

isabelle




Bonsoir Philippe,

Malheureusement, non, cela ne donne rien.
Je sèche complètement. Mon fichier s'ouvre parfaitement mais
après on
dirait que je sors de la macro.
Par exemple avec le code ci dessous, le fichier s'ouvre mais je
n'obtiens par 78 en G5.
Dim nomdefichier As String
ChDir "C:BHfacturation"
nomdefichier = InputBox("Saisir le nom du fichier", "", "week du
.xls")
Workbooks.Open Filename:=nomdefichier, Origin:=xlWindows
Range("G5").Value = 78

D'autres pistes ?
Merci
BH.





















Publicité
Poster une réponse
Anonyme