Modifs code VBA

[kinslow]

Bonsoir a tous,

j'ai récuperer un fichier sur ce site mais je n'arrive pas a faire 2 petites modifs dessus.
Je voudrais que lorsque je clique sur go url afficher soit C:\Documents and Settings\Administrateur\Bureau\mails et non C:\Documents and Settings\Administrateur\Mes documents comme il est afficher à la base. Je voudrais ensuite que dans la case sous "nouveau titre" soit afficher dès l'ouverture la cellule C17 pour afficher le mot test.
Je pense que ces modifs ne sont pas très dur, encore faut-il les connaitre...
Je vous remerci davance pour vos réponses.
Nico

 

[gilbert_RGI]

Re : Modifs code VBA

bonjour

ajouter les lignes en rouge

Private Sub UserForm_Initialize()
[COLOR="Red"]ChDir ("C:\Documents and Settings\Administrateur\Bureau\mails\")[/COLOR]
  Me.Dossier = CurDir()
  Me.ChoixFichier.Clear
  nf = Dir("*.*")                  ' premier
  Do While nf <> ""
    Me.ChoixFichier.AddItem nf
    nf = Dir                       ' suivant
  Loop
[COLOR="red"]  Me.FichierChoisi.Text = Sheets("RenommeFichier").[c17].Value[/COLOR]
End Sub

puis modifier ceci

Private Sub b_dossier_Click()
 If Val(Application.Version) >= 10 Then
   With Application.FileDialog(msoFileDialogFolderPicker)
     .InitialFileName = c:
     .Show
     If .SelectedItems.Count > 0 Then
       Me.Dossier = .SelectedItems(1)
       ChDir Me.Dossier
     Else
       Me.Dossier = ""
     End If
     [COLOR="Red"]userform_ini[/COLOR]
    End With
  Else
    DossierChoisi = VoirDossier("Choisir le dossier")
    If DossierChoisi <> "" Then
      Me.Dossier = DossierChoisi
      ChDir DossierChoisi
    End If
    [COLOR="red"]userform_ini[/COLOR]
  End If
End Sub

puis ajouter ceci

[COLOR="red"]Sub userform_ini()
  Me.Dossier = CurDir()
  Me.ChoixFichier.Clear
  nf = Dir("*.*")                  ' premier
  Do While nf <> ""
    Me.ChoixFichier.AddItem nf
    nf = Dir                       ' suivant
  Loop

End Sub

[/COLOR]

Salutations

RGI

 

[kinslow]

Re : Modifs code VBA

Merci RGI tes modifs marchent impec.Nikel