J'ai un problème depuis la mise en réseau de mes macros.
Bien que le code demande l'ouverture des boites de dialogues sur des
répertoires du serveur, excel continue à me proposer le répertoire par défaut.
Idem pour l'enregistrement des fichiers.
Comment faire pour obtenir le fonctionnement correct ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
dan
Je vais essayer et je te tiens au courant merci
il faut utiliser la fonction ChDrive...
moi, je fais comme cela...c'est pour le principe car je ne sais pas si cela correspond à tes besoins.
'chemin = le nom du chemin d'éxécution chemin = ActiveWorkbook.Path 'puis ChDrive sur le bon lecteur de disque ChDrive DriveSerialLetter(chemin)
Function DriveSerialLetter(chemin) Dim fso, d Set fso = CreateObject("Scripting.FileSystemObject") Set d = fso.GetDrive(fso.GetDriveName(fso.GetAbsolutePathName(chemin))) DriveSerialLetter = d.driveletter End Function 'fs
Je vais essayer et je te tiens au courant
merci
il faut utiliser la fonction ChDrive...
moi, je fais comme cela...c'est pour le principe car je ne sais pas si cela
correspond à tes besoins.
'chemin = le nom du chemin d'éxécution
chemin = ActiveWorkbook.Path
'puis ChDrive sur le bon lecteur de disque
ChDrive DriveSerialLetter(chemin)
Function DriveSerialLetter(chemin)
Dim fso, d
Set fso = CreateObject("Scripting.FileSystemObject")
Set d = fso.GetDrive(fso.GetDriveName(fso.GetAbsolutePathName(chemin)))
DriveSerialLetter = d.driveletter
End Function 'fs
moi, je fais comme cela...c'est pour le principe car je ne sais pas si cela correspond à tes besoins.
'chemin = le nom du chemin d'éxécution chemin = ActiveWorkbook.Path 'puis ChDrive sur le bon lecteur de disque ChDrive DriveSerialLetter(chemin)
Function DriveSerialLetter(chemin) Dim fso, d Set fso = CreateObject("Scripting.FileSystemObject") Set d = fso.GetDrive(fso.GetDriveName(fso.GetAbsolutePathName(chemin))) DriveSerialLetter = d.driveletter End Function 'fs
