jongler avec des feuilles et des valeurs ... pour pédagogue altr ui
1 réponse
pierre66
j'en suis au degré zéro en matière de jonglage VBA ...
ma macro fait appel à différentes feuilles; les cellules A8, .... contenant
le nom de fichiers à ouvrir j'ai réussi (ouf) à les faire ouvrir
Workbooks.Open Filename:= _
"\\serveur-nt\public\documents communs\commercial\budgets\suivi_" &
[A8] & ".xls"
(après un copier-collage en valeur qui me semble bien lourdingue, mais bon,
ça marche)
(et je n'ai même pas réussi à mettre le nom de la cellule dans la formule !)
ensuite je n'arrive pas à manipuler ce fichier; je cherche des formules dans
les ...
Workbooks.Activate Filename:="\\serveur-nt\public\documents
communs\commercial\budgets\suivi_" & [A8] & ".xls"
mais VBA me répond mal
;-/
comment faut-il lui parler ???
----------------------------------
puis-je, lors de l'ouverture, "déclarer" les fichiers avec un nom ou un
numéro fixe pendant la durée de la macro
par ex : suivi_agnes = X (ou 1) , suivi_yves=Y (ou 2)
pour ne pas avoir à repasser dans ma page de macros en faisant (lourd
encore, je me doute) ThisWorkbook.Activate
le B-A-BA, non ? pourtant, je ne trouve pas
----------------------------------
enfin, et je suis bien conscient d'être aussi lourd que mes macros :
comment rechercher la valeur d'une cellule (nom défini : "machin") dans une
AUTRE feuille (qui est ouverte, mais dont je ne connais pas le nom !)
sans faire des copier-coller
par ex :
Selection.Find(What:=[A8], After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:= _
False, SearchFormat:=False).Activate
ne marche pas, puisque je change de feuille en chemin...
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
isabelle
bonjour pierre,
je supose que la macro est un classeur principal, tu peux lui attribuer un nom d'objet comme ça,
Dim principal As Workbook Dim second As Workbook Set principal = ActiveWorkbook 'ouverture du second fichier Workbooks.Open Filename:= _ "serveur-ntpublicdocuments communscommercialbudgetssuivi_" & [A8] & ".xls" 'Nommer cette objet Set second = ActiveWorkbook 'copie de donnée second.Sheets("Feuil4").Range("B1").Copy _ Destination:=principal.Sheets("Feuil1").Range("B1")
isabelle
j'en suis au degré zéro en matière de jonglage VBA ...
ma macro fait appel à différentes feuilles; les cellules A8, .... contenant le nom de fichiers à ouvrir j'ai réussi (ouf) à les faire ouvrir Workbooks.Open Filename:= _ "serveur-ntpublicdocuments communscommercialbudgetssuivi_" & [A8] & ".xls" (après un copier-collage en valeur qui me semble bien lourdingue, mais bon, ça marche) (et je n'ai même pas réussi à mettre le nom de la cellule dans la formule !)
ensuite je n'arrive pas à manipuler ce fichier; je cherche des formules dans les ... Workbooks.Activate Filename:="serveur-ntpublicdocuments communscommercialbudgetssuivi_" & [A8] & ".xls" mais VBA me répond mal ;-/ comment faut-il lui parler ???
---------------------------------- puis-je, lors de l'ouverture, "déclarer" les fichiers avec un nom ou un numéro fixe pendant la durée de la macro par ex : suivi_agnes = X (ou 1) , suivi_yves=Y (ou 2) pour ne pas avoir à repasser dans ma page de macros en faisant (lourd encore, je me doute) ThisWorkbook.Activate
le B-A-BA, non ? pourtant, je ne trouve pas ---------------------------------- enfin, et je suis bien conscient d'être aussi lourd que mes macros : comment rechercher la valeur d'une cellule (nom défini : "machin") dans une AUTRE feuille (qui est ouverte, mais dont je ne connais pas le nom !) sans faire des copier-coller par ex : Selection.Find(What:=[A8], After:¬tiveCell, LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:úlse).Activate ne marche pas, puisque je change de feuille en chemin...
qui me comprend, m'aide ...
bonjour pierre,
je supose que la macro est un classeur principal,
tu peux lui attribuer un nom d'objet comme ça,
Dim principal As Workbook
Dim second As Workbook
Set principal = ActiveWorkbook
'ouverture du second fichier
Workbooks.Open Filename:= _
"\serveur-ntpublicdocuments communscommercialbudgetssuivi_" & [A8] & ".xls"
'Nommer cette objet
Set second = ActiveWorkbook
'copie de donnée
second.Sheets("Feuil4").Range("B1").Copy _
Destination:=principal.Sheets("Feuil1").Range("B1")
isabelle
j'en suis au degré zéro en matière de jonglage VBA ...
ma macro fait appel à différentes feuilles; les cellules A8, .... contenant
le nom de fichiers à ouvrir j'ai réussi (ouf) à les faire ouvrir
Workbooks.Open Filename:= _
"\serveur-ntpublicdocuments communscommercialbudgetssuivi_" &
[A8] & ".xls"
(après un copier-collage en valeur qui me semble bien lourdingue, mais bon,
ça marche)
(et je n'ai même pas réussi à mettre le nom de la cellule dans la formule !)
ensuite je n'arrive pas à manipuler ce fichier; je cherche des formules dans
les ...
Workbooks.Activate Filename:="\serveur-ntpublicdocuments
communscommercialbudgetssuivi_" & [A8] & ".xls"
mais VBA me répond mal
;-/
comment faut-il lui parler ???
----------------------------------
puis-je, lors de l'ouverture, "déclarer" les fichiers avec un nom ou un
numéro fixe pendant la durée de la macro
par ex : suivi_agnes = X (ou 1) , suivi_yves=Y (ou 2)
pour ne pas avoir à repasser dans ma page de macros en faisant (lourd
encore, je me doute) ThisWorkbook.Activate
le B-A-BA, non ? pourtant, je ne trouve pas
----------------------------------
enfin, et je suis bien conscient d'être aussi lourd que mes macros :
comment rechercher la valeur d'une cellule (nom défini : "machin") dans une
AUTRE feuille (qui est ouverte, mais dont je ne connais pas le nom !)
sans faire des copier-coller
par ex :
Selection.Find(What:=[A8], After:¬tiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:= _
False, SearchFormat:úlse).Activate
ne marche pas, puisque je change de feuille en chemin...
je supose que la macro est un classeur principal, tu peux lui attribuer un nom d'objet comme ça,
Dim principal As Workbook Dim second As Workbook Set principal = ActiveWorkbook 'ouverture du second fichier Workbooks.Open Filename:= _ "serveur-ntpublicdocuments communscommercialbudgetssuivi_" & [A8] & ".xls" 'Nommer cette objet Set second = ActiveWorkbook 'copie de donnée second.Sheets("Feuil4").Range("B1").Copy _ Destination:=principal.Sheets("Feuil1").Range("B1")
isabelle
j'en suis au degré zéro en matière de jonglage VBA ...
ma macro fait appel à différentes feuilles; les cellules A8, .... contenant le nom de fichiers à ouvrir j'ai réussi (ouf) à les faire ouvrir Workbooks.Open Filename:= _ "serveur-ntpublicdocuments communscommercialbudgetssuivi_" & [A8] & ".xls" (après un copier-collage en valeur qui me semble bien lourdingue, mais bon, ça marche) (et je n'ai même pas réussi à mettre le nom de la cellule dans la formule !)
ensuite je n'arrive pas à manipuler ce fichier; je cherche des formules dans les ... Workbooks.Activate Filename:="serveur-ntpublicdocuments communscommercialbudgetssuivi_" & [A8] & ".xls" mais VBA me répond mal ;-/ comment faut-il lui parler ???
---------------------------------- puis-je, lors de l'ouverture, "déclarer" les fichiers avec un nom ou un numéro fixe pendant la durée de la macro par ex : suivi_agnes = X (ou 1) , suivi_yves=Y (ou 2) pour ne pas avoir à repasser dans ma page de macros en faisant (lourd encore, je me doute) ThisWorkbook.Activate
le B-A-BA, non ? pourtant, je ne trouve pas ---------------------------------- enfin, et je suis bien conscient d'être aussi lourd que mes macros : comment rechercher la valeur d'une cellule (nom défini : "machin") dans une AUTRE feuille (qui est ouverte, mais dont je ne connais pas le nom !) sans faire des copier-coller par ex : Selection.Find(What:=[A8], After:¬tiveCell, LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:úlse).Activate ne marche pas, puisque je change de feuille en chemin...
