vba excel : chdirRésolu

Question

je voudrais cr&#233;er 2 boites de dialogues demandant de saisir l'ann&#233;e et l'autre, le mois, et reprendre ces 2 informations pour ouvrir automatiquement un fichier dans la directory de l'ann&#233;e et du mois concern&#233;. 
Ex : on saisit "2005" et "12" et la macro va ouvrir dans les directories   :  .../2005/12.

Ci-dessous mon code (attention, je suis d&#233;butant !!!). La cr&#233;ation des boites de dialogues marche mais c'est le chemin d'ouverture qui ne marche pas. Quelqu'un peut m'aider ? Merci d'avance.

Sub ImportStocks()
'
' ImportStocks Macro
' Importation et mise en forme d'un fichier txt des stocks de JDE


Dim VANNEE As String
'variable correspondant &#224; l'ann&#233;e qui est saisie ds la boite de dialogue
Dim VMOIS As String
'variable correspondant au mois qui est saisi ds la boite de dialogue


VANNEE = InputBox(prompt:="Saisir l'ann&#233;e concernant l'importation des stocks", Title:="IMPORTATION DES STOCKS")
'boite de dialogue pour l'ann&#233;e
VMOIS = InputBox(prompt:="Saisir le mois concernant l'importation des stocks", Title:="IMPORTATION DES STOCKS")
'boite de dialogue pour le mois


ChDir "U:\Compta\Renoux\CptaIndus\VANNEE\VMOIS"


Workbooks.OpenText FileName:= _
  "U:\Compta\Renoux\CptaIndus\VANNEE\VMOIS\stocks.txt", Origin:=xlWindows, _
        StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), Array(28 _
        , 1), Array(35, 1), Array(39, 1), Array(46, 1), Array(52, 1), Array(79, 1), Array(90, 1), _
        Array(120, 1), Array(140, 1), Array(143, 1), Array(160, 1))
        
End Sub

cs_69chris · Accepted Answer

Salut,

Et bien rien de bien grave.
Dans cette chaine : "U:\Compta\Renoux\CptaIndus\VANNEE\VMOIS\stocks.txt", VANNEE et VMOIS sont des chaines de caract&#232;res et ne d&#233;signe en aucun cas les variables. Il faut donc d&#233;finir le chemin comme :
 "U:\Compta\Renoux\CptaIndus" & VANNEE & "" & VMOIS & "\stocks.txt"

Chris

N'oubliez pas de cloturer votre post.

cs_chapata · Answer

Hi,

69Chris &#224; raison, toutes tes variables VBA ne sont pas des chaines de caract&#232;res ...
Il faut absolument les diff&#233;renci&#233;s dans une chaine par 

Ceci est ma chaine de caract&#232;re avec " & MaVariable & " sinon elle ne sera pas trait&#233;e en tant que variable.

Bon courage ...

ChaPaTa

cs_emlyd2207 · Answer

merci &#224; chris et &#224; chapata, &#231;a marche maintenant tr&#232;s bien.

ScSami · Answer

Note que les commentaires, g&#233;n&#233;ralement, se mettent plut&#244;t sur les lignes de codes que dessous m&#234;me si, je te l'accorde, pour la lecture (surtout pour les d&#233;butants) c'est plus facile. Enfin, tu verras bien avec l'exp&#233;rience (quand la nature de tes commentaires changera...) !
De plus, j'ai remarqu&#233; que tu n'employais pas d'indentations !!! Tes progs seront vite foutraques si tu ne prends pas rapidement cette habitude d'indenter ton code (pour info, "indenter" signifie "mettre des espaces devant ton code pour indiquer sa profondeur..."...).

Sinon, pour ton probl&#232;me, en effet, ce n'est rien de grave. Je te conseille cependant de cr&#233;er une variable sp&#233;cialement pour stocker le chemin d'acc&#232;s.

Dim varChemin As String
...
varChemin =  
 "U:\Compta\Renoux\CptaIndus" & VANNEE & "" & VMOIS & "\stocks.txt"

Mais je te conseillerais &#233;galement de tester les donn&#233;es entr&#233;es afin d'&#233;viter au maximum les erreurs (car ta technique est bien trop directe!!!) et, dans la foul&#233;e, mettre en place une gestion des erreurs...
C'est d'ailleurs ce qui est chiant avec les macros qui jouent avec les fichiers... c'est qu'il faut &#234;tre tr&#232;s prudent...

