J'ai un pbl avec ce code : Quand je vais dans la ligne
"racine_grille_recap = "C:" 'Feuil1.Combo_racine.Value,si je met I: ou D:,
je vais bien directement dans mon I: ou D:,
Mais quand je met C: ou c: ou C:\, il va dans mes documents.
Comment faire pour aller directement dans C:
Merci Ced
Sub Recup_dir_sans_liens()
Dim Rep As String, Fichier As String
Dim CheminEtFichier As String, NFichier As String, NChemin As String
'Rep = CurDir$
racine_grille_recap = "C:" 'Feuil1.Combo_racine.Value
'ChDrive "I:" 'important, si non, ca fout la merde !!!!!
ChDrive racine_grille_recap
Fichier = Application.GetOpenFilename
'If VarType(Fichier) = vbBoolean Then Exit Sub ' (annulation)
test_explorateur = Fichier
If Fichier = "Faux" Then Exit Sub ' (annulation)
'If Fichier = name_grille_recap Then Exit Sub
'ChDir Rep
Workbooks.Open Fichier, Application.AskToUpdateLinks = False 'ici, on
empeche d'ouvrir les liens
'split97 est une fonction programmée dans displidicus
'pour remplacer la fonction split qui n'est valable que dans excel 2000 ou XP
'NFichier = Split(Fichier, "\")(UBound(Split(Fichier, "\")))
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
Daniel
Bonjour. Considère les différentes valeurs du chemin :
Sub test() MsgBox CurDir ChDrive "c" MsgBox CurDir ChDir "" MsgBox CurDir End Sub
Cordialement. Daniel "ced" a écrit dans le message de news:
Bonjour,
J'ai un pbl avec ce code : Quand je vais dans la ligne "racine_grille_recap = "C:" 'Feuil1.Combo_racine.Value,si je met I: ou D:, je vais bien directement dans mon I: ou D:, Mais quand je met C: ou c: ou C:, il va dans mes documents. Comment faire pour aller directement dans C:
Merci Ced
Sub Recup_dir_sans_liens()
Dim Rep As String, Fichier As String Dim CheminEtFichier As String, NFichier As String, NChemin As String
'Rep = CurDir$
racine_grille_recap = "C:" 'Feuil1.Combo_racine.Value 'ChDrive "I:" 'important, si non, ca fout la merde !!!!! ChDrive racine_grille_recap
Fichier = Application.GetOpenFilename
'If VarType(Fichier) = vbBoolean Then Exit Sub ' (annulation) test_explorateur = Fichier If Fichier = "Faux" Then Exit Sub ' (annulation) 'If Fichier = name_grille_recap Then Exit Sub
'ChDir Rep
Workbooks.Open Fichier, Application.AskToUpdateLinks = False 'ici, on empeche d'ouvrir les liens
'split97 est une fonction programmée dans displidicus 'pour remplacer la fonction split qui n'est valable que dans excel 2000 ou XP 'NFichier = Split(Fichier, "")(UBound(Split(Fichier, "")))
Bonjour.
Considère les différentes valeurs du chemin :
Sub test()
MsgBox CurDir
ChDrive "c"
MsgBox CurDir
ChDir ""
MsgBox CurDir
End Sub
Cordialement.
Daniel
"ced" <ced@discussions.microsoft.com> a écrit dans le message de news:
23028737-7771-4DEB-A972-3C6C2314E2ED@microsoft.com...
Bonjour,
J'ai un pbl avec ce code : Quand je vais dans la ligne
"racine_grille_recap = "C:" 'Feuil1.Combo_racine.Value,si je met I: ou D:,
je vais bien directement dans mon I: ou D:,
Mais quand je met C: ou c: ou C:, il va dans mes documents.
Comment faire pour aller directement dans C:
Merci Ced
Sub Recup_dir_sans_liens()
Dim Rep As String, Fichier As String
Dim CheminEtFichier As String, NFichier As String, NChemin As String
'Rep = CurDir$
racine_grille_recap = "C:" 'Feuil1.Combo_racine.Value
'ChDrive "I:" 'important, si non, ca fout la merde !!!!!
ChDrive racine_grille_recap
Fichier = Application.GetOpenFilename
'If VarType(Fichier) = vbBoolean Then Exit Sub ' (annulation)
test_explorateur = Fichier
If Fichier = "Faux" Then Exit Sub ' (annulation)
'If Fichier = name_grille_recap Then Exit Sub
'ChDir Rep
Workbooks.Open Fichier, Application.AskToUpdateLinks = False 'ici, on
empeche d'ouvrir les liens
'split97 est une fonction programmée dans displidicus
'pour remplacer la fonction split qui n'est valable que dans excel 2000 ou
XP
'NFichier = Split(Fichier, "")(UBound(Split(Fichier, "")))
Bonjour. Considère les différentes valeurs du chemin :
Sub test() MsgBox CurDir ChDrive "c" MsgBox CurDir ChDir "" MsgBox CurDir End Sub
Cordialement. Daniel "ced" a écrit dans le message de news:
Bonjour,
J'ai un pbl avec ce code : Quand je vais dans la ligne "racine_grille_recap = "C:" 'Feuil1.Combo_racine.Value,si je met I: ou D:, je vais bien directement dans mon I: ou D:, Mais quand je met C: ou c: ou C:, il va dans mes documents. Comment faire pour aller directement dans C:
Merci Ced
Sub Recup_dir_sans_liens()
Dim Rep As String, Fichier As String Dim CheminEtFichier As String, NFichier As String, NChemin As String
'Rep = CurDir$
racine_grille_recap = "C:" 'Feuil1.Combo_racine.Value 'ChDrive "I:" 'important, si non, ca fout la merde !!!!! ChDrive racine_grille_recap
Fichier = Application.GetOpenFilename
'If VarType(Fichier) = vbBoolean Then Exit Sub ' (annulation) test_explorateur = Fichier If Fichier = "Faux" Then Exit Sub ' (annulation) 'If Fichier = name_grille_recap Then Exit Sub
'ChDir Rep
Workbooks.Open Fichier, Application.AskToUpdateLinks = False 'ici, on empeche d'ouvrir les liens
'split97 est une fonction programmée dans displidicus 'pour remplacer la fonction split qui n'est valable que dans excel 2000 ou XP 'NFichier = Split(Fichier, "")(UBound(Split(Fichier, "")))
Ca marche, mais je ne comprend pas trop le pourquoi du comment ?
Bonjour. Considère les différentes valeurs du chemin :
Sub test() MsgBox CurDir ChDrive "c" MsgBox CurDir ChDir "" MsgBox CurDir End Sub
Cordialement. Daniel "ced" a écrit dans le message de news:
Bonjour,
J'ai un pbl avec ce code : Quand je vais dans la ligne "racine_grille_recap = "C:" 'Feuil1.Combo_racine.Value,si je met I: ou D:, je vais bien directement dans mon I: ou D:, Mais quand je met C: ou c: ou C:, il va dans mes documents. Comment faire pour aller directement dans C:
Merci Ced
Sub Recup_dir_sans_liens()
Dim Rep As String, Fichier As String Dim CheminEtFichier As String, NFichier As String, NChemin As String
'Rep = CurDir$
racine_grille_recap = "C:" 'Feuil1.Combo_racine.Value 'ChDrive "I:" 'important, si non, ca fout la merde !!!!! ChDrive racine_grille_recap
Fichier = Application.GetOpenFilename
'If VarType(Fichier) = vbBoolean Then Exit Sub ' (annulation) test_explorateur = Fichier If Fichier = "Faux" Then Exit Sub ' (annulation) 'If Fichier = name_grille_recap Then Exit Sub
'ChDir Rep
Workbooks.Open Fichier, Application.AskToUpdateLinks = False 'ici, on empeche d'ouvrir les liens
'split97 est une fonction programmée dans displidicus 'pour remplacer la fonction split qui n'est valable que dans excel 2000 ou XP 'NFichier = Split(Fichier, "")(UBound(Split(Fichier, "")))
Ca marche, mais je ne comprend pas trop le pourquoi du comment ?
Bonjour.
Considère les différentes valeurs du chemin :
Sub test()
MsgBox CurDir
ChDrive "c"
MsgBox CurDir
ChDir ""
MsgBox CurDir
End Sub
Cordialement.
Daniel
"ced" <ced@discussions.microsoft.com> a écrit dans le message de news:
23028737-7771-4DEB-A972-3C6C2314E2ED@microsoft.com...
Bonjour,
J'ai un pbl avec ce code : Quand je vais dans la ligne
"racine_grille_recap = "C:" 'Feuil1.Combo_racine.Value,si je met I: ou D:,
je vais bien directement dans mon I: ou D:,
Mais quand je met C: ou c: ou C:, il va dans mes documents.
Comment faire pour aller directement dans C:
Merci Ced
Sub Recup_dir_sans_liens()
Dim Rep As String, Fichier As String
Dim CheminEtFichier As String, NFichier As String, NChemin As String
'Rep = CurDir$
racine_grille_recap = "C:" 'Feuil1.Combo_racine.Value
'ChDrive "I:" 'important, si non, ca fout la merde !!!!!
ChDrive racine_grille_recap
Fichier = Application.GetOpenFilename
'If VarType(Fichier) = vbBoolean Then Exit Sub ' (annulation)
test_explorateur = Fichier
If Fichier = "Faux" Then Exit Sub ' (annulation)
'If Fichier = name_grille_recap Then Exit Sub
'ChDir Rep
Workbooks.Open Fichier, Application.AskToUpdateLinks = False 'ici, on
empeche d'ouvrir les liens
'split97 est une fonction programmée dans displidicus
'pour remplacer la fonction split qui n'est valable que dans excel 2000 ou
XP
'NFichier = Split(Fichier, "")(UBound(Split(Fichier, "")))
Ca marche, mais je ne comprend pas trop le pourquoi du comment ?
Bonjour. Considère les différentes valeurs du chemin :
Sub test() MsgBox CurDir ChDrive "c" MsgBox CurDir ChDir "" MsgBox CurDir End Sub
Cordialement. Daniel "ced" a écrit dans le message de news:
Bonjour,
J'ai un pbl avec ce code : Quand je vais dans la ligne "racine_grille_recap = "C:" 'Feuil1.Combo_racine.Value,si je met I: ou D:, je vais bien directement dans mon I: ou D:, Mais quand je met C: ou c: ou C:, il va dans mes documents. Comment faire pour aller directement dans C:
Merci Ced
Sub Recup_dir_sans_liens()
Dim Rep As String, Fichier As String Dim CheminEtFichier As String, NFichier As String, NChemin As String
'Rep = CurDir$
racine_grille_recap = "C:" 'Feuil1.Combo_racine.Value 'ChDrive "I:" 'important, si non, ca fout la merde !!!!! ChDrive racine_grille_recap
Fichier = Application.GetOpenFilename
'If VarType(Fichier) = vbBoolean Then Exit Sub ' (annulation) test_explorateur = Fichier If Fichier = "Faux" Then Exit Sub ' (annulation) 'If Fichier = name_grille_recap Then Exit Sub
'ChDir Rep
Workbooks.Open Fichier, Application.AskToUpdateLinks = False 'ici, on empeche d'ouvrir les liens
'split97 est une fonction programmée dans displidicus 'pour remplacer la fonction split qui n'est valable que dans excel 2000 ou XP 'NFichier = Split(Fichier, "")(UBound(Split(Fichier, "")))
Par contre, j'ai un nnouveau probleme, il ne va bien dans le C:, mais il ne va pas plus loin. Il ne prend pas en compte le chemin ou il se trouve dans le c:
ex : C:Cas2000Sqlbase ... maintenant, il se bloque a C:
Bonjour. Considère les différentes valeurs du chemin :
Sub test() MsgBox CurDir ChDrive "c" MsgBox CurDir ChDir "" MsgBox CurDir End Sub
Cordialement. Daniel "ced" a écrit dans le message de news:
Bonjour,
J'ai un pbl avec ce code : Quand je vais dans la ligne "racine_grille_recap = "C:" 'Feuil1.Combo_racine.Value,si je met I: ou D:, je vais bien directement dans mon I: ou D:, Mais quand je met C: ou c: ou C:, il va dans mes documents. Comment faire pour aller directement dans C:
Merci Ced
Sub Recup_dir_sans_liens()
Dim Rep As String, Fichier As String Dim CheminEtFichier As String, NFichier As String, NChemin As String
'Rep = CurDir$
racine_grille_recap = "C:" 'Feuil1.Combo_racine.Value 'ChDrive "I:" 'important, si non, ca fout la merde !!!!! ChDrive racine_grille_recap
Fichier = Application.GetOpenFilename
'If VarType(Fichier) = vbBoolean Then Exit Sub ' (annulation) test_explorateur = Fichier If Fichier = "Faux" Then Exit Sub ' (annulation) 'If Fichier = name_grille_recap Then Exit Sub
'ChDir Rep
Workbooks.Open Fichier, Application.AskToUpdateLinks = False 'ici, on empeche d'ouvrir les liens
'split97 est une fonction programmée dans displidicus 'pour remplacer la fonction split qui n'est valable que dans excel 2000 ou XP 'NFichier = Split(Fichier, "")(UBound(Split(Fichier, "")))
Par contre, j'ai un nnouveau probleme,
il ne va bien dans le C:, mais il ne va pas plus loin. Il ne prend pas en
compte le chemin ou il se trouve dans le c:
ex : C:Cas2000Sqlbase ... maintenant, il se bloque a C:
Bonjour.
Considère les différentes valeurs du chemin :
Sub test()
MsgBox CurDir
ChDrive "c"
MsgBox CurDir
ChDir ""
MsgBox CurDir
End Sub
Cordialement.
Daniel
"ced" <ced@discussions.microsoft.com> a écrit dans le message de news:
23028737-7771-4DEB-A972-3C6C2314E2ED@microsoft.com...
Bonjour,
J'ai un pbl avec ce code : Quand je vais dans la ligne
"racine_grille_recap = "C:" 'Feuil1.Combo_racine.Value,si je met I: ou D:,
je vais bien directement dans mon I: ou D:,
Mais quand je met C: ou c: ou C:, il va dans mes documents.
Comment faire pour aller directement dans C:
Merci Ced
Sub Recup_dir_sans_liens()
Dim Rep As String, Fichier As String
Dim CheminEtFichier As String, NFichier As String, NChemin As String
'Rep = CurDir$
racine_grille_recap = "C:" 'Feuil1.Combo_racine.Value
'ChDrive "I:" 'important, si non, ca fout la merde !!!!!
ChDrive racine_grille_recap
Fichier = Application.GetOpenFilename
'If VarType(Fichier) = vbBoolean Then Exit Sub ' (annulation)
test_explorateur = Fichier
If Fichier = "Faux" Then Exit Sub ' (annulation)
'If Fichier = name_grille_recap Then Exit Sub
'ChDir Rep
Workbooks.Open Fichier, Application.AskToUpdateLinks = False 'ici, on
empeche d'ouvrir les liens
'split97 est une fonction programmée dans displidicus
'pour remplacer la fonction split qui n'est valable que dans excel 2000 ou
XP
'NFichier = Split(Fichier, "")(UBound(Split(Fichier, "")))
Par contre, j'ai un nnouveau probleme, il ne va bien dans le C:, mais il ne va pas plus loin. Il ne prend pas en compte le chemin ou il se trouve dans le c:
ex : C:Cas2000Sqlbase ... maintenant, il se bloque a C:
Bonjour. Considère les différentes valeurs du chemin :
Sub test() MsgBox CurDir ChDrive "c" MsgBox CurDir ChDir "" MsgBox CurDir End Sub
Cordialement. Daniel "ced" a écrit dans le message de news:
Bonjour,
J'ai un pbl avec ce code : Quand je vais dans la ligne "racine_grille_recap = "C:" 'Feuil1.Combo_racine.Value,si je met I: ou D:, je vais bien directement dans mon I: ou D:, Mais quand je met C: ou c: ou C:, il va dans mes documents. Comment faire pour aller directement dans C:
Merci Ced
Sub Recup_dir_sans_liens()
Dim Rep As String, Fichier As String Dim CheminEtFichier As String, NFichier As String, NChemin As String
'Rep = CurDir$
racine_grille_recap = "C:" 'Feuil1.Combo_racine.Value 'ChDrive "I:" 'important, si non, ca fout la merde !!!!! ChDrive racine_grille_recap
Fichier = Application.GetOpenFilename
'If VarType(Fichier) = vbBoolean Then Exit Sub ' (annulation) test_explorateur = Fichier If Fichier = "Faux" Then Exit Sub ' (annulation) 'If Fichier = name_grille_recap Then Exit Sub
'ChDir Rep
Workbooks.Open Fichier, Application.AskToUpdateLinks = False 'ici, on empeche d'ouvrir les liens
'split97 est une fonction programmée dans displidicus 'pour remplacer la fonction split qui n'est valable que dans excel 2000 ou XP 'NFichier = Split(Fichier, "")(UBound(Split(Fichier, "")))
Sub test() MsgBox CurDir ' affiche le répertoire courant pour le lecteur courant ChDrive "c" ' change de lecteur MsgBox CurDir 'affiche le répertoire courant pour le lecteur C: ChDir "" 'change de répertoire (répertoire principal) MsgBox CurDir 'affiche le répertooire courant pour le lecteur C: () ChDir "Cas2000Sqlbase" 'change de répertoire End Sub
Cordialement. Daniel "ced" a écrit dans le message de news:
Par contre, j'ai un nnouveau probleme, il ne va bien dans le C:, mais il ne va pas plus loin. Il ne prend pas en compte le chemin ou il se trouve dans le c:
ex : C:Cas2000Sqlbase ... maintenant, il se bloque a C:
Bonjour. Considère les différentes valeurs du chemin :
Sub test() MsgBox CurDir ChDrive "c" MsgBox CurDir ChDir "" MsgBox CurDir End Sub
Cordialement. Daniel "ced" a écrit dans le message de news:
Bonjour,
J'ai un pbl avec ce code : Quand je vais dans la ligne "racine_grille_recap = "C:" 'Feuil1.Combo_racine.Value,si je met I: ou D:, je vais bien directement dans mon I: ou D:, Mais quand je met C: ou c: ou C:, il va dans mes documents. Comment faire pour aller directement dans C:
Merci Ced
Sub Recup_dir_sans_liens()
Dim Rep As String, Fichier As String Dim CheminEtFichier As String, NFichier As String, NChemin As String
'Rep = CurDir$
racine_grille_recap = "C:" 'Feuil1.Combo_racine.Value 'ChDrive "I:" 'important, si non, ca fout la merde !!!!! ChDrive racine_grille_recap
Fichier = Application.GetOpenFilename
'If VarType(Fichier) = vbBoolean Then Exit Sub ' (annulation) test_explorateur = Fichier If Fichier = "Faux" Then Exit Sub ' (annulation) 'If Fichier = name_grille_recap Then Exit Sub
'ChDir Rep
Workbooks.Open Fichier, Application.AskToUpdateLinks = False 'ici, on empeche d'ouvrir les liens
'split97 est une fonction programmée dans displidicus 'pour remplacer la fonction split qui n'est valable que dans excel 2000 ou XP 'NFichier = Split(Fichier, "")(UBound(Split(Fichier, "")))
Sub test()
MsgBox CurDir ' affiche le répertoire courant pour le lecteur courant
ChDrive "c" ' change de lecteur
MsgBox CurDir 'affiche le répertoire courant pour le lecteur C:
ChDir "" 'change de répertoire (répertoire principal)
MsgBox CurDir 'affiche le répertooire courant pour le lecteur C: ()
ChDir "Cas2000Sqlbase" 'change de répertoire
End Sub
Cordialement.
Daniel
"ced" <ced@discussions.microsoft.com> a écrit dans le message de news:
29FE74BC-C287-4959-A76B-52F54E91D3F3@microsoft.com...
Par contre, j'ai un nnouveau probleme,
il ne va bien dans le C:, mais il ne va pas plus loin. Il ne prend pas en
compte le chemin ou il se trouve dans le c:
ex : C:Cas2000Sqlbase ... maintenant, il se bloque a C:
Bonjour.
Considère les différentes valeurs du chemin :
Sub test()
MsgBox CurDir
ChDrive "c"
MsgBox CurDir
ChDir ""
MsgBox CurDir
End Sub
Cordialement.
Daniel
"ced" <ced@discussions.microsoft.com> a écrit dans le message de news:
23028737-7771-4DEB-A972-3C6C2314E2ED@microsoft.com...
Bonjour,
J'ai un pbl avec ce code : Quand je vais dans la ligne
"racine_grille_recap = "C:" 'Feuil1.Combo_racine.Value,si je met I: ou
D:,
je vais bien directement dans mon I: ou D:,
Mais quand je met C: ou c: ou C:, il va dans mes documents.
Comment faire pour aller directement dans C:
Merci Ced
Sub Recup_dir_sans_liens()
Dim Rep As String, Fichier As String
Dim CheminEtFichier As String, NFichier As String, NChemin As String
'Rep = CurDir$
racine_grille_recap = "C:" 'Feuil1.Combo_racine.Value
'ChDrive "I:" 'important, si non, ca fout la merde !!!!!
ChDrive racine_grille_recap
Fichier = Application.GetOpenFilename
'If VarType(Fichier) = vbBoolean Then Exit Sub ' (annulation)
test_explorateur = Fichier
If Fichier = "Faux" Then Exit Sub ' (annulation)
'If Fichier = name_grille_recap Then Exit Sub
'ChDir Rep
Workbooks.Open Fichier, Application.AskToUpdateLinks = False 'ici, on
empeche d'ouvrir les liens
'split97 est une fonction programmée dans displidicus
'pour remplacer la fonction split qui n'est valable que dans excel 2000
ou
XP
'NFichier = Split(Fichier, "")(UBound(Split(Fichier, "")))
Sub test() MsgBox CurDir ' affiche le répertoire courant pour le lecteur courant ChDrive "c" ' change de lecteur MsgBox CurDir 'affiche le répertoire courant pour le lecteur C: ChDir "" 'change de répertoire (répertoire principal) MsgBox CurDir 'affiche le répertooire courant pour le lecteur C: () ChDir "Cas2000Sqlbase" 'change de répertoire End Sub
Cordialement. Daniel "ced" a écrit dans le message de news:
Par contre, j'ai un nnouveau probleme, il ne va bien dans le C:, mais il ne va pas plus loin. Il ne prend pas en compte le chemin ou il se trouve dans le c:
ex : C:Cas2000Sqlbase ... maintenant, il se bloque a C:
Bonjour. Considère les différentes valeurs du chemin :
Sub test() MsgBox CurDir ChDrive "c" MsgBox CurDir ChDir "" MsgBox CurDir End Sub
Cordialement. Daniel "ced" a écrit dans le message de news:
Bonjour,
J'ai un pbl avec ce code : Quand je vais dans la ligne "racine_grille_recap = "C:" 'Feuil1.Combo_racine.Value,si je met I: ou D:, je vais bien directement dans mon I: ou D:, Mais quand je met C: ou c: ou C:, il va dans mes documents. Comment faire pour aller directement dans C:
Merci Ced
Sub Recup_dir_sans_liens()
Dim Rep As String, Fichier As String Dim CheminEtFichier As String, NFichier As String, NChemin As String
'Rep = CurDir$
racine_grille_recap = "C:" 'Feuil1.Combo_racine.Value 'ChDrive "I:" 'important, si non, ca fout la merde !!!!! ChDrive racine_grille_recap
Fichier = Application.GetOpenFilename
'If VarType(Fichier) = vbBoolean Then Exit Sub ' (annulation) test_explorateur = Fichier If Fichier = "Faux" Then Exit Sub ' (annulation) 'If Fichier = name_grille_recap Then Exit Sub
'ChDir Rep
Workbooks.Open Fichier, Application.AskToUpdateLinks = False 'ici, on empeche d'ouvrir les liens
'split97 est une fonction programmée dans displidicus 'pour remplacer la fonction split qui n'est valable que dans excel 2000 ou XP 'NFichier = Split(Fichier, "")(UBound(Split(Fichier, "")))
