Je n'ai pas testé donc il pourrait y avoir du débugage à faire.
Sub test()
Dim Fic As String
Dim MemFic As String
Dim VPath As String
MemFic = ""
VPath = "C:\test\"
...
Je n'ai pas testé donc il pourrait y avoir du débugage à faire.
Sub test()
Dim Fic As String
Dim MemFic As String
Dim VPath As String
MemFic = ""
VPath = "C:\test\"
...
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.