Probleme ouverture fichiers
Résolu
Victoire
-
Victoire -
Victoire -
Bonjour,
je suis actuellement en stage et je dois faire un programme qui permet l'ouverture d'un document (qui a toujours le meme nom) mais dont le fichier source change a chaque fois. J'ai donc créer deux InputBox afin de rentrer les deux valeurs qui changent.
Voici mon code :
Sub Macro1()
Dim Rang As String
Dim Voie As String
Vol = InputBox("Quel est le numero du rang?", "Numéro de rang", "Tapez le numero du rang")
Voie = InputBox("Quel est le numero de la voie?", "Numéro de la voie", "Tapez le numero de la voie")
ChDir "U:\Appli\Données VSG [" & Rang & "] - L[" & Voie & "]\Données\c[" & Voie & "]c01\fie"
Workbooks.OpenText Filename:= _
"U:\Appli\Données VSG "&Rangl& " - L"&Voie&"*\Données\c"&Voie&"*c01\fie\ccc.fie", Origin:=
xlMSDOS , StartRow:=32, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
Comma:=False, Space:=False, Other:=True, OtherChar:="|", FieldInfo:= _
Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7 _
, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1), Array _
(14, 1), Array(15, 1)), TrailingMinusNumbers:=True
End Sub
Mon problème concerne le fait que je ne sais pas quelle est la syntaxe que je dois utiliser pour inclure les variables dans les chemins pour le dossier.
Je vous remercie d'avance
Cordialement,
Victoire.
je suis actuellement en stage et je dois faire un programme qui permet l'ouverture d'un document (qui a toujours le meme nom) mais dont le fichier source change a chaque fois. J'ai donc créer deux InputBox afin de rentrer les deux valeurs qui changent.
Voici mon code :
Sub Macro1()
Dim Rang As String
Dim Voie As String
Vol = InputBox("Quel est le numero du rang?", "Numéro de rang", "Tapez le numero du rang")
Voie = InputBox("Quel est le numero de la voie?", "Numéro de la voie", "Tapez le numero de la voie")
ChDir "U:\Appli\Données VSG [" & Rang & "] - L[" & Voie & "]\Données\c[" & Voie & "]c01\fie"
Workbooks.OpenText Filename:= _
"U:\Appli\Données VSG "&Rangl& " - L"&Voie&"*\Données\c"&Voie&"*c01\fie\ccc.fie", Origin:=
xlMSDOS , StartRow:=32, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
Comma:=False, Space:=False, Other:=True, OtherChar:="|", FieldInfo:= _
Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7 _
, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1), Array _
(14, 1), Array(15, 1)), TrailingMinusNumbers:=True
End Sub
Mon problème concerne le fait que je ne sais pas quelle est la syntaxe que je dois utiliser pour inclure les variables dans les chemins pour le dossier.
Je vous remercie d'avance
Cordialement,
Victoire.
A voir également:
- Probleme ouverture fichiers
- Renommer des fichiers en masse - Guide
- Page d'ouverture google - Guide
- Fichiers epub - Guide
- Wetransfer gratuit fichiers lourd - Guide
- Explorateur de fichiers - Guide
2 réponses
bonjour,
il y a une erreur ici:
mettre cela:
et pour ne pas avoir a remettre la totalité du chemin, comme ceci:
et pour vérifier si le chemin est bon:
voilà
@+ Le Pivert
il y a une erreur ici:
Vol = InputBox("Quel est le numero du rang?", "Numéro de rang", "Tapez le numero du rang")
mettre cela:
Rang= InputBox("Quel est le numero du rang?", "Numéro de rang", "Tapez le numero du rang")
et pour ne pas avoir a remettre la totalité du chemin, comme ceci:
Dim Rang As String
Dim Voie As String
Dim chemin As String
Rang = InputBox("Quel est le numero du rang?", "Numéro de rang", "Tapez le numero du rang")
Voie = InputBox("Quel est le numero de la voie?", "Numéro de la voie", "Tapez le numero de la voie")
chemin = "U:\Appli\Données VSG [" & Rang & "] - L[" & Voie & "]\Données\c[" & Voie & "]c01\fie"
Workbooks.OpenText Filename:= _
chemin
'etc.
et pour vérifier si le chemin est bon:
MsgBox chemin
voilà
@+ Le Pivert
