activer un classeur défini par une variableRésolu

Question

Bonjour,
je voudrais savoir si quelqu'un sait comment naviguer d'un classeur &#224; un autre lorsqu'un des classeurs est defini par variant car il a &#233;t&#233; r&#233;up&#233;rer &#224; l'aide d'une bo&#238;te de dialogue ouvrir.

J'ai donc ceci mais bien sur ca ne fonctionne pas,
vrtSelectedItem est le nom de ma variable dans laquelle se trouve le chemin d'acc&#233;s &#224; mon fichier excel.

If Workbooks(vrtSelectedItem).Worksheets("feuil1").Range("AX14") = "X" Then
            Workbooks("Synth&#233;se audit poste").Worksheets("Frappe").Activate
            Range("D6").Value = Range("D6").Value + 1


End If

Lorsque j'utilise :
If Activebooks.Worksheets("feuil1").Range("AX14") = "X" Then
            Workbooks("Synth&#233;se audit poste").Worksheets("Frappe").Activate
            Range("D6").Value = Range("D6").Value + 1


End If
bien entendu ca marche mais je vais cr&#233;er une boucle autour du si pour v&#233;rifier plusieurs cases, donc j'aimerais savoir comment je pourrais indiquer que je veux me trouver dans le classeur selectionn&#233; au d&#233;but.(variable vrtselecteditem).

Merci, toutes les suggestions sont les bienvenues.

jrivet · Accepted Answer

Salut,

Oui ok, je veux bien, mais meme si c est pas toi qui rempli vrtSelectedItem, tu peux quand meme essayer ce que je t'ai propose ca devrait marche et te mettre dans MonClasseur le nom correct.

PS: Le classeur choisi avec la boite est deja ouvert?

@+, Julien 
Pensez: Moteur de Recherche, R&#233;ponse Accept&#233;e

jrivet · Answer

Salut,

As tu verifier que vrtSelectedItem contenais bien a ce moment un nom de classeur valide et ouvert ?

@+, Julien 
Pensez: Moteur de Recherche, R&#233;ponse Accept&#233;e

cs_jeremilie · Answer

oui j'ai bien regard&#233;, il contient bien le chemin entier du fichier:
c://dossier/fichier.xls

merci quand m&#234;me

jrivet · Answer

Salut, 

est ce que c:\dossier\fichier.xls ne serait pas mieux que c://dossier/fichier.xls

@+, Julien 
Pensez: Moteur de Recherche, R&#233;ponse Accept&#233;e

cs_jeremilie · Answer

bonjour,
j'ai regard&#233; et le fichier est bien &#233;cris comme tu le dis.

jrivet · Answer

Re,

Essayons autrement.

Essaie de faire 

Workbooks(vrtSelectedItem).Activate
 'Attention petite correction il y avait ActiveWorkBookS -> Changer en ActiveWorkbook
If Activebook.Worksheets("feuil1").Range("AX14") = "X" Then 
            Workbooks("Synth&#233;se audit poste").Worksheets("Frappe").Activate
            Range("D6").Value = Range("D6").Value + 1 
End If

@+, Julien 
Pensez: Moteur de Recherche, R&#233;ponse Accept&#233;e

cs_jeremilie · Answer

re,
ca ne marche toujours pas, je crois que c'est parce la variable contient non pas le nom du fichier mais son chemin complet.
J'avais d&#233;j&#224; esay&#233; 
Workbooks(vrtSelectedItem).Activate
et ca me renvoi une erreur 9.
Merci quand m&#234;me

jrivet · Answer

Re,

Effectivement, ce que tu viens de dire (chemin complet) me parait une bonne remarque.

As tu essayer de voir si ton probleme se resolvait en isolant le nom du classeur?

@+, Julien 
Pensez: Moteur de Recherche, R&#233;ponse Accept&#233;e

cs_jeremilie · Answer

justement je n'arrive pas a aplliquer les fonctions sur une variable.

jrivet · Answer

salut,

vrtSelectedItem est bien une variable que tu gere toi meme.

essaie

Dim MonClasseur As String
vrtSelectedItem= "C:\pp	ueut\classeur1.xls"


MonClasseur = Right(vrtSelectedItem, InStrRev(vrtSelectedItem, "") + 1)
MsgBox MonClasseur

@+, Julien 
Pensez: Moteur de Recherche, R&#233;ponse Accept&#233;e

cs_jeremilie · Answer

Le probl&#232;me c'est que j'affecte pas directement le chemin &#224; ma variable mais je le r&#233;cup&#232;re en choississant celui ci dans une boite de dialogue ouvrir un fichier.

Merci
Bonne soir&#233;e

cs_jeremilie · Answer

bonjour,
je vais essayer et oui le classeur est d&#233;j&#224; ouvert.

Activer un classeur défini par une variable

12 réponses

Discussions similaires