Bonjour,
A ) Tu peux combiner ces 2 lignes pour n'en faire qu'une
Workbooks.Open Filename:=fichier_setup
Set wb = ActiveWorkbook
'Si tu ne mets pas le chemin où est ton fichier, il recherchera le fichier
' dans le répertoire courant du moment, tu risques d'avoir des surprises...
Set Wb = Workbooks.Open(Filename:=fichier_setup)
Ce serait mieux comme ceci :
Set Wb = Workbooks.Open(Filename:="c:LeCheminfichier_setup.xls")
B ) Pour le Wb.Close
Dès que tu fermes le fichier, ce denier n'est plus disponible.
Ton code (procédure) doit être écrit dans un autre module d'un autre fichier
Si c'est le cas, les variables devraient demeurer valides
MichD
--------------------------------------------
"Andre" a écrit dans le message de groupe de discussion :
Bonjour à toutes et tous
J'ai une question: Comment puis-je exécuter le code suivant wb.close
voici le code:
explication en 2 mots de la tâche à exécuter
--------------------------------------------
J'ouvre un fichier sauvegardé sur SharePoint.
En s'ouvrant, il ouvre un autre fichier de configuration.
Ce dernier contient différentes listes.
Une fois la mise à jour terminée, je ferme le fichier de configuration.
Enfin, je remet à jour les différents tableaux.
code dans l'évenement open :
--------------------------
Dim wb As Workbook
Dim ws As Worksheet
' Le fichier étant sauvé sur SharePoint, je fait un Check Out
' Afin d'éviter qu'un autre utilisateur n'ouvre le fichier
' ***********************************************************
FileCheckOut (ActiveWorkbook.FullName)
fg_SharePoint = True
' J'ouvre le fichier de configuration
' ***********************************
Workbooks.Open Filename:=fichier_setup
Set wb = ActiveWorkbook
' .... Ici je fait mon controle ...
' Je ferme le fichier de configuration
' ************************************
wb.Close SaveChanges:úlse
' A partir d'ici, plus aucun code informatique n'est exécuté.
' Toutes les variables ont disparues.
' je n'ai plus la main. Suis-je encore dans l'event 'open'?
' je ne pense pas. Mais, où suis-je alors?
' Mettre à jour des listes
' ************************
....
....
....
Comment puis-je exécuter ce code ?
Merci d'avance pour votre aide
André
Bonjour,
A ) Tu peux combiner ces 2 lignes pour n'en faire qu'une
Workbooks.Open Filename:=fichier_setup
Set wb = ActiveWorkbook
'Si tu ne mets pas le chemin où est ton fichier, il recherchera le fichier
' dans le répertoire courant du moment, tu risques d'avoir des surprises...
Set Wb = Workbooks.Open(Filename:=fichier_setup)
Ce serait mieux comme ceci :
Set Wb = Workbooks.Open(Filename:="c:LeCheminfichier_setup.xls")
B ) Pour le Wb.Close
Dès que tu fermes le fichier, ce denier n'est plus disponible.
Ton code (procédure) doit être écrit dans un autre module d'un autre fichier
Si c'est le cas, les variables devraient demeurer valides
MichD
--------------------------------------------
"Andre" a écrit dans le message de groupe de discussion :
j3lcjm03s0@drn.newsguy.com...
Bonjour à toutes et tous
J'ai une question: Comment puis-je exécuter le code suivant wb.close
voici le code:
explication en 2 mots de la tâche à exécuter
--------------------------------------------
J'ouvre un fichier sauvegardé sur SharePoint.
En s'ouvrant, il ouvre un autre fichier de configuration.
Ce dernier contient différentes listes.
Une fois la mise à jour terminée, je ferme le fichier de configuration.
Enfin, je remet à jour les différents tableaux.
code dans l'évenement open :
--------------------------
Dim wb As Workbook
Dim ws As Worksheet
' Le fichier étant sauvé sur SharePoint, je fait un Check Out
' Afin d'éviter qu'un autre utilisateur n'ouvre le fichier
' ***********************************************************
FileCheckOut (ActiveWorkbook.FullName)
fg_SharePoint = True
' J'ouvre le fichier de configuration
' ***********************************
Workbooks.Open Filename:=fichier_setup
Set wb = ActiveWorkbook
' .... Ici je fait mon controle ...
' Je ferme le fichier de configuration
' ************************************
wb.Close SaveChanges:úlse
' A partir d'ici, plus aucun code informatique n'est exécuté.
' Toutes les variables ont disparues.
' je n'ai plus la main. Suis-je encore dans l'event 'open'?
' je ne pense pas. Mais, où suis-je alors?
' Mettre à jour des listes
' ************************
....
....
....
Comment puis-je exécuter ce code ?
Merci d'avance pour votre aide
André
Bonjour,
A ) Tu peux combiner ces 2 lignes pour n'en faire qu'une
Workbooks.Open Filename:=fichier_setup
Set wb = ActiveWorkbook
'Si tu ne mets pas le chemin où est ton fichier, il recherchera le fichier
' dans le répertoire courant du moment, tu risques d'avoir des surprises...
Set Wb = Workbooks.Open(Filename:=fichier_setup)
Ce serait mieux comme ceci :
Set Wb = Workbooks.Open(Filename:="c:LeCheminfichier_setup.xls")
B ) Pour le Wb.Close
Dès que tu fermes le fichier, ce denier n'est plus disponible.
Ton code (procédure) doit être écrit dans un autre module d'un autre fichier
Si c'est le cas, les variables devraient demeurer valides
MichD
--------------------------------------------
"Andre" a écrit dans le message de groupe de discussion :
Bonjour à toutes et tous
J'ai une question: Comment puis-je exécuter le code suivant wb.close
voici le code:
explication en 2 mots de la tâche à exécuter
--------------------------------------------
J'ouvre un fichier sauvegardé sur SharePoint.
En s'ouvrant, il ouvre un autre fichier de configuration.
Ce dernier contient différentes listes.
Une fois la mise à jour terminée, je ferme le fichier de configuration.
Enfin, je remet à jour les différents tableaux.
code dans l'évenement open :
--------------------------
Dim wb As Workbook
Dim ws As Worksheet
' Le fichier étant sauvé sur SharePoint, je fait un Check Out
' Afin d'éviter qu'un autre utilisateur n'ouvre le fichier
' ***********************************************************
FileCheckOut (ActiveWorkbook.FullName)
fg_SharePoint = True
' J'ouvre le fichier de configuration
' ***********************************
Workbooks.Open Filename:=fichier_setup
Set wb = ActiveWorkbook
' .... Ici je fait mon controle ...
' Je ferme le fichier de configuration
' ************************************
wb.Close SaveChanges:úlse
' A partir d'ici, plus aucun code informatique n'est exécuté.
' Toutes les variables ont disparues.
' je n'ai plus la main. Suis-je encore dans l'event 'open'?
' je ne pense pas. Mais, où suis-je alors?
' Mettre à jour des listes
' ************************
....
....
....
Comment puis-je exécuter ce code ?
Merci d'avance pour votre aide
André
Bonjour,
A ) Tu peux combiner ces 2 lignes pour n'en faire qu'une
Workbooks.Open Filename:=fichier_setup
Set wb = ActiveWorkbook
'Si tu ne mets pas le chemin où est ton fichier, il recherchera le fichier
' dans le répertoire courant du moment, tu risques d'avoir des surprises...
Set Wb = Workbooks.Open(Filename:=fichier_setup)
Ce serait mieux comme ceci :
Set Wb = Workbooks.Open(Filename:="c:LeCheminfichier_setup.xls")
B ) Pour le Wb.Close
Dès que tu fermes le fichier, ce denier n'est plus disponible.
Ton code (procédure) doit être écrit dans un autre module d'un autre fichier
Si c'est le cas, les variables devraient demeurer valides
MichD
--------------------------------------------
"Andre" a écrit dans le message de groupe de discussion :
Bonjour à toutes et tous
J'ai une question: Comment puis-je exécuter le code suivant wb.close
voici le code:
explication en 2 mots de la tâche à exécuter
--------------------------------------------
J'ouvre un fichier sauvegardé sur SharePoint.
En s'ouvrant, il ouvre un autre fichier de configuration.
Ce dernier contient différentes listes.
Une fois la mise à jour terminée, je ferme le fichier de configuration.
Enfin, je remet à jour les différents tableaux.
code dans l'évenement open :
--------------------------
Dim wb As Workbook
Dim ws As Worksheet
' Le fichier étant sauvé sur SharePoint, je fait un Check Out
' Afin d'éviter qu'un autre utilisateur n'ouvre le fichier
' ***********************************************************
FileCheckOut (ActiveWorkbook.FullName)
fg_SharePoint = True
' J'ouvre le fichier de configuration
' ***********************************
Workbooks.Open Filename:=fichier_setup
Set wb = ActiveWorkbook
' .... Ici je fait mon controle ...
' Je ferme le fichier de configuration
' ************************************
wb.Close SaveChanges:úlse
' A partir d'ici, plus aucun code informatique n'est exécuté.
' Toutes les variables ont disparues.
' je n'ai plus la main. Suis-je encore dans l'event 'open'?
' je ne pense pas. Mais, où suis-je alors?
' Mettre à jour des listes
' ************************
....
....
....
Comment puis-je exécuter ce code ?
Merci d'avance pour votre aide
André
Bonjour,
A ) Tu peux combiner ces 2 lignes pour n'en faire qu'une
Workbooks.Open Filename:=fichier_setup
Set wb = ActiveWorkbook
'Si tu ne mets pas le chemin où est ton fichier, il recherchera le fichier
' dans le répertoire courant du moment, tu risques d'avoir des surprises...
Set Wb = Workbooks.Open(Filename:=fichier_setup)
Ce serait mieux comme ceci :
Set Wb = Workbooks.Open(Filename:="c:LeCheminfichier_setup.xls")
B ) Pour le Wb.Close
Dès que tu fermes le fichier, ce denier n'est plus disponible.
Ton code (procédure) doit être écrit dans un autre module d'un autre fichier
Si c'est le cas, les variables devraient demeurer valides
MichD
--------------------------------------------
"Andre" a écrit dans le message de groupe de discussion :
j3lcjm03s0@drn.newsguy.com...
Bonjour à toutes et tous
J'ai une question: Comment puis-je exécuter le code suivant wb.close
voici le code:
explication en 2 mots de la tâche à exécuter
--------------------------------------------
J'ouvre un fichier sauvegardé sur SharePoint.
En s'ouvrant, il ouvre un autre fichier de configuration.
Ce dernier contient différentes listes.
Une fois la mise à jour terminée, je ferme le fichier de configuration.
Enfin, je remet à jour les différents tableaux.
code dans l'évenement open :
--------------------------
Dim wb As Workbook
Dim ws As Worksheet
' Le fichier étant sauvé sur SharePoint, je fait un Check Out
' Afin d'éviter qu'un autre utilisateur n'ouvre le fichier
' ***********************************************************
FileCheckOut (ActiveWorkbook.FullName)
fg_SharePoint = True
' J'ouvre le fichier de configuration
' ***********************************
Workbooks.Open Filename:=fichier_setup
Set wb = ActiveWorkbook
' .... Ici je fait mon controle ...
' Je ferme le fichier de configuration
' ************************************
wb.Close SaveChanges:úlse
' A partir d'ici, plus aucun code informatique n'est exécuté.
' Toutes les variables ont disparues.
' je n'ai plus la main. Suis-je encore dans l'event 'open'?
' je ne pense pas. Mais, où suis-je alors?
' Mettre à jour des listes
' ************************
....
....
....
Comment puis-je exécuter ce code ?
Merci d'avance pour votre aide
André
Bonjour,
A ) Tu peux combiner ces 2 lignes pour n'en faire qu'une
Workbooks.Open Filename:=fichier_setup
Set wb = ActiveWorkbook
'Si tu ne mets pas le chemin où est ton fichier, il recherchera le fichier
' dans le répertoire courant du moment, tu risques d'avoir des surprises...
Set Wb = Workbooks.Open(Filename:=fichier_setup)
Ce serait mieux comme ceci :
Set Wb = Workbooks.Open(Filename:="c:LeCheminfichier_setup.xls")
B ) Pour le Wb.Close
Dès que tu fermes le fichier, ce denier n'est plus disponible.
Ton code (procédure) doit être écrit dans un autre module d'un autre fichier
Si c'est le cas, les variables devraient demeurer valides
MichD
--------------------------------------------
"Andre" a écrit dans le message de groupe de discussion :
Bonjour à toutes et tous
J'ai une question: Comment puis-je exécuter le code suivant wb.close
voici le code:
explication en 2 mots de la tâche à exécuter
--------------------------------------------
J'ouvre un fichier sauvegardé sur SharePoint.
En s'ouvrant, il ouvre un autre fichier de configuration.
Ce dernier contient différentes listes.
Une fois la mise à jour terminée, je ferme le fichier de configuration.
Enfin, je remet à jour les différents tableaux.
code dans l'évenement open :
--------------------------
Dim wb As Workbook
Dim ws As Worksheet
' Le fichier étant sauvé sur SharePoint, je fait un Check Out
' Afin d'éviter qu'un autre utilisateur n'ouvre le fichier
' ***********************************************************
FileCheckOut (ActiveWorkbook.FullName)
fg_SharePoint = True
' J'ouvre le fichier de configuration
' ***********************************
Workbooks.Open Filename:=fichier_setup
Set wb = ActiveWorkbook
' .... Ici je fait mon controle ...
' Je ferme le fichier de configuration
' ************************************
wb.Close SaveChanges:úlse
' A partir d'ici, plus aucun code informatique n'est exécuté.
' Toutes les variables ont disparues.
' je n'ai plus la main. Suis-je encore dans l'event 'open'?
' je ne pense pas. Mais, où suis-je alors?
' Mettre à jour des listes
' ************************
....
....
....
Comment puis-je exécuter ce code ?
Merci d'avance pour votre aide
André
Comme je ne travaille pas en réseau, c'est quoi un "check IN / Check Out"
est-ce un appel d'une procédure qui est fait dans ta macro générale ?
MichD
--------------------------------------------
"André" a écrit dans le message de groupe de discussion :
Bonjour,
J'aimerais vous remercier pour votre réaction rapide.
* En ce qui concerne "fichier_setup", c'est une variable qui contient un lien
"http:// ...." + le nom du fichier, car ce sont des fichiers sauvegardés sur un
server SharePoint. De plus, comme je dois faire un checkIN / Check Out, je suis
obligé d'avoir le path complet.
* Pour le point A, c'est vrais, vous avez raison, je peux tout mettre sur une
ligne.
* Pour le point B, je trouve cela étrange, car avant que les fichiers soient
sauvés sur le server SharePoint, cela fonctionnait. C'est depuis ce transfert.
Je pense (je me trompe peut être), du fait que je dois faire ce check IN / Check
Out, lorsque ce job est fait, la macro s'arrête naturellement.
Je dois voir si je ne pourrais pas faire ce travail sans faire ce check IN /
Check Out. Vu que je ne fait que lire le document de configuration. Je ne le
modifie pas.
A voir,
Encore une fois, merci pour votre aide
André
In article <j3ldck$s34$, MichD says...
Bonjour,
A ) Tu peux combiner ces 2 lignes pour n'en faire qu'une
Workbooks.Open Filename:=fichier_setup
Set wb = ActiveWorkbook
'Si tu ne mets pas le chemin où est ton fichier, il recherchera le fichier
' dans le répertoire courant du moment, tu risques d'avoir des surprises...
Set Wb = Workbooks.Open(Filename:=fichier_setup)
Ce serait mieux comme ceci :
Set Wb = Workbooks.Open(Filename:="c:LeCheminfichier_setup.xls")
B ) Pour le Wb.Close
Dès que tu fermes le fichier, ce denier n'est plus disponible.
Ton code (procédure) doit être écrit dans un autre module d'un autre fichier
Si c'est le cas, les variables devraient demeurer valides
MichD
--------------------------------------------
"Andre" a écrit dans le message de groupe de discussion :
Bonjour à toutes et tous
J'ai une question: Comment puis-je exécuter le code suivant wb.close
voici le code:
explication en 2 mots de la tâche à exécuter
--------------------------------------------
J'ouvre un fichier sauvegardé sur SharePoint.
En s'ouvrant, il ouvre un autre fichier de configuration.
Ce dernier contient différentes listes.
Une fois la mise à jour terminée, je ferme le fichier de configuration.
Enfin, je remet à jour les différents tableaux.
code dans l'évenement open :
--------------------------
Dim wb As Workbook
Dim ws As Worksheet
' Le fichier étant sauvé sur SharePoint, je fait un Check Out
' Afin d'éviter qu'un autre utilisateur n'ouvre le fichier
' ***********************************************************
FileCheckOut (ActiveWorkbook.FullName)
fg_SharePoint = True
' J'ouvre le fichier de configuration
' ***********************************
Workbooks.Open Filename:=fichier_setup
Set wb = ActiveWorkbook
' .... Ici je fait mon controle ...
' Je ferme le fichier de configuration
' ************************************
wb.Close SaveChanges:úlse
' A partir d'ici, plus aucun code informatique n'est exécuté.
' Toutes les variables ont disparues.
' je n'ai plus la main. Suis-je encore dans l'event 'open'?
' je ne pense pas. Mais, où suis-je alors?
' Mettre à jour des listes
' ************************
....
....
....
Comment puis-je exécuter ce code ?
Merci d'avance pour votre aide
André
Comme je ne travaille pas en réseau, c'est quoi un "check IN / Check Out"
est-ce un appel d'une procédure qui est fait dans ta macro générale ?
MichD
--------------------------------------------
"André" a écrit dans le message de groupe de discussion :
j3li460ddn@drn.newsguy.com...
Bonjour,
J'aimerais vous remercier pour votre réaction rapide.
* En ce qui concerne "fichier_setup", c'est une variable qui contient un lien
"http:// ...." + le nom du fichier, car ce sont des fichiers sauvegardés sur un
server SharePoint. De plus, comme je dois faire un checkIN / Check Out, je suis
obligé d'avoir le path complet.
* Pour le point A, c'est vrais, vous avez raison, je peux tout mettre sur une
ligne.
* Pour le point B, je trouve cela étrange, car avant que les fichiers soient
sauvés sur le server SharePoint, cela fonctionnait. C'est depuis ce transfert.
Je pense (je me trompe peut être), du fait que je dois faire ce check IN / Check
Out, lorsque ce job est fait, la macro s'arrête naturellement.
Je dois voir si je ne pourrais pas faire ce travail sans faire ce check IN /
Check Out. Vu que je ne fait que lire le document de configuration. Je ne le
modifie pas.
A voir,
Encore une fois, merci pour votre aide
André
In article <j3ldck$s34$1@speranza.aioe.org>, MichD says...
Bonjour,
A ) Tu peux combiner ces 2 lignes pour n'en faire qu'une
Workbooks.Open Filename:=fichier_setup
Set wb = ActiveWorkbook
'Si tu ne mets pas le chemin où est ton fichier, il recherchera le fichier
' dans le répertoire courant du moment, tu risques d'avoir des surprises...
Set Wb = Workbooks.Open(Filename:=fichier_setup)
Ce serait mieux comme ceci :
Set Wb = Workbooks.Open(Filename:="c:LeCheminfichier_setup.xls")
B ) Pour le Wb.Close
Dès que tu fermes le fichier, ce denier n'est plus disponible.
Ton code (procédure) doit être écrit dans un autre module d'un autre fichier
Si c'est le cas, les variables devraient demeurer valides
MichD
--------------------------------------------
"Andre" a écrit dans le message de groupe de discussion :
j3lcjm03s0@drn.newsguy.com...
Bonjour à toutes et tous
J'ai une question: Comment puis-je exécuter le code suivant wb.close
voici le code:
explication en 2 mots de la tâche à exécuter
--------------------------------------------
J'ouvre un fichier sauvegardé sur SharePoint.
En s'ouvrant, il ouvre un autre fichier de configuration.
Ce dernier contient différentes listes.
Une fois la mise à jour terminée, je ferme le fichier de configuration.
Enfin, je remet à jour les différents tableaux.
code dans l'évenement open :
--------------------------
Dim wb As Workbook
Dim ws As Worksheet
' Le fichier étant sauvé sur SharePoint, je fait un Check Out
' Afin d'éviter qu'un autre utilisateur n'ouvre le fichier
' ***********************************************************
FileCheckOut (ActiveWorkbook.FullName)
fg_SharePoint = True
' J'ouvre le fichier de configuration
' ***********************************
Workbooks.Open Filename:=fichier_setup
Set wb = ActiveWorkbook
' .... Ici je fait mon controle ...
' Je ferme le fichier de configuration
' ************************************
wb.Close SaveChanges:úlse
' A partir d'ici, plus aucun code informatique n'est exécuté.
' Toutes les variables ont disparues.
' je n'ai plus la main. Suis-je encore dans l'event 'open'?
' je ne pense pas. Mais, où suis-je alors?
' Mettre à jour des listes
' ************************
....
....
....
Comment puis-je exécuter ce code ?
Merci d'avance pour votre aide
André
Comme je ne travaille pas en réseau, c'est quoi un "check IN / Check Out"
est-ce un appel d'une procédure qui est fait dans ta macro générale ?
MichD
--------------------------------------------
"André" a écrit dans le message de groupe de discussion :
Bonjour,
J'aimerais vous remercier pour votre réaction rapide.
* En ce qui concerne "fichier_setup", c'est une variable qui contient un lien
"http:// ...." + le nom du fichier, car ce sont des fichiers sauvegardés sur un
server SharePoint. De plus, comme je dois faire un checkIN / Check Out, je suis
obligé d'avoir le path complet.
* Pour le point A, c'est vrais, vous avez raison, je peux tout mettre sur une
ligne.
* Pour le point B, je trouve cela étrange, car avant que les fichiers soient
sauvés sur le server SharePoint, cela fonctionnait. C'est depuis ce transfert.
Je pense (je me trompe peut être), du fait que je dois faire ce check IN / Check
Out, lorsque ce job est fait, la macro s'arrête naturellement.
Je dois voir si je ne pourrais pas faire ce travail sans faire ce check IN /
Check Out. Vu que je ne fait que lire le document de configuration. Je ne le
modifie pas.
A voir,
Encore une fois, merci pour votre aide
André
In article <j3ldck$s34$, MichD says...
Bonjour,
A ) Tu peux combiner ces 2 lignes pour n'en faire qu'une
Workbooks.Open Filename:=fichier_setup
Set wb = ActiveWorkbook
'Si tu ne mets pas le chemin où est ton fichier, il recherchera le fichier
' dans le répertoire courant du moment, tu risques d'avoir des surprises...
Set Wb = Workbooks.Open(Filename:=fichier_setup)
Ce serait mieux comme ceci :
Set Wb = Workbooks.Open(Filename:="c:LeCheminfichier_setup.xls")
B ) Pour le Wb.Close
Dès que tu fermes le fichier, ce denier n'est plus disponible.
Ton code (procédure) doit être écrit dans un autre module d'un autre fichier
Si c'est le cas, les variables devraient demeurer valides
MichD
--------------------------------------------
"Andre" a écrit dans le message de groupe de discussion :
Bonjour à toutes et tous
J'ai une question: Comment puis-je exécuter le code suivant wb.close
voici le code:
explication en 2 mots de la tâche à exécuter
--------------------------------------------
J'ouvre un fichier sauvegardé sur SharePoint.
En s'ouvrant, il ouvre un autre fichier de configuration.
Ce dernier contient différentes listes.
Une fois la mise à jour terminée, je ferme le fichier de configuration.
Enfin, je remet à jour les différents tableaux.
code dans l'évenement open :
--------------------------
Dim wb As Workbook
Dim ws As Worksheet
' Le fichier étant sauvé sur SharePoint, je fait un Check Out
' Afin d'éviter qu'un autre utilisateur n'ouvre le fichier
' ***********************************************************
FileCheckOut (ActiveWorkbook.FullName)
fg_SharePoint = True
' J'ouvre le fichier de configuration
' ***********************************
Workbooks.Open Filename:=fichier_setup
Set wb = ActiveWorkbook
' .... Ici je fait mon controle ...
' Je ferme le fichier de configuration
' ************************************
wb.Close SaveChanges:úlse
' A partir d'ici, plus aucun code informatique n'est exécuté.
' Toutes les variables ont disparues.
' je n'ai plus la main. Suis-je encore dans l'event 'open'?
' je ne pense pas. Mais, où suis-je alors?
' Mettre à jour des listes
' ************************
....
....
....
Comment puis-je exécuter ce code ?
Merci d'avance pour votre aide
André
Comme je ne travaille pas en réseau, c'est quoi un "check IN / Check Out"
est-ce un appel d'une procédure qui est fait dans ta macro générale ?
MichD
--------------------------------------------
"André" a écrit dans le message de groupe de discussion :
Bonjour,
J'aimerais vous remercier pour votre réaction rapide.
* En ce qui concerne "fichier_setup", c'est une variable qui contient un lien
"http:// ...." + le nom du fichier, car ce sont des fichiers sauvegardés sur un
server SharePoint. De plus, comme je dois faire un checkIN / Check Out, je suis
obligé d'avoir le path complet.
* Pour le point A, c'est vrais, vous avez raison, je peux tout mettre sur une
ligne.
* Pour le point B, je trouve cela étrange, car avant que les fichiers soient
sauvés sur le server SharePoint, cela fonctionnait. C'est depuis ce transfert.
Je pense (je me trompe peut être), du fait que je dois faire ce check IN / Check
Out, lorsque ce job est fait, la macro s'arrête naturellement.
Je dois voir si je ne pourrais pas faire ce travail sans faire ce check IN /
Check Out. Vu que je ne fait que lire le document de configuration. Je ne le
modifie pas.
A voir,
Encore une fois, merci pour votre aide
André
In article <j3ldck$s34$, MichD says...
Bonjour,
A ) Tu peux combiner ces 2 lignes pour n'en faire qu'une
Workbooks.Open Filename:=fichier_setup
Set wb = ActiveWorkbook
'Si tu ne mets pas le chemin où est ton fichier, il recherchera le fichier
' dans le répertoire courant du moment, tu risques d'avoir des surprises...
Set Wb = Workbooks.Open(Filename:=fichier_setup)
Ce serait mieux comme ceci :
Set Wb = Workbooks.Open(Filename:="c:LeCheminfichier_setup.xls")
B ) Pour le Wb.Close
Dès que tu fermes le fichier, ce denier n'est plus disponible.
Ton code (procédure) doit être écrit dans un autre module d'un autre fichier
Si c'est le cas, les variables devraient demeurer valides
MichD
--------------------------------------------
"Andre" a écrit dans le message de groupe de discussion :
Bonjour à toutes et tous
J'ai une question: Comment puis-je exécuter le code suivant wb.close
voici le code:
explication en 2 mots de la tâche à exécuter
--------------------------------------------
J'ouvre un fichier sauvegardé sur SharePoint.
En s'ouvrant, il ouvre un autre fichier de configuration.
Ce dernier contient différentes listes.
Une fois la mise à jour terminée, je ferme le fichier de configuration.
Enfin, je remet à jour les différents tableaux.
code dans l'évenement open :
--------------------------
Dim wb As Workbook
Dim ws As Worksheet
' Le fichier étant sauvé sur SharePoint, je fait un Check Out
' Afin d'éviter qu'un autre utilisateur n'ouvre le fichier
' ***********************************************************
FileCheckOut (ActiveWorkbook.FullName)
fg_SharePoint = True
' J'ouvre le fichier de configuration
' ***********************************
Workbooks.Open Filename:=fichier_setup
Set wb = ActiveWorkbook
' .... Ici je fait mon controle ...
' Je ferme le fichier de configuration
' ************************************
wb.Close SaveChanges:úlse
' A partir d'ici, plus aucun code informatique n'est exécuté.
' Toutes les variables ont disparues.
' je n'ai plus la main. Suis-je encore dans l'event 'open'?
' je ne pense pas. Mais, où suis-je alors?
' Mettre à jour des listes
' ************************
....
....
....
Comment puis-je exécuter ce code ?
Merci d'avance pour votre aide
André
Comme je ne travaille pas en réseau, c'est quoi un "check IN / Check Out"
est-ce un appel d'une procédure qui est fait dans ta macro générale ?
MichD
--------------------------------------------
"André" a écrit dans le message de groupe de discussion :
j3li460ddn@drn.newsguy.com...
Bonjour,
J'aimerais vous remercier pour votre réaction rapide.
* En ce qui concerne "fichier_setup", c'est une variable qui contient un lien
"http:// ...." + le nom du fichier, car ce sont des fichiers sauvegardés sur un
server SharePoint. De plus, comme je dois faire un checkIN / Check Out, je suis
obligé d'avoir le path complet.
* Pour le point A, c'est vrais, vous avez raison, je peux tout mettre sur une
ligne.
* Pour le point B, je trouve cela étrange, car avant que les fichiers soient
sauvés sur le server SharePoint, cela fonctionnait. C'est depuis ce transfert.
Je pense (je me trompe peut être), du fait que je dois faire ce check IN / Check
Out, lorsque ce job est fait, la macro s'arrête naturellement.
Je dois voir si je ne pourrais pas faire ce travail sans faire ce check IN /
Check Out. Vu que je ne fait que lire le document de configuration. Je ne le
modifie pas.
A voir,
Encore une fois, merci pour votre aide
André
In article <j3ldck$s34$1@speranza.aioe.org>, MichD says...
Bonjour,
A ) Tu peux combiner ces 2 lignes pour n'en faire qu'une
Workbooks.Open Filename:=fichier_setup
Set wb = ActiveWorkbook
'Si tu ne mets pas le chemin où est ton fichier, il recherchera le fichier
' dans le répertoire courant du moment, tu risques d'avoir des surprises...
Set Wb = Workbooks.Open(Filename:=fichier_setup)
Ce serait mieux comme ceci :
Set Wb = Workbooks.Open(Filename:="c:LeCheminfichier_setup.xls")
B ) Pour le Wb.Close
Dès que tu fermes le fichier, ce denier n'est plus disponible.
Ton code (procédure) doit être écrit dans un autre module d'un autre fichier
Si c'est le cas, les variables devraient demeurer valides
MichD
--------------------------------------------
"Andre" a écrit dans le message de groupe de discussion :
j3lcjm03s0@drn.newsguy.com...
Bonjour à toutes et tous
J'ai une question: Comment puis-je exécuter le code suivant wb.close
voici le code:
explication en 2 mots de la tâche à exécuter
--------------------------------------------
J'ouvre un fichier sauvegardé sur SharePoint.
En s'ouvrant, il ouvre un autre fichier de configuration.
Ce dernier contient différentes listes.
Une fois la mise à jour terminée, je ferme le fichier de configuration.
Enfin, je remet à jour les différents tableaux.
code dans l'évenement open :
--------------------------
Dim wb As Workbook
Dim ws As Worksheet
' Le fichier étant sauvé sur SharePoint, je fait un Check Out
' Afin d'éviter qu'un autre utilisateur n'ouvre le fichier
' ***********************************************************
FileCheckOut (ActiveWorkbook.FullName)
fg_SharePoint = True
' J'ouvre le fichier de configuration
' ***********************************
Workbooks.Open Filename:=fichier_setup
Set wb = ActiveWorkbook
' .... Ici je fait mon controle ...
' Je ferme le fichier de configuration
' ************************************
wb.Close SaveChanges:úlse
' A partir d'ici, plus aucun code informatique n'est exécuté.
' Toutes les variables ont disparues.
' je n'ai plus la main. Suis-je encore dans l'event 'open'?
' je ne pense pas. Mais, où suis-je alors?
' Mettre à jour des listes
' ************************
....
....
....
Comment puis-je exécuter ce code ?
Merci d'avance pour votre aide
André
Comme je ne travaille pas en réseau, c'est quoi un "check IN / Check Out"
est-ce un appel d'une procédure qui est fait dans ta macro générale ?
MichD
--------------------------------------------
"André" a écrit dans le message de groupe de discussion :
Bonjour,
J'aimerais vous remercier pour votre réaction rapide.
* En ce qui concerne "fichier_setup", c'est une variable qui contient un lien
"http:// ...." + le nom du fichier, car ce sont des fichiers sauvegardés sur un
server SharePoint. De plus, comme je dois faire un checkIN / Check Out, je suis
obligé d'avoir le path complet.
* Pour le point A, c'est vrais, vous avez raison, je peux tout mettre sur une
ligne.
* Pour le point B, je trouve cela étrange, car avant que les fichiers soient
sauvés sur le server SharePoint, cela fonctionnait. C'est depuis ce transfert.
Je pense (je me trompe peut être), du fait que je dois faire ce check IN / Check
Out, lorsque ce job est fait, la macro s'arrête naturellement.
Je dois voir si je ne pourrais pas faire ce travail sans faire ce check IN /
Check Out. Vu que je ne fait que lire le document de configuration. Je ne le
modifie pas.
A voir,
Encore une fois, merci pour votre aide
André
In article <j3ldck$s34$, MichD says...
Bonjour,
A ) Tu peux combiner ces 2 lignes pour n'en faire qu'une
Workbooks.Open Filename:=fichier_setup
Set wb = ActiveWorkbook
'Si tu ne mets pas le chemin où est ton fichier, il recherchera le fichier
' dans le répertoire courant du moment, tu risques d'avoir des surprises...
Set Wb = Workbooks.Open(Filename:=fichier_setup)
Ce serait mieux comme ceci :
Set Wb = Workbooks.Open(Filename:="c:LeCheminfichier_setup.xls")
B ) Pour le Wb.Close
Dès que tu fermes le fichier, ce denier n'est plus disponible.
Ton code (procédure) doit être écrit dans un autre module d'un autre fichier
Si c'est le cas, les variables devraient demeurer valides
MichD
--------------------------------------------
"Andre" a écrit dans le message de groupe de discussion :
Bonjour à toutes et tous
J'ai une question: Comment puis-je exécuter le code suivant wb.close
voici le code:
explication en 2 mots de la tâche à exécuter
--------------------------------------------
J'ouvre un fichier sauvegardé sur SharePoint.
En s'ouvrant, il ouvre un autre fichier de configuration.
Ce dernier contient différentes listes.
Une fois la mise à jour terminée, je ferme le fichier de configuration.
Enfin, je remet à jour les différents tableaux.
code dans l'évenement open :
--------------------------
Dim wb As Workbook
Dim ws As Worksheet
' Le fichier étant sauvé sur SharePoint, je fait un Check Out
' Afin d'éviter qu'un autre utilisateur n'ouvre le fichier
' ***********************************************************
FileCheckOut (ActiveWorkbook.FullName)
fg_SharePoint = True
' J'ouvre le fichier de configuration
' ***********************************
Workbooks.Open Filename:=fichier_setup
Set wb = ActiveWorkbook
' .... Ici je fait mon controle ...
' Je ferme le fichier de configuration
' ************************************
wb.Close SaveChanges:úlse
' A partir d'ici, plus aucun code informatique n'est exécuté.
' Toutes les variables ont disparues.
' je n'ai plus la main. Suis-je encore dans l'event 'open'?
' je ne pense pas. Mais, où suis-je alors?
' Mettre à jour des listes
' ************************
....
....
....
Comment puis-je exécuter ce code ?
Merci d'avance pour votre aide
André