Sauvegarder un fichier dans un autre répertoire par macro
Fermé
Ab68
Messages postés
3
Date d'inscription
mercredi 27 mars 2013
Statut
Membre
Dernière intervention
28 mars 2013
-
27 mars 2013 à 22:09
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 - 28 mars 2013 à 14:58
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 - 28 mars 2013 à 14:58
A voir également:
- Sauvegarder un fichier dans un autre répertoire par macro
- Fichier rar - Guide
- Comment réduire la taille d'un fichier - Guide
- Fichier host - Guide
- Comment ouvrir un fichier epub ? - Guide
- Comment ouvrir un fichier docx ? - Guide
5 réponses
Ab68
Messages postés
3
Date d'inscription
mercredi 27 mars 2013
Statut
Membre
Dernière intervention
28 mars 2013
28 mars 2013 à 09:21
28 mars 2013 à 09:21
Bonjour lermitte222
En copiant le code dans le haut du module et seulement ce code, je reçois le msg Erreur de compilation: Instruction incorrecte à l' extérieur d'une procédure à la ligne : NvRep = "D:\ Mes documents etc...
Merci pour la rapidité de ta réponse à ma première sollicitation.
Bonne journée
En copiant le code dans le haut du module et seulement ce code, je reçois le msg Erreur de compilation: Instruction incorrecte à l' extérieur d'une procédure à la ligne : NvRep = "D:\ Mes documents etc...
Merci pour la rapidité de ta réponse à ma première sollicitation.
Bonne journée
Ab68
Messages postés
3
Date d'inscription
mercredi 27 mars 2013
Statut
Membre
Dernière intervention
28 mars 2013
28 mars 2013 à 14:42
28 mars 2013 à 14:42
Oui je viens de refaire l' essai, En première ligne : Private Declare Function etc.
puis les 3 lignes : Dim NvRep
NvRep = "D:\Mes documents
MakeSure
et terminer par End Sub
(les instructions ont été copiées collées)
puis les 3 lignes : Dim NvRep
NvRep = "D:\Mes documents
MakeSure
et terminer par End Sub
(les instructions ont été copiées collées)
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 190
Modifié par lermite222 le 28/03/2013 à 00:26
Modifié par lermite222 le 28/03/2013 à 00:26
Bonjour,
ActiveWorkbook.SaveCopyAs ActiveWorkbook.Path & "\" & Nom & Année & ".xls"
Pour créer ou pas le répertoire,
Tu colle cette déclaration tout en haut du module
Ensuite tu remplace la ligne..
Par
Mais attention !! normalement il n'y a pas de répertoire Mes documents sur le D:\
A+
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
Note: Je ne répond pas aux MP pour les questions techniques. Et ma boule de cristal est cassée .
ActiveWorkbook.SaveCopyAs ActiveWorkbook.Path & "\" & Nom & Année & ".xls"
Pour créer ou pas le répertoire,
Tu colle cette déclaration tout en haut du module
Private Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal lpPath As String) As Long
Ensuite tu remplace la ligne..
If Dir(chemin & repertoire, 16) ="" Then MkDir "D:\Mes documents\CCS\" & Range("G1").Value
Par
dim NvRep as string NvRep = "D:\Mes documents\CCS\" & Range("G1").Value MakeSureDirectoryPathExists NvRep 'Si existe..fait rien sinon le/les crée(s).
Mais attention !! normalement il n'y a pas de répertoire Mes documents sur le D:\
A+
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
Note: Je ne répond pas aux MP pour les questions techniques. Et ma boule de cristal est cassée .
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 190
28 mars 2013 à 14:09
28 mars 2013 à 14:09
En copiant le code dans le haut du module et seulement ce code, ????
Relis mon poste précédant AVEC ATTENTION SVP.
Relis mon poste précédant AVEC ATTENTION SVP.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 190
28 mars 2013 à 14:58
28 mars 2013 à 14:58
Eh ben ça alors.. Faudrait quand même que tu apprenne à lire
Ensuite tu remplace la ligne.. Remplacer ça veux dire quoi ?
ça veux dire supprimer les lignes décrite et mettre A LA MEME PLACE les autre ligne.
Et y faut pas ajouter de End sub nulle part.
Difficile d'expliquer plus, apprend aussi les structures d'un code VBA. Sans ça tu n'ira pas loin.
A+
Ensuite tu remplace la ligne.. Remplacer ça veux dire quoi ?
ça veux dire supprimer les lignes décrite et mettre A LA MEME PLACE les autre ligne.
Et y faut pas ajouter de End sub nulle part.
Difficile d'expliquer plus, apprend aussi les structures d'un code VBA. Sans ça tu n'ira pas loin.
A+