Bonjour à vous,
J'ai un code :
Fichier = TABLEAU("Textbox1").Value
Workbooks.Open Fichier
Cells.Select
Selection.Copy
Windows("MACRO HIERARCHIE.xls").Activate
Sheets("hiérarchie").Select
Cells.Select
ActiveSheet.Paste
Fichier = TABLEAU("Textbox1").Value
Workbooks.Close Fichier
Ca marche nickel sauf à la fin... Il ne veut pas fermer le classeur et me
met "erreur de compilation : nombre d'arguments incorrect ou affectation
de propriété incorrecte".
Comment puis-je faire pour fermer le fichier ?
MERCI BEAUCOUP !!
Bonjour à vous,
J'ai un code :
Fichier = TABLEAU("Textbox1").Value
Workbooks.Open Fichier
Cells.Select
Selection.Copy
Windows("MACRO HIERARCHIE.xls").Activate
Sheets("hiérarchie").Select
Cells.Select
ActiveSheet.Paste
Fichier = TABLEAU("Textbox1").Value
Workbooks.Close Fichier
Ca marche nickel sauf à la fin... Il ne veut pas fermer le classeur et me
met "erreur de compilation : nombre d'arguments incorrect ou affectation
de propriété incorrecte".
Comment puis-je faire pour fermer le fichier ?
MERCI BEAUCOUP !!
Bonjour à vous,
J'ai un code :
Fichier = TABLEAU("Textbox1").Value
Workbooks.Open Fichier
Cells.Select
Selection.Copy
Windows("MACRO HIERARCHIE.xls").Activate
Sheets("hiérarchie").Select
Cells.Select
ActiveSheet.Paste
Fichier = TABLEAU("Textbox1").Value
Workbooks.Close Fichier
Ca marche nickel sauf à la fin... Il ne veut pas fermer le classeur et me
met "erreur de compilation : nombre d'arguments incorrect ou affectation
de propriété incorrecte".
Comment puis-je faire pour fermer le fichier ?
MERCI BEAUCOUP !!
Bonjour à vous,
J'ai un code :
Fichier = TABLEAU("Textbox1").Value
Workbooks.Open Fichier
Cells.Select
Selection.Copy
Windows("MACRO HIERARCHIE.xls").Activate
Sheets("hiérarchie").Select
Cells.Select
ActiveSheet.Paste
Fichier = TABLEAU("Textbox1").Value
Workbooks.Close Fichier
Ca marche nickel sauf à la fin... Il ne veut pas fermer le classeur et me
met "erreur de compilation : nombre d'arguments incorrect ou affectation de
propriété incorrecte".
Comment puis-je faire pour fermer le fichier ?
MERCI BEAUCOUP !!
Bonjour à vous,
J'ai un code :
Fichier = TABLEAU("Textbox1").Value
Workbooks.Open Fichier
Cells.Select
Selection.Copy
Windows("MACRO HIERARCHIE.xls").Activate
Sheets("hiérarchie").Select
Cells.Select
ActiveSheet.Paste
Fichier = TABLEAU("Textbox1").Value
Workbooks.Close Fichier
Ca marche nickel sauf à la fin... Il ne veut pas fermer le classeur et me
met "erreur de compilation : nombre d'arguments incorrect ou affectation de
propriété incorrecte".
Comment puis-je faire pour fermer le fichier ?
MERCI BEAUCOUP !!
Bonjour à vous,
J'ai un code :
Fichier = TABLEAU("Textbox1").Value
Workbooks.Open Fichier
Cells.Select
Selection.Copy
Windows("MACRO HIERARCHIE.xls").Activate
Sheets("hiérarchie").Select
Cells.Select
ActiveSheet.Paste
Fichier = TABLEAU("Textbox1").Value
Workbooks.Close Fichier
Ca marche nickel sauf à la fin... Il ne veut pas fermer le classeur et me
met "erreur de compilation : nombre d'arguments incorrect ou affectation de
propriété incorrecte".
Comment puis-je faire pour fermer le fichier ?
MERCI BEAUCOUP !!
bonjour Jean-François,
Workbooks("MACRO HIERARCHIE.xls").Close SaveChange:úlse 'ou True
isabelleBonjour à vous,
J'ai un code :
Fichier = TABLEAU("Textbox1").Value
Workbooks.Open Fichier
Cells.Select
Selection.Copy
Windows("MACRO HIERARCHIE.xls").Activate
Sheets("hiérarchie").Select
Cells.Select
ActiveSheet.Paste
Fichier = TABLEAU("Textbox1").Value
Workbooks.Close Fichier
Ca marche nickel sauf à la fin... Il ne veut pas fermer le classeur et
me met "erreur de compilation : nombre d'arguments incorrect ou
affectation de propriété incorrecte".
Comment puis-je faire pour fermer le fichier ?
MERCI BEAUCOUP !!
bonjour Jean-François,
Workbooks("MACRO HIERARCHIE.xls").Close SaveChange:úlse 'ou True
isabelle
Bonjour à vous,
J'ai un code :
Fichier = TABLEAU("Textbox1").Value
Workbooks.Open Fichier
Cells.Select
Selection.Copy
Windows("MACRO HIERARCHIE.xls").Activate
Sheets("hiérarchie").Select
Cells.Select
ActiveSheet.Paste
Fichier = TABLEAU("Textbox1").Value
Workbooks.Close Fichier
Ca marche nickel sauf à la fin... Il ne veut pas fermer le classeur et
me met "erreur de compilation : nombre d'arguments incorrect ou
affectation de propriété incorrecte".
Comment puis-je faire pour fermer le fichier ?
MERCI BEAUCOUP !!
bonjour Jean-François,
Workbooks("MACRO HIERARCHIE.xls").Close SaveChange:úlse 'ou True
isabelleBonjour à vous,
J'ai un code :
Fichier = TABLEAU("Textbox1").Value
Workbooks.Open Fichier
Cells.Select
Selection.Copy
Windows("MACRO HIERARCHIE.xls").Activate
Sheets("hiérarchie").Select
Cells.Select
ActiveSheet.Paste
Fichier = TABLEAU("Textbox1").Value
Workbooks.Close Fichier
Ca marche nickel sauf à la fin... Il ne veut pas fermer le classeur et
me met "erreur de compilation : nombre d'arguments incorrect ou
affectation de propriété incorrecte".
Comment puis-je faire pour fermer le fichier ?
MERCI BEAUCOUP !!
correction :
Workbooks("MACRO HIERARCHIE.xls").Close SaveChanges:úlse
isabellebonjour Jean-François,
Workbooks("MACRO HIERARCHIE.xls").Close SaveChange:úlse 'ou True
isabelleBonjour à vous,
J'ai un code :
Fichier = TABLEAU("Textbox1").Value
Workbooks.Open Fichier
Cells.Select
Selection.Copy
Windows("MACRO HIERARCHIE.xls").Activate
Sheets("hiérarchie").Select
Cells.Select
ActiveSheet.Paste
Fichier = TABLEAU("Textbox1").Value
Workbooks.Close Fichier
Ca marche nickel sauf à la fin... Il ne veut pas fermer le classeur et
me met "erreur de compilation : nombre d'arguments incorrect ou
affectation de propriété incorrecte".
Comment puis-je faire pour fermer le fichier ?
MERCI BEAUCOUP !!
correction :
Workbooks("MACRO HIERARCHIE.xls").Close SaveChanges:úlse
isabelle
bonjour Jean-François,
Workbooks("MACRO HIERARCHIE.xls").Close SaveChange:úlse 'ou True
isabelle
Bonjour à vous,
J'ai un code :
Fichier = TABLEAU("Textbox1").Value
Workbooks.Open Fichier
Cells.Select
Selection.Copy
Windows("MACRO HIERARCHIE.xls").Activate
Sheets("hiérarchie").Select
Cells.Select
ActiveSheet.Paste
Fichier = TABLEAU("Textbox1").Value
Workbooks.Close Fichier
Ca marche nickel sauf à la fin... Il ne veut pas fermer le classeur et
me met "erreur de compilation : nombre d'arguments incorrect ou
affectation de propriété incorrecte".
Comment puis-je faire pour fermer le fichier ?
MERCI BEAUCOUP !!
correction :
Workbooks("MACRO HIERARCHIE.xls").Close SaveChanges:úlse
isabellebonjour Jean-François,
Workbooks("MACRO HIERARCHIE.xls").Close SaveChange:úlse 'ou True
isabelleBonjour à vous,
J'ai un code :
Fichier = TABLEAU("Textbox1").Value
Workbooks.Open Fichier
Cells.Select
Selection.Copy
Windows("MACRO HIERARCHIE.xls").Activate
Sheets("hiérarchie").Select
Cells.Select
ActiveSheet.Paste
Fichier = TABLEAU("Textbox1").Value
Workbooks.Close Fichier
Ca marche nickel sauf à la fin... Il ne veut pas fermer le classeur et
me met "erreur de compilation : nombre d'arguments incorrect ou
affectation de propriété incorrecte".
Comment puis-je faire pour fermer le fichier ?
MERCI BEAUCOUP !!
correction :
Workbooks("MACRO HIERARCHIE.xls").Close SaveChanges:úlse
isabellebonjour Jean-François,
Workbooks("MACRO HIERARCHIE.xls").Close SaveChange:úlse 'ou True
isabelleBonjour à vous,
J'ai un code :
Fichier = TABLEAU("Textbox1").Value
Workbooks.Open Fichier
Cells.Select
Selection.Copy
Windows("MACRO HIERARCHIE.xls").Activate
Sheets("hiérarchie").Select
Cells.Select
ActiveSheet.Paste
Fichier = TABLEAU("Textbox1").Value
Workbooks.Close Fichier
Ca marche nickel sauf à la fin... Il ne veut pas fermer le classeur et
me met "erreur de compilation : nombre d'arguments incorrect ou
affectation de propriété incorrecte".
Comment puis-je faire pour fermer le fichier ?
MERCI BEAUCOUP !!
correction :
Workbooks("MACRO HIERARCHIE.xls").Close SaveChanges:úlse
isabelle
bonjour Jean-François,
Workbooks("MACRO HIERARCHIE.xls").Close SaveChange:úlse 'ou True
isabelle
Bonjour à vous,
J'ai un code :
Fichier = TABLEAU("Textbox1").Value
Workbooks.Open Fichier
Cells.Select
Selection.Copy
Windows("MACRO HIERARCHIE.xls").Activate
Sheets("hiérarchie").Select
Cells.Select
ActiveSheet.Paste
Fichier = TABLEAU("Textbox1").Value
Workbooks.Close Fichier
Ca marche nickel sauf à la fin... Il ne veut pas fermer le classeur et
me met "erreur de compilation : nombre d'arguments incorrect ou
affectation de propriété incorrecte".
Comment puis-je faire pour fermer le fichier ?
MERCI BEAUCOUP !!
correction :
Workbooks("MACRO HIERARCHIE.xls").Close SaveChanges:úlse
isabellebonjour Jean-François,
Workbooks("MACRO HIERARCHIE.xls").Close SaveChange:úlse 'ou True
isabelleBonjour à vous,
J'ai un code :
Fichier = TABLEAU("Textbox1").Value
Workbooks.Open Fichier
Cells.Select
Selection.Copy
Windows("MACRO HIERARCHIE.xls").Activate
Sheets("hiérarchie").Select
Cells.Select
ActiveSheet.Paste
Fichier = TABLEAU("Textbox1").Value
Workbooks.Close Fichier
Ca marche nickel sauf à la fin... Il ne veut pas fermer le classeur et
me met "erreur de compilation : nombre d'arguments incorrect ou
affectation de propriété incorrecte".
Comment puis-je faire pour fermer le fichier ?
MERCI BEAUCOUP !!
Isabelle,
Ne sachant pas si tu continues de suivre cette file, je me permets de
reposter plus haut... Au cas où.
Merci encore !
JF
"isabelle" a écrit dans le message de news:
%23$correction :
Workbooks("MACRO HIERARCHIE.xls").Close SaveChanges:úlse
isabellebonjour Jean-François,
Workbooks("MACRO HIERARCHIE.xls").Close SaveChange:úlse 'ou True
isabelleBonjour à vous,
J'ai un code :
Fichier = TABLEAU("Textbox1").Value
Workbooks.Open Fichier
Cells.Select
Selection.Copy
Windows("MACRO HIERARCHIE.xls").Activate
Sheets("hiérarchie").Select
Cells.Select
ActiveSheet.Paste
Fichier = TABLEAU("Textbox1").Value
Workbooks.Close Fichier
Ca marche nickel sauf à la fin... Il ne veut pas fermer le classeur et
me met "erreur de compilation : nombre d'arguments incorrect ou
affectation de propriété incorrecte".
Comment puis-je faire pour fermer le fichier ?
MERCI BEAUCOUP !!
Isabelle,
Ne sachant pas si tu continues de suivre cette file, je me permets de
reposter plus haut... Au cas où.
Merci encore !
JF
"isabelle" <i@v> a écrit dans le message de news:
%23$lKJEymIHA.5820@TK2MSFTNGP04.phx.gbl...
correction :
Workbooks("MACRO HIERARCHIE.xls").Close SaveChanges:úlse
isabelle
bonjour Jean-François,
Workbooks("MACRO HIERARCHIE.xls").Close SaveChange:úlse 'ou True
isabelle
Bonjour à vous,
J'ai un code :
Fichier = TABLEAU("Textbox1").Value
Workbooks.Open Fichier
Cells.Select
Selection.Copy
Windows("MACRO HIERARCHIE.xls").Activate
Sheets("hiérarchie").Select
Cells.Select
ActiveSheet.Paste
Fichier = TABLEAU("Textbox1").Value
Workbooks.Close Fichier
Ca marche nickel sauf à la fin... Il ne veut pas fermer le classeur et
me met "erreur de compilation : nombre d'arguments incorrect ou
affectation de propriété incorrecte".
Comment puis-je faire pour fermer le fichier ?
MERCI BEAUCOUP !!
Isabelle,
Ne sachant pas si tu continues de suivre cette file, je me permets de
reposter plus haut... Au cas où.
Merci encore !
JF
"isabelle" a écrit dans le message de news:
%23$correction :
Workbooks("MACRO HIERARCHIE.xls").Close SaveChanges:úlse
isabellebonjour Jean-François,
Workbooks("MACRO HIERARCHIE.xls").Close SaveChange:úlse 'ou True
isabelleBonjour à vous,
J'ai un code :
Fichier = TABLEAU("Textbox1").Value
Workbooks.Open Fichier
Cells.Select
Selection.Copy
Windows("MACRO HIERARCHIE.xls").Activate
Sheets("hiérarchie").Select
Cells.Select
ActiveSheet.Paste
Fichier = TABLEAU("Textbox1").Value
Workbooks.Close Fichier
Ca marche nickel sauf à la fin... Il ne veut pas fermer le classeur et
me met "erreur de compilation : nombre d'arguments incorrect ou
affectation de propriété incorrecte".
Comment puis-je faire pour fermer le fichier ?
MERCI BEAUCOUP !!
Workbooks.Open Fichier
essaie comme ça :
Workbooks(Fichier & ".xls").Close SaveChanges:úlse
a quoi la variable Fichier fait elle référence ?
isabelleIsabelle,
Ne sachant pas si tu continues de suivre cette file, je me permets de
reposter plus haut... Au cas où.
Merci encore !
JF
"isabelle" a écrit dans le message de news:
%23$correction :
Workbooks("MACRO HIERARCHIE.xls").Close SaveChanges:úlse
isabellebonjour Jean-François,
Workbooks("MACRO HIERARCHIE.xls").Close SaveChange:úlse 'ou True
isabelleBonjour à vous,
J'ai un code :
Fichier = TABLEAU("Textbox1").Value
Workbooks.Open Fichier
Cells.Select
Selection.Copy
Windows("MACRO HIERARCHIE.xls").Activate
Sheets("hiérarchie").Select
Cells.Select
ActiveSheet.Paste
Fichier = TABLEAU("Textbox1").Value
Workbooks.Close Fichier
Ca marche nickel sauf à la fin... Il ne veut pas fermer le classeur et
me met "erreur de compilation : nombre d'arguments incorrect ou
affectation de propriété incorrecte".
Comment puis-je faire pour fermer le fichier ?
MERCI BEAUCOUP !!
Workbooks.Open Fichier
essaie comme ça :
Workbooks(Fichier & ".xls").Close SaveChanges:úlse
a quoi la variable Fichier fait elle référence ?
isabelle
Isabelle,
Ne sachant pas si tu continues de suivre cette file, je me permets de
reposter plus haut... Au cas où.
Merci encore !
JF
"isabelle" <i@v> a écrit dans le message de news:
%23$lKJEymIHA.5820@TK2MSFTNGP04.phx.gbl...
correction :
Workbooks("MACRO HIERARCHIE.xls").Close SaveChanges:úlse
isabelle
bonjour Jean-François,
Workbooks("MACRO HIERARCHIE.xls").Close SaveChange:úlse 'ou True
isabelle
Bonjour à vous,
J'ai un code :
Fichier = TABLEAU("Textbox1").Value
Workbooks.Open Fichier
Cells.Select
Selection.Copy
Windows("MACRO HIERARCHIE.xls").Activate
Sheets("hiérarchie").Select
Cells.Select
ActiveSheet.Paste
Fichier = TABLEAU("Textbox1").Value
Workbooks.Close Fichier
Ca marche nickel sauf à la fin... Il ne veut pas fermer le classeur et
me met "erreur de compilation : nombre d'arguments incorrect ou
affectation de propriété incorrecte".
Comment puis-je faire pour fermer le fichier ?
MERCI BEAUCOUP !!
Workbooks.Open Fichier
essaie comme ça :
Workbooks(Fichier & ".xls").Close SaveChanges:úlse
a quoi la variable Fichier fait elle référence ?
isabelleIsabelle,
Ne sachant pas si tu continues de suivre cette file, je me permets de
reposter plus haut... Au cas où.
Merci encore !
JF
"isabelle" a écrit dans le message de news:
%23$correction :
Workbooks("MACRO HIERARCHIE.xls").Close SaveChanges:úlse
isabellebonjour Jean-François,
Workbooks("MACRO HIERARCHIE.xls").Close SaveChange:úlse 'ou True
isabelleBonjour à vous,
J'ai un code :
Fichier = TABLEAU("Textbox1").Value
Workbooks.Open Fichier
Cells.Select
Selection.Copy
Windows("MACRO HIERARCHIE.xls").Activate
Sheets("hiérarchie").Select
Cells.Select
ActiveSheet.Paste
Fichier = TABLEAU("Textbox1").Value
Workbooks.Close Fichier
Ca marche nickel sauf à la fin... Il ne veut pas fermer le classeur et
me met "erreur de compilation : nombre d'arguments incorrect ou
affectation de propriété incorrecte".
Comment puis-je faire pour fermer le fichier ?
MERCI BEAUCOUP !!
Merci Isabelle mais hélas, non, ca ne marche pas non plus.
En fait Fichier fait référence à
Fichier = TABLEAU("Textbox1").ValueWorkbooks.Open Fichier
TABLEAU est le nom de mon userform (zut, j'aurais dû le préciser dans mon
post...)
En fait j'ai un userform avec un textbox dans lequel je remplis le fichier
souhaité grâce au code suivant :
Private Sub CommandButton1_Click()
Controls("TextBox1").Value = Application.GetOpenFilename
End Sub
Ensuite, je veux récupérer ce nom de fichier pour l'ouvrir, copier des
données, les coller puis refermer le fichier ouvert.
Voili, voilou.
Merci encore. En espérant que tu trouveras la solution...
Slts
JF
"isabelle" a écrit dans le message de news:
%essaie comme ça :
Workbooks(Fichier & ".xls").Close SaveChanges:úlse
a quoi la variable Fichier fait elle référence ?
isabelleIsabelle,
Ne sachant pas si tu continues de suivre cette file, je me permets de
reposter plus haut... Au cas où.
Merci encore !
JF
"isabelle" a écrit dans le message de news:
%23$correction :
Workbooks("MACRO HIERARCHIE.xls").Close SaveChanges:úlse
isabellebonjour Jean-François,
Workbooks("MACRO HIERARCHIE.xls").Close SaveChange:úlse 'ou True
isabelleBonjour à vous,
J'ai un code :
Fichier = TABLEAU("Textbox1").Value
Workbooks.Open Fichier
Cells.Select
Selection.Copy
Windows("MACRO HIERARCHIE.xls").Activate
Sheets("hiérarchie").Select
Cells.Select
ActiveSheet.Paste
Fichier = TABLEAU("Textbox1").Value
Workbooks.Close Fichier
Ca marche nickel sauf à la fin... Il ne veut pas fermer le classeur et
me met "erreur de compilation : nombre d'arguments incorrect ou
affectation de propriété incorrecte".
Comment puis-je faire pour fermer le fichier ?
MERCI BEAUCOUP !!
Merci Isabelle mais hélas, non, ca ne marche pas non plus.
En fait Fichier fait référence à
Fichier = TABLEAU("Textbox1").Value
Workbooks.Open Fichier
TABLEAU est le nom de mon userform (zut, j'aurais dû le préciser dans mon
post...)
En fait j'ai un userform avec un textbox dans lequel je remplis le fichier
souhaité grâce au code suivant :
Private Sub CommandButton1_Click()
Controls("TextBox1").Value = Application.GetOpenFilename
End Sub
Ensuite, je veux récupérer ce nom de fichier pour l'ouvrir, copier des
données, les coller puis refermer le fichier ouvert.
Voili, voilou.
Merci encore. En espérant que tu trouveras la solution...
Slts
JF
"isabelle" <i@v> a écrit dans le message de news:
%232gJ7ozmIHA.3572@TK2MSFTNGP02.phx.gbl...
essaie comme ça :
Workbooks(Fichier & ".xls").Close SaveChanges:úlse
a quoi la variable Fichier fait elle référence ?
isabelle
Isabelle,
Ne sachant pas si tu continues de suivre cette file, je me permets de
reposter plus haut... Au cas où.
Merci encore !
JF
"isabelle" <i@v> a écrit dans le message de news:
%23$lKJEymIHA.5820@TK2MSFTNGP04.phx.gbl...
correction :
Workbooks("MACRO HIERARCHIE.xls").Close SaveChanges:úlse
isabelle
bonjour Jean-François,
Workbooks("MACRO HIERARCHIE.xls").Close SaveChange:úlse 'ou True
isabelle
Bonjour à vous,
J'ai un code :
Fichier = TABLEAU("Textbox1").Value
Workbooks.Open Fichier
Cells.Select
Selection.Copy
Windows("MACRO HIERARCHIE.xls").Activate
Sheets("hiérarchie").Select
Cells.Select
ActiveSheet.Paste
Fichier = TABLEAU("Textbox1").Value
Workbooks.Close Fichier
Ca marche nickel sauf à la fin... Il ne veut pas fermer le classeur et
me met "erreur de compilation : nombre d'arguments incorrect ou
affectation de propriété incorrecte".
Comment puis-je faire pour fermer le fichier ?
MERCI BEAUCOUP !!
Merci Isabelle mais hélas, non, ca ne marche pas non plus.
En fait Fichier fait référence à
Fichier = TABLEAU("Textbox1").ValueWorkbooks.Open Fichier
TABLEAU est le nom de mon userform (zut, j'aurais dû le préciser dans mon
post...)
En fait j'ai un userform avec un textbox dans lequel je remplis le fichier
souhaité grâce au code suivant :
Private Sub CommandButton1_Click()
Controls("TextBox1").Value = Application.GetOpenFilename
End Sub
Ensuite, je veux récupérer ce nom de fichier pour l'ouvrir, copier des
données, les coller puis refermer le fichier ouvert.
Voili, voilou.
Merci encore. En espérant que tu trouveras la solution...
Slts
JF
"isabelle" a écrit dans le message de news:
%essaie comme ça :
Workbooks(Fichier & ".xls").Close SaveChanges:úlse
a quoi la variable Fichier fait elle référence ?
isabelleIsabelle,
Ne sachant pas si tu continues de suivre cette file, je me permets de
reposter plus haut... Au cas où.
Merci encore !
JF
"isabelle" a écrit dans le message de news:
%23$correction :
Workbooks("MACRO HIERARCHIE.xls").Close SaveChanges:úlse
isabellebonjour Jean-François,
Workbooks("MACRO HIERARCHIE.xls").Close SaveChange:úlse 'ou True
isabelleBonjour à vous,
J'ai un code :
Fichier = TABLEAU("Textbox1").Value
Workbooks.Open Fichier
Cells.Select
Selection.Copy
Windows("MACRO HIERARCHIE.xls").Activate
Sheets("hiérarchie").Select
Cells.Select
ActiveSheet.Paste
Fichier = TABLEAU("Textbox1").Value
Workbooks.Close Fichier
Ca marche nickel sauf à la fin... Il ne veut pas fermer le classeur et
me met "erreur de compilation : nombre d'arguments incorrect ou
affectation de propriété incorrecte".
Comment puis-je faire pour fermer le fichier ?
MERCI BEAUCOUP !!
si j'ai bien compris TABLEAU est le caption du userform
mais ce code tu le mets ou ? car d'après ce que je voie
le userform est il tourjours présent au moment
de l'exécution de ce code ?
Fichier = TABLEAU.Textbox1.Value
Workbooks.Open Fichier
Cells.Select
Selection.Copy
Windows("MACRO HIERARCHIE - vision CA.xls").Activate
Sheets("hiérarchie").Select
Cells.Select
ActiveSheet.Paste
Workbooks(Fichier & "xls").Close SaveChanges:úlse
isabelleMerci Isabelle mais hélas, non, ca ne marche pas non plus.
En fait Fichier fait référence à
Fichier = TABLEAU("Textbox1").ValueWorkbooks.Open Fichier
TABLEAU est le nom de mon userform (zut, j'aurais dû le préciser dans mon
post...)
En fait j'ai un userform avec un textbox dans lequel je remplis le
fichier souhaité grâce au code suivant :
Private Sub CommandButton1_Click()
Controls("TextBox1").Value = Application.GetOpenFilename
End Sub
Ensuite, je veux récupérer ce nom de fichier pour l'ouvrir, copier des
données, les coller puis refermer le fichier ouvert.
Voili, voilou.
Merci encore. En espérant que tu trouveras la solution...
Slts
JF
"isabelle" a écrit dans le message de news:
%essaie comme ça :
Workbooks(Fichier & ".xls").Close SaveChanges:úlse
a quoi la variable Fichier fait elle référence ?
isabelleIsabelle,
Ne sachant pas si tu continues de suivre cette file, je me permets de
reposter plus haut... Au cas où.
Merci encore !
JF
"isabelle" a écrit dans le message de news:
%23$correction :
Workbooks("MACRO HIERARCHIE.xls").Close SaveChanges:úlse
isabellebonjour Jean-François,
Workbooks("MACRO HIERARCHIE.xls").Close SaveChange:úlse 'ou True
isabelleBonjour à vous,
J'ai un code :
Fichier = TABLEAU("Textbox1").Value
Workbooks.Open Fichier
Cells.Select
Selection.Copy
Windows("MACRO HIERARCHIE.xls").Activate
Sheets("hiérarchie").Select
Cells.Select
ActiveSheet.Paste
Fichier = TABLEAU("Textbox1").Value
Workbooks.Close Fichier
Ca marche nickel sauf à la fin... Il ne veut pas fermer le classeur
et me met "erreur de compilation : nombre d'arguments incorrect ou
affectation de propriété incorrecte".
Comment puis-je faire pour fermer le fichier ?
MERCI BEAUCOUP !!
si j'ai bien compris TABLEAU est le caption du userform
mais ce code tu le mets ou ? car d'après ce que je voie
le userform est il tourjours présent au moment
de l'exécution de ce code ?
Fichier = TABLEAU.Textbox1.Value
Workbooks.Open Fichier
Cells.Select
Selection.Copy
Windows("MACRO HIERARCHIE - vision CA.xls").Activate
Sheets("hiérarchie").Select
Cells.Select
ActiveSheet.Paste
Workbooks(Fichier & "xls").Close SaveChanges:úlse
isabelle
Merci Isabelle mais hélas, non, ca ne marche pas non plus.
En fait Fichier fait référence à
Fichier = TABLEAU("Textbox1").Value
Workbooks.Open Fichier
TABLEAU est le nom de mon userform (zut, j'aurais dû le préciser dans mon
post...)
En fait j'ai un userform avec un textbox dans lequel je remplis le
fichier souhaité grâce au code suivant :
Private Sub CommandButton1_Click()
Controls("TextBox1").Value = Application.GetOpenFilename
End Sub
Ensuite, je veux récupérer ce nom de fichier pour l'ouvrir, copier des
données, les coller puis refermer le fichier ouvert.
Voili, voilou.
Merci encore. En espérant que tu trouveras la solution...
Slts
JF
"isabelle" <i@v> a écrit dans le message de news:
%232gJ7ozmIHA.3572@TK2MSFTNGP02.phx.gbl...
essaie comme ça :
Workbooks(Fichier & ".xls").Close SaveChanges:úlse
a quoi la variable Fichier fait elle référence ?
isabelle
Isabelle,
Ne sachant pas si tu continues de suivre cette file, je me permets de
reposter plus haut... Au cas où.
Merci encore !
JF
"isabelle" <i@v> a écrit dans le message de news:
%23$lKJEymIHA.5820@TK2MSFTNGP04.phx.gbl...
correction :
Workbooks("MACRO HIERARCHIE.xls").Close SaveChanges:úlse
isabelle
bonjour Jean-François,
Workbooks("MACRO HIERARCHIE.xls").Close SaveChange:úlse 'ou True
isabelle
Bonjour à vous,
J'ai un code :
Fichier = TABLEAU("Textbox1").Value
Workbooks.Open Fichier
Cells.Select
Selection.Copy
Windows("MACRO HIERARCHIE.xls").Activate
Sheets("hiérarchie").Select
Cells.Select
ActiveSheet.Paste
Fichier = TABLEAU("Textbox1").Value
Workbooks.Close Fichier
Ca marche nickel sauf à la fin... Il ne veut pas fermer le classeur
et me met "erreur de compilation : nombre d'arguments incorrect ou
affectation de propriété incorrecte".
Comment puis-je faire pour fermer le fichier ?
MERCI BEAUCOUP !!
si j'ai bien compris TABLEAU est le caption du userform
mais ce code tu le mets ou ? car d'après ce que je voie
le userform est il tourjours présent au moment
de l'exécution de ce code ?
Fichier = TABLEAU.Textbox1.Value
Workbooks.Open Fichier
Cells.Select
Selection.Copy
Windows("MACRO HIERARCHIE - vision CA.xls").Activate
Sheets("hiérarchie").Select
Cells.Select
ActiveSheet.Paste
Workbooks(Fichier & "xls").Close SaveChanges:úlse
isabelleMerci Isabelle mais hélas, non, ca ne marche pas non plus.
En fait Fichier fait référence à
Fichier = TABLEAU("Textbox1").ValueWorkbooks.Open Fichier
TABLEAU est le nom de mon userform (zut, j'aurais dû le préciser dans mon
post...)
En fait j'ai un userform avec un textbox dans lequel je remplis le
fichier souhaité grâce au code suivant :
Private Sub CommandButton1_Click()
Controls("TextBox1").Value = Application.GetOpenFilename
End Sub
Ensuite, je veux récupérer ce nom de fichier pour l'ouvrir, copier des
données, les coller puis refermer le fichier ouvert.
Voili, voilou.
Merci encore. En espérant que tu trouveras la solution...
Slts
JF
"isabelle" a écrit dans le message de news:
%essaie comme ça :
Workbooks(Fichier & ".xls").Close SaveChanges:úlse
a quoi la variable Fichier fait elle référence ?
isabelleIsabelle,
Ne sachant pas si tu continues de suivre cette file, je me permets de
reposter plus haut... Au cas où.
Merci encore !
JF
"isabelle" a écrit dans le message de news:
%23$correction :
Workbooks("MACRO HIERARCHIE.xls").Close SaveChanges:úlse
isabellebonjour Jean-François,
Workbooks("MACRO HIERARCHIE.xls").Close SaveChange:úlse 'ou True
isabelleBonjour à vous,
J'ai un code :
Fichier = TABLEAU("Textbox1").Value
Workbooks.Open Fichier
Cells.Select
Selection.Copy
Windows("MACRO HIERARCHIE.xls").Activate
Sheets("hiérarchie").Select
Cells.Select
ActiveSheet.Paste
Fichier = TABLEAU("Textbox1").Value
Workbooks.Close Fichier
Ca marche nickel sauf à la fin... Il ne veut pas fermer le classeur
et me met "erreur de compilation : nombre d'arguments incorrect ou
affectation de propriété incorrecte".
Comment puis-je faire pour fermer le fichier ?
MERCI BEAUCOUP !!
En fait "TABLEAU" c'est le name du User. Le caption, je l'ai nommé
"PARAMETRAGE DU LOGICIEL".
Le code ci-dessous esta rattaché directement au User (enfin, je crois, j'ai
double-cliqué sur le CommandButton puis écrit le code).
Private Sub CommandButton1_Click()
Controls("TextBox1").Value = Application.GetOpenFilename
End Sub
L'autre code est dans la macro principale (dans un module) mais lancée vis
l'Userform (bouton "VALIDER").
Fichier = TABLEAU("Textbox1").Value
Workbooks.Open Fichier
Cells.Select
Selection.Copy
Windows("MACRO HIERARCHIE - vision CA.xls").Activate
Sheets("hiérarchie").Select
Cells.Select
ActiveSheet.Paste
Fichier = TABLEAU("Textbox1").Value
Workbooks(Fichier).Close SaveChanges:úlse
JF
"isabelle" a écrit dans le message de news:
uBC$si j'ai bien compris TABLEAU est le caption du userform
mais ce code tu le mets ou ? car d'après ce que je voie
le userform est il tourjours présent au moment
de l'exécution de ce code ?
Fichier = TABLEAU.Textbox1.Value
Workbooks.Open Fichier
Cells.Select
Selection.Copy
Windows("MACRO HIERARCHIE - vision CA.xls").Activate
Sheets("hiérarchie").Select
Cells.Select
ActiveSheet.Paste
Workbooks(Fichier & "xls").Close SaveChanges:úlse
isabelleMerci Isabelle mais hélas, non, ca ne marche pas non plus.
En fait Fichier fait référence à
Fichier = TABLEAU("Textbox1").ValueWorkbooks.Open Fichier
TABLEAU est le nom de mon userform (zut, j'aurais dû le préciser dans mon
post...)
En fait j'ai un userform avec un textbox dans lequel je remplis le
fichier souhaité grâce au code suivant :
Private Sub CommandButton1_Click()
Controls("TextBox1").Value = Application.GetOpenFilename
End Sub
Ensuite, je veux récupérer ce nom de fichier pour l'ouvrir, copier des
données, les coller puis refermer le fichier ouvert.
Voili, voilou.
Merci encore. En espérant que tu trouveras la solution...
Slts
JF
"isabelle" a écrit dans le message de news:
%essaie comme ça :
Workbooks(Fichier & ".xls").Close SaveChanges:úlse
a quoi la variable Fichier fait elle référence ?
isabelleIsabelle,
Ne sachant pas si tu continues de suivre cette file, je me permets de
reposter plus haut... Au cas où.
Merci encore !
JF
"isabelle" a écrit dans le message de news:
%23$correction :
Workbooks("MACRO HIERARCHIE.xls").Close SaveChanges:úlse
isabellebonjour Jean-François,
Workbooks("MACRO HIERARCHIE.xls").Close SaveChange:úlse 'ou True
isabelleBonjour à vous,
J'ai un code :
Fichier = TABLEAU("Textbox1").Value
Workbooks.Open Fichier
Cells.Select
Selection.Copy
Windows("MACRO HIERARCHIE.xls").Activate
Sheets("hiérarchie").Select
Cells.Select
ActiveSheet.Paste
Fichier = TABLEAU("Textbox1").Value
Workbooks.Close Fichier
Ca marche nickel sauf à la fin... Il ne veut pas fermer le classeur
et me met "erreur de compilation : nombre d'arguments incorrect ou
affectation de propriété incorrecte".
Comment puis-je faire pour fermer le fichier ?
MERCI BEAUCOUP !!
En fait "TABLEAU" c'est le name du User. Le caption, je l'ai nommé
"PARAMETRAGE DU LOGICIEL".
Le code ci-dessous esta rattaché directement au User (enfin, je crois, j'ai
double-cliqué sur le CommandButton puis écrit le code).
Private Sub CommandButton1_Click()
Controls("TextBox1").Value = Application.GetOpenFilename
End Sub
L'autre code est dans la macro principale (dans un module) mais lancée vis
l'Userform (bouton "VALIDER").
Fichier = TABLEAU("Textbox1").Value
Workbooks.Open Fichier
Cells.Select
Selection.Copy
Windows("MACRO HIERARCHIE - vision CA.xls").Activate
Sheets("hiérarchie").Select
Cells.Select
ActiveSheet.Paste
Fichier = TABLEAU("Textbox1").Value
Workbooks(Fichier).Close SaveChanges:úlse
JF
"isabelle" <i@v> a écrit dans le message de news:
uBC$GQ0mIHA.1212@TK2MSFTNGP05.phx.gbl...
si j'ai bien compris TABLEAU est le caption du userform
mais ce code tu le mets ou ? car d'après ce que je voie
le userform est il tourjours présent au moment
de l'exécution de ce code ?
Fichier = TABLEAU.Textbox1.Value
Workbooks.Open Fichier
Cells.Select
Selection.Copy
Windows("MACRO HIERARCHIE - vision CA.xls").Activate
Sheets("hiérarchie").Select
Cells.Select
ActiveSheet.Paste
Workbooks(Fichier & "xls").Close SaveChanges:úlse
isabelle
Merci Isabelle mais hélas, non, ca ne marche pas non plus.
En fait Fichier fait référence à
Fichier = TABLEAU("Textbox1").Value
Workbooks.Open Fichier
TABLEAU est le nom de mon userform (zut, j'aurais dû le préciser dans mon
post...)
En fait j'ai un userform avec un textbox dans lequel je remplis le
fichier souhaité grâce au code suivant :
Private Sub CommandButton1_Click()
Controls("TextBox1").Value = Application.GetOpenFilename
End Sub
Ensuite, je veux récupérer ce nom de fichier pour l'ouvrir, copier des
données, les coller puis refermer le fichier ouvert.
Voili, voilou.
Merci encore. En espérant que tu trouveras la solution...
Slts
JF
"isabelle" <i@v> a écrit dans le message de news:
%232gJ7ozmIHA.3572@TK2MSFTNGP02.phx.gbl...
essaie comme ça :
Workbooks(Fichier & ".xls").Close SaveChanges:úlse
a quoi la variable Fichier fait elle référence ?
isabelle
Isabelle,
Ne sachant pas si tu continues de suivre cette file, je me permets de
reposter plus haut... Au cas où.
Merci encore !
JF
"isabelle" <i@v> a écrit dans le message de news:
%23$lKJEymIHA.5820@TK2MSFTNGP04.phx.gbl...
correction :
Workbooks("MACRO HIERARCHIE.xls").Close SaveChanges:úlse
isabelle
bonjour Jean-François,
Workbooks("MACRO HIERARCHIE.xls").Close SaveChange:úlse 'ou True
isabelle
Bonjour à vous,
J'ai un code :
Fichier = TABLEAU("Textbox1").Value
Workbooks.Open Fichier
Cells.Select
Selection.Copy
Windows("MACRO HIERARCHIE.xls").Activate
Sheets("hiérarchie").Select
Cells.Select
ActiveSheet.Paste
Fichier = TABLEAU("Textbox1").Value
Workbooks.Close Fichier
Ca marche nickel sauf à la fin... Il ne veut pas fermer le classeur
et me met "erreur de compilation : nombre d'arguments incorrect ou
affectation de propriété incorrecte".
Comment puis-je faire pour fermer le fichier ?
MERCI BEAUCOUP !!
En fait "TABLEAU" c'est le name du User. Le caption, je l'ai nommé
"PARAMETRAGE DU LOGICIEL".
Le code ci-dessous esta rattaché directement au User (enfin, je crois, j'ai
double-cliqué sur le CommandButton puis écrit le code).
Private Sub CommandButton1_Click()
Controls("TextBox1").Value = Application.GetOpenFilename
End Sub
L'autre code est dans la macro principale (dans un module) mais lancée vis
l'Userform (bouton "VALIDER").
Fichier = TABLEAU("Textbox1").Value
Workbooks.Open Fichier
Cells.Select
Selection.Copy
Windows("MACRO HIERARCHIE - vision CA.xls").Activate
Sheets("hiérarchie").Select
Cells.Select
ActiveSheet.Paste
Fichier = TABLEAU("Textbox1").Value
Workbooks(Fichier).Close SaveChanges:úlse
JF
"isabelle" a écrit dans le message de news:
uBC$si j'ai bien compris TABLEAU est le caption du userform
mais ce code tu le mets ou ? car d'après ce que je voie
le userform est il tourjours présent au moment
de l'exécution de ce code ?
Fichier = TABLEAU.Textbox1.Value
Workbooks.Open Fichier
Cells.Select
Selection.Copy
Windows("MACRO HIERARCHIE - vision CA.xls").Activate
Sheets("hiérarchie").Select
Cells.Select
ActiveSheet.Paste
Workbooks(Fichier & "xls").Close SaveChanges:úlse
isabelleMerci Isabelle mais hélas, non, ca ne marche pas non plus.
En fait Fichier fait référence à
Fichier = TABLEAU("Textbox1").ValueWorkbooks.Open Fichier
TABLEAU est le nom de mon userform (zut, j'aurais dû le préciser dans mon
post...)
En fait j'ai un userform avec un textbox dans lequel je remplis le
fichier souhaité grâce au code suivant :
Private Sub CommandButton1_Click()
Controls("TextBox1").Value = Application.GetOpenFilename
End Sub
Ensuite, je veux récupérer ce nom de fichier pour l'ouvrir, copier des
données, les coller puis refermer le fichier ouvert.
Voili, voilou.
Merci encore. En espérant que tu trouveras la solution...
Slts
JF
"isabelle" a écrit dans le message de news:
%essaie comme ça :
Workbooks(Fichier & ".xls").Close SaveChanges:úlse
a quoi la variable Fichier fait elle référence ?
isabelleIsabelle,
Ne sachant pas si tu continues de suivre cette file, je me permets de
reposter plus haut... Au cas où.
Merci encore !
JF
"isabelle" a écrit dans le message de news:
%23$correction :
Workbooks("MACRO HIERARCHIE.xls").Close SaveChanges:úlse
isabellebonjour Jean-François,
Workbooks("MACRO HIERARCHIE.xls").Close SaveChange:úlse 'ou True
isabelleBonjour à vous,
J'ai un code :
Fichier = TABLEAU("Textbox1").Value
Workbooks.Open Fichier
Cells.Select
Selection.Copy
Windows("MACRO HIERARCHIE.xls").Activate
Sheets("hiérarchie").Select
Cells.Select
ActiveSheet.Paste
Fichier = TABLEAU("Textbox1").Value
Workbooks.Close Fichier
Ca marche nickel sauf à la fin... Il ne veut pas fermer le classeur
et me met "erreur de compilation : nombre d'arguments incorrect ou
affectation de propriété incorrecte".
Comment puis-je faire pour fermer le fichier ?
MERCI BEAUCOUP !!