Voici donc comment je ferais ton code :

'ImportStocks Macro
'Importation et mise en forme d'un fichier txt des stocks de JDE

Sub ImportStocks()
 
 'D&#233;claration des variables locales :
 'Variable correspondant &#224; l'ann&#233;e qui est saisie ds la boite de dialogue
 Dim varAnnee As String
 'Variable correspondant au mois qui est saisi ds la boite de dialogue
 Dim varMois As String
 'Variable stockant temporairement le chemin d'acc&#232;s du fichier
 Dim varChemin As String
 'Variable du texte du message d'erreur
 Dim varMsgErreur As String
 
 'Activation du gestionnaire d'erreur
 On Error Goto  GestionErreurs 
 
 'Boite de dialogue pour saisir l'ann&#233;e
 varAnnee  = InputBox(prompt:= "Saisir l'ann&#233;e concernant l'importation des stocks", Title:="IMPORTATION DES STOCKS : ANN&#201;E")
 
 'Boite de dialogue pour saisir le mois
 varMois = InputBox(prompt:="Saisir le mois concernant l'importation des stocks", Title:="IMPORTATION DES STOCKS : MOIS")
 
 varChemin = "U:\Compta\Renoux\CptaIndus" & VANNEE & "" & VMOIS & ""
 ChDir varChemin
 Workbooks.OpenText FileName:= _
  varChemin & "stocks.txt", Origin:=xlWindows, _
        StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), Array(28 _
        , 1), Array(35, 1), Array(39, 1), Array(46, 1), Array(52, 1), Array(79, 1), Array(90, 1), _
        Array(120, 1), Array(140, 1), Array(143, 1), Array(160, 1))
 
 'D&#233;sactivation du gestionnaire d'erreurs
 On Error Goto 0
 
Exit Sub
 GestionErreurs: 
 'Gestionnaire d'erreurs
 varMsgErreur  = "L'erreur N&#176;" & err.Number & " est survenue." & vbNewLine
 varMsgErreur = varMsgErreur & "Description de l'erreur :
" & vbNewLine
 varMsgErreur = varMsgErreur & err.Description & vbNewLine & vbNewLine
 varMsgErreur = varMsgErreur & "Veuillez verrifier les donn&#233;es entr&#233;es " & vbNewLine
 varMsgErreur = varMsgErreur & "et recommancer." & vbNewLine
 'varMsgErreur = varMsgErreur & "" & vbNewLine
 MsgBox(varMsgErreur, vbOKOnly & vbCritical, "Erreur")
End Sub

Code &#224; tester par tes soins!

Enjoy 

 
( Si une r&#233;ponse vous convient, cliquez sur le bouton "R&#233;ponse accept&#233;e". )

cs_emlyd2207 · Answer

merci ScSami, je n'en demandais pas tant mais je prends toutes ces recommandations avec beaucoup d'int&#233;r&#234;t. Je viens de finir ma formation vba d&#233;butant il y a &#224; peine une semaine et je sens que je vais progress&#233; tr&#232;s rapidement avec les membres de ce site. C'est tr&#232;s enthousiasmant de voir la r&#233;activit&#233; et la convivialit&#233; des intervenants.
A bient&#244;t tr&#232;s certainement

ScSami · Answer

Heu... Oui, j'oubliais... 'Boite de dialogue pour saisir l'année varAnnee = InputBox(prompt:="Saisir l'année concernant l'importation des stocks", Title:="IMPORTATION DES STOCKS : ANNÉE") 'Si le texte ne comporte pas exactement 4 caractères, 'Ou si l'expression n'est pas numérique, 'On génère une erreur personnalisée. If Len(varAnnee) <> 4 Or IsNumeric(varAnnee) = False Then Err.Raise vbObjectError + 513, "MyProj.MyObject", "Le format entrée de l'année est invalide." If Then 'Boite de dialogue pour saisir le mois varMois = InputBox(prompt:="Saisir le mois concernant l'importation des stocks", Title:="IMPORTATION DES STOCKS : MOIS") 'Idem mais pour 2 caractères seulement! If Len(varAnnee) <> 2 Or IsNumeric(varAnnee) = False Then Err.Raise vbObjectError + 513, "MyProj.MyObject", "Le format entrée du mois est invalide." Mais à tester quand même (parce que fait de tête)! Enjoy ( Si une réponse vous convient, cliquez sur le bouton "Réponse acceptée". )

Vba excel : chdir

6 réponses