J'ai 2 repertoires Rep1 & Rep2 situé au même niveau de l'arborescence de mon
disque dur.
En recuperant le chemin de mon fichier 1 par :
chem = Thisworkbook.path & "\"
j'arrive à enregistrer mon fichier1 sous un nouveau nom mais dans son
repertoire d'origine.
Est-il possible en utilisant la même méthode de pouvoir enregistrer ce
fichier1 non pas sous son repertoire d'origine mais sous le repertoire2.
En effet je ne connais pas à l'avance l'organisation des disques durs et
cela me permettrais ainsi de mettre un repertoire contenant mes 2 sous
repertoire Rep1 et Rep2 sans que je mette l'adresse d'enregistrement en dur.
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
anonymousA
bonjour,
pour récupérer le chemin sans le dernier répertoire donc ce que tu souhaites si je comprends bien, 2 méthodes possibles
la 1ere en utilisant un travail sur la chaine textuelle
tampon = ThisWorkbook.FullName On Error Resume Next For i = UBound(Split(StrReverse(tampon), "")) To 1 Step -1 If i = UBound(Split(StrReverse(tampon), "")) Then texte = StrReverse(Split(StrReverse(tampon), "")(i)) Else texte = texte & "" & StrReverse(Split(StrReverse(tampon), "")(i)) End If Next
MsgBox texte
le msgbox est là pour te permettre de voir le résultat. Il te suffira de te servir de texte pour écrire thisworkbook.saveas texte&"rep2"&thisworkbook.name
la seconde méthode en utilisant File system Object. Il te faut mettre une référence dans OutilsRéférences à Windows Script Host Object Model ( à cause ici du Dim ). Tu peux t'en passer si tu enlèves le dim fso
Dim fso As FileSystemObject
Set fso = CreateObject("Scripting.FileSystemObject")
J'ai 2 repertoires Rep1 & Rep2 situé au même niveau de l'arborescence de mon disque dur. En recuperant le chemin de mon fichier 1 par : chem = Thisworkbook.path & "" j'arrive à enregistrer mon fichier1 sous un nouveau nom mais dans son repertoire d'origine. Est-il possible en utilisant la même méthode de pouvoir enregistrer ce fichier1 non pas sous son repertoire d'origine mais sous le repertoire2. En effet je ne connais pas à l'avance l'organisation des disques durs et cela me permettrais ainsi de mettre un repertoire contenant mes 2 sous repertoire Rep1 et Rep2 sans que je mette l'adresse d'enregistrement en dur.
Merci d'avance.
bonjour,
pour récupérer le chemin sans le dernier répertoire donc ce que tu souhaites
si je comprends bien, 2 méthodes possibles
la 1ere en utilisant un travail sur la chaine textuelle
tampon = ThisWorkbook.FullName
On Error Resume Next
For i = UBound(Split(StrReverse(tampon), "")) To 1 Step -1
If i = UBound(Split(StrReverse(tampon), "")) Then
texte = StrReverse(Split(StrReverse(tampon), "")(i))
Else
texte = texte & "" & StrReverse(Split(StrReverse(tampon), "")(i))
End If
Next
MsgBox texte
le msgbox est là pour te permettre de voir le résultat. Il te suffira de te
servir de texte pour écrire thisworkbook.saveas
texte&"rep2"&thisworkbook.name
la seconde méthode en utilisant File system Object. Il te faut mettre une
référence dans OutilsRéférences à Windows Script Host Object Model ( à cause
ici du Dim ). Tu peux t'en passer si tu enlèves le dim fso
Dim fso As FileSystemObject
Set fso = CreateObject("Scripting.FileSystemObject")
J'ai 2 repertoires Rep1 & Rep2 situé au même niveau de l'arborescence de mon
disque dur.
En recuperant le chemin de mon fichier 1 par :
chem = Thisworkbook.path & ""
j'arrive à enregistrer mon fichier1 sous un nouveau nom mais dans son
repertoire d'origine.
Est-il possible en utilisant la même méthode de pouvoir enregistrer ce
fichier1 non pas sous son repertoire d'origine mais sous le repertoire2.
En effet je ne connais pas à l'avance l'organisation des disques durs et
cela me permettrais ainsi de mettre un repertoire contenant mes 2 sous
repertoire Rep1 et Rep2 sans que je mette l'adresse d'enregistrement en dur.
pour récupérer le chemin sans le dernier répertoire donc ce que tu souhaites si je comprends bien, 2 méthodes possibles
la 1ere en utilisant un travail sur la chaine textuelle
tampon = ThisWorkbook.FullName On Error Resume Next For i = UBound(Split(StrReverse(tampon), "")) To 1 Step -1 If i = UBound(Split(StrReverse(tampon), "")) Then texte = StrReverse(Split(StrReverse(tampon), "")(i)) Else texte = texte & "" & StrReverse(Split(StrReverse(tampon), "")(i)) End If Next
MsgBox texte
le msgbox est là pour te permettre de voir le résultat. Il te suffira de te servir de texte pour écrire thisworkbook.saveas texte&"rep2"&thisworkbook.name
la seconde méthode en utilisant File system Object. Il te faut mettre une référence dans OutilsRéférences à Windows Script Host Object Model ( à cause ici du Dim ). Tu peux t'en passer si tu enlèves le dim fso
Dim fso As FileSystemObject
Set fso = CreateObject("Scripting.FileSystemObject")
J'ai 2 repertoires Rep1 & Rep2 situé au même niveau de l'arborescence de mon disque dur. En recuperant le chemin de mon fichier 1 par : chem = Thisworkbook.path & "" j'arrive à enregistrer mon fichier1 sous un nouveau nom mais dans son repertoire d'origine. Est-il possible en utilisant la même méthode de pouvoir enregistrer ce fichier1 non pas sous son repertoire d'origine mais sous le repertoire2. En effet je ne connais pas à l'avance l'organisation des disques durs et cela me permettrais ainsi de mettre un repertoire contenant mes 2 sous repertoire Rep1 et Rep2 sans que je mette l'adresse d'enregistrement en dur.
Merci d'avance.
anonymousA
erratum, pour le répertoire père du répertoire en cours du fichier, il faut écrire
With fso MsgBox .GetParentFolderName(.GetParentFolderName(ActiveWorkbook.FullName)) End With
A+
bonjour,
pour récupérer le chemin sans le dernier répertoire donc ce que tu souhaites si je comprends bien, 2 méthodes possibles
la 1ere en utilisant un travail sur la chaine textuelle
tampon = ThisWorkbook.FullName On Error Resume Next For i = UBound(Split(StrReverse(tampon), "")) To 1 Step -1 If i = UBound(Split(StrReverse(tampon), "")) Then texte = StrReverse(Split(StrReverse(tampon), "")(i)) Else texte = texte & "" & StrReverse(Split(StrReverse(tampon), "")(i)) End If Next
MsgBox texte
le msgbox est là pour te permettre de voir le résultat. Il te suffira de te servir de texte pour écrire thisworkbook.saveas texte&"rep2"&thisworkbook.name
la seconde méthode en utilisant File system Object. Il te faut mettre une référence dans OutilsRéférences à Windows Script Host Object Model ( à cause ici du Dim ). Tu peux t'en passer si tu enlèves le dim fso
Dim fso As FileSystemObject
Set fso = CreateObject("Scripting.FileSystemObject")
J'ai 2 repertoires Rep1 & Rep2 situé au même niveau de l'arborescence de mon disque dur. En recuperant le chemin de mon fichier 1 par : chem = Thisworkbook.path & "" j'arrive à enregistrer mon fichier1 sous un nouveau nom mais dans son repertoire d'origine. Est-il possible en utilisant la même méthode de pouvoir enregistrer ce fichier1 non pas sous son repertoire d'origine mais sous le repertoire2. En effet je ne connais pas à l'avance l'organisation des disques durs et cela me permettrais ainsi de mettre un repertoire contenant mes 2 sous repertoire Rep1 et Rep2 sans que je mette l'adresse d'enregistrement en dur.
Merci d'avance.
erratum, pour le répertoire père du répertoire en cours du fichier, il faut
écrire
With fso
MsgBox .GetParentFolderName(.GetParentFolderName(ActiveWorkbook.FullName))
End With
A+
bonjour,
pour récupérer le chemin sans le dernier répertoire donc ce que tu souhaites
si je comprends bien, 2 méthodes possibles
la 1ere en utilisant un travail sur la chaine textuelle
tampon = ThisWorkbook.FullName
On Error Resume Next
For i = UBound(Split(StrReverse(tampon), "")) To 1 Step -1
If i = UBound(Split(StrReverse(tampon), "")) Then
texte = StrReverse(Split(StrReverse(tampon), "")(i))
Else
texte = texte & "" & StrReverse(Split(StrReverse(tampon), "")(i))
End If
Next
MsgBox texte
le msgbox est là pour te permettre de voir le résultat. Il te suffira de te
servir de texte pour écrire thisworkbook.saveas
texte&"rep2"&thisworkbook.name
la seconde méthode en utilisant File system Object. Il te faut mettre une
référence dans OutilsRéférences à Windows Script Host Object Model ( à cause
ici du Dim ). Tu peux t'en passer si tu enlèves le dim fso
Dim fso As FileSystemObject
Set fso = CreateObject("Scripting.FileSystemObject")
J'ai 2 repertoires Rep1 & Rep2 situé au même niveau de l'arborescence de mon
disque dur.
En recuperant le chemin de mon fichier 1 par :
chem = Thisworkbook.path & ""
j'arrive à enregistrer mon fichier1 sous un nouveau nom mais dans son
repertoire d'origine.
Est-il possible en utilisant la même méthode de pouvoir enregistrer ce
fichier1 non pas sous son repertoire d'origine mais sous le repertoire2.
En effet je ne connais pas à l'avance l'organisation des disques durs et
cela me permettrais ainsi de mettre un repertoire contenant mes 2 sous
repertoire Rep1 et Rep2 sans que je mette l'adresse d'enregistrement en dur.
erratum, pour le répertoire père du répertoire en cours du fichier, il faut écrire
With fso MsgBox .GetParentFolderName(.GetParentFolderName(ActiveWorkbook.FullName)) End With
A+
bonjour,
pour récupérer le chemin sans le dernier répertoire donc ce que tu souhaites si je comprends bien, 2 méthodes possibles
la 1ere en utilisant un travail sur la chaine textuelle
tampon = ThisWorkbook.FullName On Error Resume Next For i = UBound(Split(StrReverse(tampon), "")) To 1 Step -1 If i = UBound(Split(StrReverse(tampon), "")) Then texte = StrReverse(Split(StrReverse(tampon), "")(i)) Else texte = texte & "" & StrReverse(Split(StrReverse(tampon), "")(i)) End If Next
MsgBox texte
le msgbox est là pour te permettre de voir le résultat. Il te suffira de te servir de texte pour écrire thisworkbook.saveas texte&"rep2"&thisworkbook.name
la seconde méthode en utilisant File system Object. Il te faut mettre une référence dans OutilsRéférences à Windows Script Host Object Model ( à cause ici du Dim ). Tu peux t'en passer si tu enlèves le dim fso
Dim fso As FileSystemObject
Set fso = CreateObject("Scripting.FileSystemObject")
J'ai 2 repertoires Rep1 & Rep2 situé au même niveau de l'arborescence de mon disque dur. En recuperant le chemin de mon fichier 1 par : chem = Thisworkbook.path & "" j'arrive à enregistrer mon fichier1 sous un nouveau nom mais dans son repertoire d'origine. Est-il possible en utilisant la même méthode de pouvoir enregistrer ce fichier1 non pas sous son repertoire d'origine mais sous le repertoire2. En effet je ne connais pas à l'avance l'organisation des disques durs et cela me permettrais ainsi de mettre un repertoire contenant mes 2 sous repertoire Rep1 et Rep2 sans que je mette l'adresse d'enregistrement en dur.
