Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Ouverture d'un répertoire

6 réponses
Avatar
Peponne31
Bonsoir,
Je voudrais ouvrir un répertoire qui se situe dans C\Rep\rep
par un simple clic sur un bouton. Si quelqu'un veut bien m'aider !!!
Merci encore

6 réponses

Avatar
MichDenis
Sub test()
'choix du lecteur
CurDir "C:"
Application.Dialogs(xlDialogOpen).Show "CReprep"
End Sub


"Peponne31" a écrit dans le message de news:

Bonsoir,
Je voudrais ouvrir un répertoire qui se situe dans CReprep
par un simple clic sur un bouton. Si quelqu'un veut bien m'aider !!!
Merci encore
Avatar
Peponne31
Bonsoir MichDenis, j'ai bien recopié ta formule mais j'ouvre le dossier Mes
Documents. voici ta formule modifié Sub test()
'choix du lecteur
CurDir "D:"
Application.Dialogs(xlDialogOpen).Show "DLM CONSTRUCTIONDevis"
End Sub
Que doi je modifier pour ouvrir Devis ?



Sub test()
'choix du lecteur
CurDir "C:"
Application.Dialogs(xlDialogOpen).Show "CReprep"
End Sub


"Peponne31" a écrit dans le message de news:

Bonsoir,
Je voudrais ouvrir un répertoire qui se situe dans CReprep
par un simple clic sur un bouton. Si quelqu'un veut bien m'aider !!!
Merci encore





Avatar
MichDenis
Le répertoire à ouvrir doit exister
tu dois éviter les fautes d'orthographe dans le chemin et le fichier stipulé.


"Peponne31" a écrit dans le message de news:

Bonsoir MichDenis, j'ai bien recopié ta formule mais j'ouvre le dossier Mes
Documents. voici ta formule modifié Sub test()
'choix du lecteur
CurDir "D:"
Application.Dialogs(xlDialogOpen).Show "DLM CONSTRUCTIONDevis"
End Sub
Que doi je modifier pour ouvrir Devis ?



Sub test()
'choix du lecteur
CurDir "C:"
Application.Dialogs(xlDialogOpen).Show "CReprep"
End Sub


"Peponne31" a écrit dans le message de news:

Bonsoir,
Je voudrais ouvrir un répertoire qui se situe dans CReprep
par un simple clic sur un bouton. Si quelqu'un veut bien m'aider !!!
Merci encore





Avatar
Garette
Bonsoir,

Je crois qu'il faut mettre C: ou D: ....
D:LM CONSTRUCTIONDevis au lieu de DLM CONSTRUCTIONDevis
"C:Reprep" au lieu de "CReprep"


"MichDenis" a écrit dans le message de news:

Le répertoire à ouvrir doit exister
tu dois éviter les fautes d'orthographe dans le chemin et le fichier
stipulé.


"Peponne31" a écrit dans le message
de news:

Bonsoir MichDenis, j'ai bien recopié ta formule mais j'ouvre le dossier
Mes
Documents. voici ta formule modifié Sub test()
'choix du lecteur
CurDir "D:"
Application.Dialogs(xlDialogOpen).Show "DLM CONSTRUCTIONDevis"
End Sub
Que doi je modifier pour ouvrir Devis ?



Sub test()
'choix du lecteur
CurDir "C:"
Application.Dialogs(xlDialogOpen).Show "CReprep"
End Sub


"Peponne31" a écrit dans le message
de news:

Bonsoir,
Je voudrais ouvrir un répertoire qui se situe dans CReprep
par un simple clic sur un bouton. Si quelqu'un veut bien m'aider !!!
Merci encore









Avatar
MichDenis
Effectivement. J'ai fait un copier-coller du répertoire indiqué dans sa question initiale.


"Garette" a écrit dans le message de news:
%
Bonsoir,

Je crois qu'il faut mettre C: ou D: ....
D:LM CONSTRUCTIONDevis au lieu de DLM CONSTRUCTIONDevis
"C:Reprep" au lieu de "CReprep"


"MichDenis" a écrit dans le message de news:

Le répertoire à ouvrir doit exister
tu dois éviter les fautes d'orthographe dans le chemin et le fichier
stipulé.


"Peponne31" a écrit dans le message
de news:

Bonsoir MichDenis, j'ai bien recopié ta formule mais j'ouvre le dossier
Mes
Documents. voici ta formule modifié Sub test()
'choix du lecteur
CurDir "D:"
Application.Dialogs(xlDialogOpen).Show "DLM CONSTRUCTIONDevis"
End Sub
Que doi je modifier pour ouvrir Devis ?



Sub test()
'choix du lecteur
CurDir "C:"
Application.Dialogs(xlDialogOpen).Show "CReprep"
End Sub


"Peponne31" a écrit dans le message
de news:

Bonsoir,
Je voudrais ouvrir un répertoire qui se situe dans CReprep
par un simple clic sur un bouton. Si quelqu'un veut bien m'aider !!!
Merci encore









Avatar
Peponne31
Bonjour,
Effectivement j'ai oublié les : points
Mia culpa je vous remercie encore pour votre aide.
Peponne31



Effectivement. J'ai fait un copier-coller du répertoire indiqué dans sa question initiale.


"Garette" a écrit dans le message de news:
%
Bonsoir,

Je crois qu'il faut mettre C: ou D: ....
D:LM CONSTRUCTIONDevis au lieu de DLM CONSTRUCTIONDevis
"C:Reprep" au lieu de "CReprep"


"MichDenis" a écrit dans le message de news:

Le répertoire à ouvrir doit exister
tu dois éviter les fautes d'orthographe dans le chemin et le fichier
stipulé.


"Peponne31" a écrit dans le message
de news:

Bonsoir MichDenis, j'ai bien recopié ta formule mais j'ouvre le dossier
Mes
Documents. voici ta formule modifié Sub test()
'choix du lecteur
CurDir "D:"
Application.Dialogs(xlDialogOpen).Show "DLM CONSTRUCTIONDevis"
End Sub
Que doi je modifier pour ouvrir Devis ?



Sub test()
'choix du lecteur
CurDir "C:"
Application.Dialogs(xlDialogOpen).Show "CReprep"
End Sub


"Peponne31" a écrit dans le message
de news:

Bonsoir,
Je voudrais ouvrir un répertoire qui se situe dans CReprep
par un simple clic sur un bouton. Si quelqu'un veut bien m'aider !!!
Merci encore