[VBA - EXCEL] - Appel répertoire courant ?

Résolu/Fermé

Pemex Messages postés 8 Date d'inscription lundi 14 juillet 2008 Statut Membre Dernière intervention 25 juillet 2008 - 14 juil. 2008 à 14:43
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 - 14 juil. 2008 à 18:47

Bonjour a tous,

Je travaille actuellement sur des formulaires excel (2003) programés á l'aide de macros VBA. Je souhaite insérer une image de fond sur un formulaire, en lui indiquant qu'elle se trouve dans le répertoire courant.

Pour inserer l'image de fond, pas de problème, reste a trouver le code qui determine le repertoire courant.

UserForm1.Picture = LoadPicture("repertoire_courant/Monimage.jpg")

Je sais que sous Linux c'est quelquechose du genre : "./monimage.jpg"

Mais sous VBA ca ne fonctionne pas bien evidemment, et je n'ai pas pu trouver la réponse.
Est ce que quelqu'un d'entre vous pourrait m'aider ? (J'espère avoir été clair)

Merci beaucoup

A voir également:

Vba répertoire courant
L'indice n'appartient pas à la sélection vba - Forum VB / VBA
Répertoire téléphonique gratuit - Télécharger - Bureautique
Incompatibilité de type vba ✓ - Forum Programmation
Vba ouvrir un fichier excel avec chemin ✓ - Forum VB / VBA
Find vba - Astuces et Solutions

2 réponses

Réponse 1 / 2

Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
14 juil. 2008 à 15:01

Bonjour,

Qu'entends-tu par répertoire courant ? Si c'est le répertoire où se trouve ton fichier c'est :

thisworkbook.Path

;o)

Pemex Messages postés 8 Date d'inscription lundi 14 juillet 2008 Statut Membre Dernière intervention 25 juillet 2008
14 juil. 2008 à 18:05

Impeccable Polux, c'est ce qu'il me fallait.

Autre petite question : Comment faire pour sauvegarder une feuille excel, mais pas le Workbook tout entier ?

Si je rentre :

ActiveSheet.SaveAs Filename:=Nom_Fichier
ActiveWorkbook.ActiveSheet Filename:=Nom_Fichier

Cela m'enregistre le Workbook tout entier... Et impossible de trouver la réponse !

Discussions similaires

VBA : récupérer chemin de répertoire

[VBA/EXCEL] :Sauver uniquement une feuille ?

creer et exécuter requete selection sql vba

VBA: Range avec variable

VBA Excel : Cells.formula

VBA Excel Copie feuille dans autre classeur