gerer les chargement et remplacer une feuille du classeur au chargement.

[antoine]

Bonjour utilisateur de ce forum


Je pensse que cette information est déja posté quelque par ici mais je n'ai pas trouvé.
Dans l'application que j'ai a réalisé, je dois pouvoir sauvergarder une "configuration". Dans mon cas une configuration c'est une serie de date, heure, nom.

l'utilisateur doit pouvoir les sauver bien sur, et donc forcément : les charger. seulement, il faut prendre en compte qu'il n'a pas accés aux command bar et que cela doit se faire depuis un userform. Le mieux serait de pouvoir explorer un répertoire depuis l'userform ( est-ce possible ? comment faire ?? .... ;-) )

De plus, au chargement la config choisi par l'utilisateur devrait remplacer une feuille du classeur actif

Merci d'avance si vous avez des pistes


P.S : j'en suis pas encore tout a fait là dans l'application, donc ce n'est pas tres pressé. ( mais je prefére posté ici a l'avance quand je vois que je vais etre bloqué )

 

[gilbert]

bonjour antoine,
ci-dessous du code qui peux eventuellement te servir

Private Sub UserForm_initialize()
' ci-dessous une ligne en rem qui change le repertoire par default( si active)
' ChDir "P:\repertoire ou se trouve un fichier a explorer"

Workbooks.Open Filename:="P:\repertoire ou se trouve un fichier a explorer\nom du fichier a explorer.xls", ReadOnly:=True
Windows("nom du fichier a explorer.xls").Activate
Sheets("feuille ou se trouve des infos").Select
' a la ligne de code ci-dessous tu te places sur une colonne tjs
' utilisee eventuellement sur la ligne 65000 (et quelques) et tu fait
' une recherche vers le haut jusqu a une cellule non vide ( ici je
' commence par la cellule f999 )
Range("f999").EntireColumn.Find(What:="*", searchDirection:= xlPrevious).Select
' a la ligne ci dessous tu selectionnes le bloc de cellules a copier ( ici
' je commence cellule b7 et j ai fait un offset pour prendre 2 colonnes
' a droite de la cellule find).
Range(Cells(7, 2), ActiveCell.Offset(0, 2).Range("a1")).Select
Selection.Copy
Windows("feuille ou tu veux coller le bloc.xls").Activate
Range("a1").Select
Selection.PasteSpecial Paste:=xlValues
Application.CutCopyMode = False

j espere avoir repondu a une partie de ton pb