boite de dialogue

Al1000 à dit:

1)mais le fichier ouv 39 a un mot de passe

comment faire afin qu'il me demande pas le mot de passe ( ouverture en lecture seule)
et comment faire pour qu'il me demande pas mette les liaisons à jour

2) le fichier ouv 39 change toutes les semaines

ouv 40 puis ouv 42

comment faire pour qu'il me demande quel fichier ouvrir?

Cliquez pour agrandir...

[SIZE=2][COLOR=NAVY]Sub[/COLOR] Ouvrir()
[COLOR=NAVY]Dim[/COLOR] Fichier [COLOR=NAVY]As Variant[/COLOR]
    [COLOR=GREEN]'Demande le numéro du fichier souhaité[/COLOR]
    Fichier = Application.InputBox("Numéro du fichier ?", "Ouvrir", [COLOR=NAVY]Type[/COLOR]:=1)
    [COLOR=NAVY]If[/COLOR] Fichier = [COLOR=NAVY]False Then Exit Sub[/COLOR]
    [COLOR=GREEN]'Vérifie que le fichier existe[/COLOR]
    Fichier = "l:\imp\ouv " & Fichier & ".xls"
    [COLOR=NAVY]If[/COLOR] Dir(Fichier) = "" [COLOR=NAVY]Then Exit Sub[/COLOR]
    [COLOR=GREEN]'Ouvre le fichier en lecture seule, sans mise à jour des liens[/COLOR]
    Workbooks.[COLOR=NAVY]Open[/COLOR] Filename:=Fichier, UpdateLinks:=[COLOR=NAVY]False[/COLOR], ReadOnly:=[COLOR=NAVY]True
End Sub[/COLOR][/SIZE]

[SIZE=2]Workbooks.[COLOR=NAVY]Open[/COLOR] Filename:=Fichier, UpdateLinks:=[COLOR=NAVY]False[/COLOR], ReadOnly:=[COLOR=NAVY]True[/COLOR][/SIZE]

• Si ce dernier est toujours le classeur Actif au moment de le fermer, il suffit simplement de faire :
  
  Code:

  [SIZE=2]    ActiveWorkbook.[COLOR=NAVY]Close[/COLOR] SaveChanges:=[COLOR=NAVY]False[/COLOR]
  [/SIZE]

• Si, compte tenu du traitement que tu effectues, le classeur en question n'est plus le classeur actif, alors il convient de modifier le code précédent comme suit :
  
  Code:

  [SIZE=2][COLOR=GRAY][B][I]DANS UN MODULE DE CODE STANDARD[/I][/B][/COLOR]
  
  [COLOR=NAVY]Option Explicit[/COLOR]
  
  [COLOR=GREEN]'Variable déclarée en entête de module[/COLOR]
  [COLOR=NAVY]Dim[/COLOR] [B]FichierCible [/B][COLOR=NAVY]As[/COLOR] Workbook
  
  [COLOR=NAVY]Sub[/COLOR] Ouvrir()
  [COLOR=NAVY]Dim[/COLOR] Fichier [COLOR=NAVY]As Variant[/COLOR]
      [COLOR=GREEN]'Demande le numéro du fichier souhaité[/COLOR]
      Fichier = Application.InputBox("Numéro du fichier ?", "Ouvrir", [COLOR=NAVY]Type[/COLOR]:=1)
      [COLOR=NAVY]If[/COLOR] Fichier = [COLOR=NAVY]False Then Exit Sub[/COLOR]
      [COLOR=GREEN]'Vérifie que le fichier existe[/COLOR]
      Fichier = "l:\imp\ouv " & Fichier & ".xls"
      [COLOR=NAVY]If[/COLOR] Dir(Fichier) = "" [COLOR=NAVY]Then Exit Sub[/COLOR]
      [COLOR=GREEN]'Ouvre le fichier en lecture seule, sans mise à jour des liens[/COLOR]
      [COLOR=NAVY]Set[/COLOR] [B]FichierCible [/B]= Workbooks.[COLOR=NAVY]Open[/COLOR](Filename:=Fichier, UpdateLinks:=[COLOR=NAVY]False[/COLOR], ReadOnly:=[COLOR=NAVY]True[/COLOR])
  [COLOR=NAVY]End Sub[/COLOR]
  
  [COLOR=NAVY]Sub[/COLOR] Fermer()
      [B]FichierCible[/B].[COLOR=NAVY]Close[/COLOR] SaveChanges:=[COLOR=NAVY]False
  End Sub[/COLOR]
  [/SIZE]