Ajout d'un sous-répertoire avant la sauvegarde de fichiers
Résolu/Fermé
bassmart
Messages postés
281
Date d'inscription
jeudi 19 février 2015
Statut
Membre
Dernière intervention
19 décembre 2023
-
12 avril 2016 à 18:43
bassmart Messages postés 281 Date d'inscription jeudi 19 février 2015 Statut Membre Dernière intervention 19 décembre 2023 - 13 avril 2016 à 13:42
bassmart Messages postés 281 Date d'inscription jeudi 19 février 2015 Statut Membre Dernière intervention 19 décembre 2023 - 13 avril 2016 à 13:42
A voir également:
- Ajout d'un sous-répertoire avant la sauvegarde de fichiers
- Logiciel de sauvegarde - Guide
- Comment réduire la taille d'un fichier - Guide
- Wetransfer gratuit fichiers lourd - Guide
- Chaque fichier en ligne sur le web a un chemin d’accès sur un serveur. c’est le cas du fichier du logo présent sur la page de cette ville. quel est le chemin de ce fichier à partir de la racine du site ? - Forum Graphisme
- Le fichier contient un programme écrit en python. le programme construit un mot secret mais il ne l'affiche pas. modifiez ce programme afin que à chaque itération de la boucle : la variable a augmente de 2 la variable b diminue de 1 ajoutez une instruction pour faire afficher le mot secret construit. quel est ce mot secret ? ✓ - Forum Python
2 réponses
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
728
12 avril 2016 à 19:07
12 avril 2016 à 19:07
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
728
13 avril 2016 à 07:50
13 avril 2016 à 07:50
Bien sur qu'il y a une répétition!
C'est l'enregistrement.
essaie cela:
C'est l'enregistrement.
essaie cela:
Chemin = CurDir & "\Transfert\" If Dir(Chemin, vbDirectory) = "" Then MkDir "Transfert" Fichier = Nomclasseur & "_traité" & ".xlsx" Else Chemin = CurDir & "\Transfert\" Fichier = Nomclasseur & "_traité" & ".xlsx" End If With ActiveWorkbook Application.DisplayAlerts = False .SaveAs Filename:=Chemin & Fichier .Close Application.DisplayAlerts = True End With
bassmart
Messages postés
281
Date d'inscription
jeudi 19 février 2015
Statut
Membre
Dernière intervention
19 décembre 2023
1
13 avril 2016 à 13:42
13 avril 2016 à 13:42
Merci beaucoup pour la réponse!
Je n'y avais vraiment pas pensé, c'était pourtant si simple!
Encore merci!
Je n'y avais vraiment pas pensé, c'était pourtant si simple!
Encore merci!
12 avril 2016 à 19:58
Mais je ne suis pas capable de l'adapter à mon cas parce que mon répertoire n'est pas toujours le même. J'obtien une erreur d'exécution 75.
Dans mon cas, le début est toujours pareil jusqu'au répertoire Piézomètres et ensuite il varie selon la sélection faite et je veux ajouter un sous-répertoire (Transfert) dans ce répertoire (qui varie).
J'ai essayé ceci:
12 avril 2016 à 20:14
12 avril 2016 à 20:33
Ça fonctionne, mais je ne sais pas s'il y a une façon plus optimal d'écrire le code? J'ai une répétition des lignes de codes pour la sauvegarde du fichier.
Vos commentaires sont les bienvenue!