Discussion :

[moilou2]

Bonjour, je ne sais pas si ce que je veux faire est possible.

J'ai une application Excel, avec du code VBA. A l'aide d'un UserForm, je viens charger des photos et des plans se trouvant dans un répertoire externe à mon application.

Le chemin des photos ou des plans, sont enregistrés de la manière suivante dans mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

chemin = "C:\Documents and Settings\maintenance.u09\Bureau\Exemple\Photos\" & Reference & ".jpg"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

chemin = "C:\Documents and Settings\maintenance.u09\Bureau\Exemple\Plans\" & Reference & ".pdf"

Sachant que référence est une référence que je récupere dans une feuille nomenclature. Ce qu'il faut donc juste que je change, c'est tout le chemin avant " & Reference & ".jpg et " & Reference & ".pdf

Je voudrais créer un petit UserForm, me permettant de changer très simplement les chemins de mes photos et plans, sans à avoir à aller dans le code.

Je voudrais indiquer où se trouve le nouveau chemin, avec une fenetre style windows, ou autre, si vous avez des idées?

Merci

[JPierreM]

Si c'est le chemin que tu cherches à changer je te propose le code suivant.
Il permet de naviguer jusqu'à l'endroit souhaité et d'y sélectionner
un fichier quelconque (il ne s'ouvrira pas). Tu récupéres ainsi le chemin du
dossier, chemin que tu concatènes avec le nom de la photo chargée

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub selection()
Dim chemin As String
Dim a As String
 
chemin = Application.GetOpenFilename _
        (FileFilter:="Tous les fichiers (*.*),*.* ", _
         Title:="Sélectionnez un fichier")
 
    a = Left(chemin, InStrRev(chemin, "\", -1))
    'récupération du chemin du dossier
    Cells(6, 1) = a
End Sub

Pour la personne qui remet en page le code je suis désolé mais je ne comprends pas la mise en page du code, c'est quoi les balises

[moilou2]

Re, tu peux expliquer d'avantage ta solution, je ne suis pas sur de comprendre?

[JPierreM]

Je reprends tes termes "Ce qu'il faut donc juste que je change, c'est tout le chemin avant " & Reference & ".jpg et " & Reference & ".pdf"
Donc si je comprends bien ton problème il faut changer la partie suivante :
"C:\Documents and Settings\maintenance.u09\Bureau\Exemple\Plans\"
Et la remplacer par un autre chemin à définir.
En utilisant le code proposé tu ouvres une fenêtre qui te permettra d'aller dans le dossier de ton choix, de récupérer le chemin de ce dossier et de l'utiliser ensuite.
Par exemple :
Si j'ai sur mon disque dans Mes documents un dossier nommé Photos.
Je lance le code proposé et je navigue jusqu'à ce dossier, y sélectionne n'importe quel fichier (qui ne s'ouvrira pas) le code peut récupérer dans une variable le chemin complet de ce dossier. Ne reste plus qu'à le compléter avec tes références
"C:\Documents and Settings\Mes documents\Photos" ajoute tes références
Si pas compris j'essaierai d'envoyer un fichier exemple plus tard.
Si ce n'est pas ce que tu voulais, désolé mais les explications de départ ne sont pas suffisamment claires.

jp

[moilou2]

Ah ok, cela me permet d'enregistrer le chemin dans une variable.

C'est déja une partie de ce que je veux faire. Je vais essayer d'adapter à mon application.

Maintenant. Imaginons que je récupère cela dans une variable, par exemple CheminPhoto.

Comment faire ensuite pour remplacer cette variable partout où je veux la modiffier dans le code vba de l'ensmble de mon application?

Merci

[moilou2]

Re, j'ai trouvé une solution, mais il ya a tout de même un petit soucis.

Je déclare une variable en public:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Public CheminPhoto As String

Ensuite je récupère dans cette variable le chemin, comme suit:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Cmd_CheminPhoto_Click()

Dim Fenetre As String
 
Fenetre = Application.GetOpenFilename _
        (FileFilter:="Tous les fichiers (*.*),*.* ", _
         Title:="Sélectionnez un fichier")
    
   CheminPhoto = Left(Fenetre, InStrRev(Fenetre, "\", -1))
   
      UserForm4.Hide
   
   MsgBox ("Le Chemin a bien été modifié")
   
End Sub

Ensuite je réutilise cette variable pour afficher mes photos, comme suit:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub MAJ(Rep As Integer)

Dim chemin As String
Dim Reference As String
Reference = Sheets("Nomenclature").Range("D2", Sheets("Nomenclature").Cells(Rows.Count, "D").End(xlUp)).SpecialCells(xlCellTypeVisible).Value
chemin = CheminPhoto & Reference & ".jpg"

End Sub

Le soucis c'est que sa marche si je charge ma variable au moins une fois durant le temps d'ouverture de mon classeur,

mais je voudrais que d'une ouverture de classeur sur l'autre, le chemin reste en mémoire dans ma variable, tant que je ne lui indique pas d'autre chemin.

Mais je veux que ma variable reste PUBLIC, mais quelle garde le chemin en mémoire jusqu'à son prochain chargement. C'est possible?

[Godzestla]

Bonjour,
le plus simple dans ce cas de figure est peut-être de créer une page supplémentaire dans ton classeur que tu dédies à sauvegarder tes paramêtres et que tu peux cacher en modifiant sa propriété .visible à XlVeryHidden.

Chaque fois que tu changes ta variable fenetre, tu sauves sa valeur dans une cellule de cette page de paramêtres.
(Je te conseille pour aider la lisibilité de mettre par exemple en colonne A le nom de la variable et en B sa valeur)

Quand tu ouvres ton classeur, tu initialise la variable fenêtre avec le contenu de cette cellule.

Et hop.

[moilou2]

Re, oui c'est ce que j'ai fait actuellement, mais il n'y a rien de plus propre?

Une varibale spécifique

[Godzestla]

C'est très propre et très efficace.
Tu peux aussi travailler avec un fichier de paramêtres, style .INI, mais c'est plus fastidieux.

Je t'assure que si tu caches ta feuille de paramêtres, c'est vraiment un excellente solution.
Cela revient juste à utiliser une cellule.

[moilou2]

OK. Si jamais quelqu'un à tout de même un type de variable qui est capal de garder en mémoire, sinon je resterais comme je suis actuellement!

Merci

[Godzestla]

Une variable qui garde sa valeur après fermeture: cela n'existe pas.

[moilou2]

Ah ba c'était ma question !

Bon ba comme ça c'est réglé

Allé a + et merci

[JamTheMod]

Salut à tous,

Je suis tombé sur ce topic en recherchant des infos sur le stockage de variables dans des .ini ou .xml ou autres.
Et j'ai juste eu envie de répondre à Godzestla, que si, des variables qui gardent leur valeur après la fermeture d'un classeur (je précise) ça existe. C'est même très bien documenté ici :http://xcell05.free.fr/pages/prog/hnamespace.htm