Bonjour le forum
Je suis à la recherche d'une VBA ou partie qui me permettrait de modifier, par inputbox, un chemin de recherche dans une macro.
Est-ce que cela est possible ?
J'ai la macro ci-dessous qui fonctionne très bien et je voudrais la modifier dans le sens que le bout de code
Route = "c:\Facturation\Base Bellegarde\Mensuel Bellegarde\"
qui deviendra après modification de la macro
Chemin = "C:\Base Archivage Facturation\2011\Facturation\Base Bellegarde\Mensuel Bellegarde\"
dans les sous-répertoire où doit se faire la copie.
puisse être modifier par l'inputbox en changeant 2011 par 2012 ou suivant selon l'année à rechercher et en gardant tout le reste de ce code.
C'est à dire qu'en cliquant sur le bouton macro, ouvrant la dite macro, il ouvre la boite de dialogue où l'on mentionne l'année considérée et fait évoluer la macro .
Cordialement
Partie de la macro à modifier
'Copie Nbr dossier et Mt Honoraires
Const MesDossiers = "0 Dec,1 Janv,2 Fev,3 Mars,4 Avril,5 Mai,6 juin,7 Juil,8 Aout,9 Sept,10 Oct,11 Nov"
Dim Route As String, Dossier As String, D
Range("B4").Select 'sélectionner la cellule de début
Route = "c:\Facturation\Base Bellegarde\Mensuel Bellegarde\"
For Each D In Split(MesDossiers, ",")
Dossier = Route & D & ".xlsm"
Workbooks.Open Filename:=Dossier
Range("TablNbrDossier").Copy
ThisWorkbook.Activate
Selection.PasteSpecial Paste:=xlPasteValues
Windows(D & ".xlsm").Activate
ActiveWorkbook.Close savechanges:=False
ThisWorkbook.Activate
Range("B65536").End(xlUp).Offset(1, 0).Select
Next D
Je suis à la recherche d'une VBA ou partie qui me permettrait de modifier, par inputbox, un chemin de recherche dans une macro.
Est-ce que cela est possible ?
J'ai la macro ci-dessous qui fonctionne très bien et je voudrais la modifier dans le sens que le bout de code
Route = "c:\Facturation\Base Bellegarde\Mensuel Bellegarde\"
qui deviendra après modification de la macro
Chemin = "C:\Base Archivage Facturation\2011\Facturation\Base Bellegarde\Mensuel Bellegarde\"
dans les sous-répertoire où doit se faire la copie.
puisse être modifier par l'inputbox en changeant 2011 par 2012 ou suivant selon l'année à rechercher et en gardant tout le reste de ce code.
C'est à dire qu'en cliquant sur le bouton macro, ouvrant la dite macro, il ouvre la boite de dialogue où l'on mentionne l'année considérée et fait évoluer la macro .
Cordialement
Partie de la macro à modifier
'Copie Nbr dossier et Mt Honoraires
Const MesDossiers = "0 Dec,1 Janv,2 Fev,3 Mars,4 Avril,5 Mai,6 juin,7 Juil,8 Aout,9 Sept,10 Oct,11 Nov"
Dim Route As String, Dossier As String, D
Range("B4").Select 'sélectionner la cellule de début
Route = "c:\Facturation\Base Bellegarde\Mensuel Bellegarde\"
For Each D In Split(MesDossiers, ",")
Dossier = Route & D & ".xlsm"
Workbooks.Open Filename:=Dossier
Range("TablNbrDossier").Copy
ThisWorkbook.Activate
Selection.PasteSpecial Paste:=xlPasteValues
Windows(D & ".xlsm").Activate
ActiveWorkbook.Close savechanges:=False
ThisWorkbook.Activate
Range("B65536").End(xlUp).Offset(1, 0).Select
Next D
