Enrigistrer fichier excel dans dossier en vba [Résolu/Fermé]
Signaler
gnioler
gnioler
- Messages postés
- 88
- Date d'inscription
- mercredi 5 octobre 2011
- Statut
- Membre
- Dernière intervention
- 7 janvier 2015
gnioler
- Messages postés
- 88
- Date d'inscription
- mercredi 5 octobre 2011
- Statut
- Membre
- Dernière intervention
- 7 janvier 2015
A voir également:
- Vba enregistrer un fichier excel dans un dossier
- Vba enregistrer une feuille excel dans un dossier - Meilleures réponses
- Enrigistrer fichier excel dans dossier en vba ✓ - Forum - VB / VBA
- Vba enregistrer une feuille excel dans un dossier ✓ - Forum - Excel
- Vba ouvrir les fichiers excel des sous dossiers, uniquement. ✓ - Forum - Excel
- VBA : enregistrer une feuille et supprimer les liaisons ✓ - Forum - VB / VBA
- Enregistrer classeur excel sous nom origine ds autre repertoire - Forum - VB / VBA
10 réponses
lermite222
- Messages postés
- 8700
- Date d'inscription
- dimanche 8 avril 2007
- Statut
- Contributeur
- Dernière intervention
- 22 janvier 2020
bonjour,
Un début à adapter..
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.
Un début à adapter..
Sub SauverClasseur() Dim Chemin As String Dim Fich As String With Sheets("NomDeLaFeuille") If .Range("E13") <> "" Then Chemin = "C:\Repertoire\Repertoire\" & .Range("E13") & "\" Else Chemin = "C:\Repertoire\Repertoire\a classer\" End If End With With ThisWorkbook Fich = .Name .SaveAs (Chemin & Fich) End With End Sub
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.
gnioler
- Messages postés
- 88
- Date d'inscription
- mercredi 5 octobre 2011
- Statut
- Membre
- Dernière intervention
- 7 janvier 2015
bonjour
merci beaucoup pour la reponse mais par contre si le nom du client du devis ne corresond pas exactement au nom du client du fichier comment peut on faire est ce qu'il faut que ce soit exactement les memes caracteres
merci beaucoup pour la reponse mais par contre si le nom du client du devis ne corresond pas exactement au nom du client du fichier comment peut on faire est ce qu'il faut que ce soit exactement les memes caracteres
lermite222
- Messages postés
- 8700
- Date d'inscription
- dimanche 8 avril 2007
- Statut
- Contributeur
- Dernière intervention
- 22 janvier 2020
Ha ça, les pc n'ont pas encore de boule de cristal pour "deviner" mais ont peut quand même contrôler si ça correspond au répertoire.
Sub SauverClasseur() Dim Chemin As String Dim Fich As String Fich = ThisWorkbook.Name With Sheets("NomDeLaFeuille") If .Range("E13") <> "" Then Chemin = "C:\Repertoire\Repertoire\" & .Range("E13") & "\" If Dir(Chemin) = "" Then MsgBox "Le répertoire au nom du client " & .Range("E13") & Chr(13) _ & "n'existe pas, rectifier l'ortographe Svp." Exit Sub End If Else Chemin = "C:\Repertoire\Repertoire\a classer\" End If End With ThisWorkbook.SaveAs (Chemin & Fich) End Sub
gnioler
bonjour
je sais ce que je demande est tres compliqué mais on sait jamais
je vais essayer ce que vous m'avez donné et je vous tient au courant
merxci beaucoup
je sais ce que je demande est tres compliqué mais on sait jamais
je vais essayer ce que vous m'avez donné et je vous tient au courant
merxci beaucoup
gnioler
- Messages postés
- 88
- Date d'inscription
- mercredi 5 octobre 2011
- Statut
- Membre
- Dernière intervention
- 7 janvier 2015
rebonjour
je voudrais connaitre la ligne de commande pour enregistrer le fichier excel en lecture seule et que lorsqu'il le reouvre il ne me pose pas la question il s'ouvre automatiquement en lecture seule
je voudrais connaitre la ligne de commande pour enregistrer le fichier excel en lecture seule et que lorsqu'il le reouvre il ne me pose pas la question il s'ouvre automatiquement en lecture seule
lermite222
- Messages postés
- 8700
- Date d'inscription
- dimanche 8 avril 2007
- Statut
- Contributeur
- Dernière intervention
- 22 janvier 2020
tu sélectionne SaveAs (en surbrillance) et tu tape F1
gnioler
- Messages postés
- 88
- Date d'inscription
- mercredi 5 octobre 2011
- Statut
- Membre
- Dernière intervention
- 7 janvier 2015
bonjour
et merci pour vos reponse
pour la lecture seule il me faut la cde sous vba car je vais l'intégrer dans le programe
par contre pour le programe plus haut il me met une erreur il souligne en rouge la 4éme ligne
alors que j'ai mis le nom de la feuille
et merci pour vos reponse
pour la lecture seule il me faut la cde sous vba car je vais l'intégrer dans le programe
par contre pour le programe plus haut il me met une erreur il souligne en rouge la 4éme ligne
alors que j'ai mis le nom de la feuille
lermite222
- Messages postés
- 8700
- Date d'inscription
- dimanche 8 avril 2007
- Statut
- Contributeur
- Dernière intervention
- 22 janvier 2020
ARRÊTE de demander le code.... tu doit aussi un peu travailler, Non ?
Bien sûr tu doit aussi adapter la ligne 4 au nom exact du chemin où se trouve tes répertoires.
A moins que.. Dis un peu le chemin COMPLET du répertoire de ton classeur.
Par exemple C:\MesClasseurs\MaListeDeClient
Et où sont les répertoires de tes clients, aussi avec le chemin complet.
Et question subsidiaire... les répertoires de tes client.. y existe déjà ?
Bien sûr tu doit aussi adapter la ligne 4 au nom exact du chemin où se trouve tes répertoires.
A moins que.. Dis un peu le chemin COMPLET du répertoire de ton classeur.
Par exemple C:\MesClasseurs\MaListeDeClient
Et où sont les répertoires de tes clients, aussi avec le chemin complet.
Et question subsidiaire... les répertoires de tes client.. y existe déjà ?
gnioler
- Messages postés
- 88
- Date d'inscription
- mercredi 5 octobre 2011
- Statut
- Membre
- Dernière intervention
- 7 janvier 2015
RE
travailler n'est pas un probleme mais quand on debute c'est tres compliqué
pour la ligne 4 je l'ai adapté au nom du fichier
j'ai aussi modifié les chemin d'acces et les repertoire des clients existe deja
je vais essayer encore un peu seul sinon je t'enverai mon prog complet
travailler n'est pas un probleme mais quand on debute c'est tres compliqué
pour la ligne 4 je l'ai adapté au nom du fichier
j'ai aussi modifié les chemin d'acces et les repertoire des clients existe deja
je vais essayer encore un peu seul sinon je t'enverai mon prog complet