j'ai une question, comment pourrais je dans cette commande VBA ;
Sub glossaire()
' appel direct
'
' ChDir "\\cdpa202\ut0tug$\Donnees\@suivi_PRO\commun"
Workbooks.Open Filename:="\\cdpa202\ut0tug$\Donnees\@suivi_PRO\commun
\@glossaire.xls"
End Sub
mettre un accès de manière relative et non tout le chemin.
2eme solution : Dim FileToOpen (par défaut variant) fileToOpen = Application.GetOpenFilename("Glossaire Files (*.xls), *.xls") If fileToOpen <> False Then Workbooks.Open Filename:= fileToOpen Else MsgBox "Pas de fichier sélectionné" Exit sub End If
connu que issorp wrote:
Bonjour à toutes et à tous
j'ai une question, comment pourrais je dans cette commande VBA ;
Sub glossaire() ' appel direct ' ' ChDir "cdpa202ut0tug$" Workbooks.Open Filename:="cdpa202ut0tug$ @glossaire.xls" End Sub
mettre un accès de manière relative et non tout le chemin.
mercià tous
!ss0orp
Bonsour®,
il faut de toutes façons connaitre préalablement le chemin
soit qu'il le soit explicitement ou imposé
soit qu'il soit choisi ...
2eme solution :
Dim FileToOpen (par défaut variant)
fileToOpen = Application.GetOpenFilename("Glossaire Files (*.xls), *.xls")
If fileToOpen <> False Then
Workbooks.Open Filename:= fileToOpen
Else
MsgBox "Pas de fichier sélectionné"
Exit sub
End If
connu que issorp wrote:
Bonjour à toutes et à tous
j'ai une question, comment pourrais je dans cette commande VBA ;
Sub glossaire()
' appel direct
'
' ChDir "\cdpa202ut0tug$Donnees@suivi_PROcommun"
Workbooks.Open
Filename:="\cdpa202ut0tug$Donnees@suivi_PROcommun
@glossaire.xls"
End Sub
mettre un accès de manière relative et non tout le chemin.
2eme solution : Dim FileToOpen (par défaut variant) fileToOpen = Application.GetOpenFilename("Glossaire Files (*.xls), *.xls") If fileToOpen <> False Then Workbooks.Open Filename:= fileToOpen Else MsgBox "Pas de fichier sélectionné" Exit sub End If
connu que issorp wrote:
Bonjour à toutes et à tous
j'ai une question, comment pourrais je dans cette commande VBA ;
Sub glossaire() ' appel direct ' ' ChDir "cdpa202ut0tug$" Workbooks.Open Filename:="cdpa202ut0tug$ @glossaire.xls" End Sub
mettre un accès de manière relative et non tout le chemin.
