Avoir un Filname variable avec VBA Excel
Résolu/Fermé
Busimax09
Messages postés
33
Date d'inscription
mercredi 22 février 2012
Statut
Membre
Dernière intervention
25 janvier 2013
-
17 mai 2012 à 15:30
Busimax09 Messages postés 33 Date d'inscription mercredi 22 février 2012 Statut Membre Dernière intervention 25 janvier 2013 - 21 mai 2012 à 18:51
Busimax09 Messages postés 33 Date d'inscription mercredi 22 février 2012 Statut Membre Dernière intervention 25 janvier 2013 - 21 mai 2012 à 18:51
A voir également:
- Vba enregistrer sous chemin variable
- Audacity enregistrer son pc - Guide
- Enregistrer son ecran - Guide
- Enregistrer video youtube - Guide
- Enregistrer en pdf - Guide
- Vba l'indice n'appartient pas à la sélection - Forum VB / VBA
3 réponses
eriiic
Messages postés
24569
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
28 décembre 2023
7 207
17 mai 2012 à 17:20
17 mai 2012 à 17:20
Bonjour,
chemin="D:\tmp\"
' nom du fichier en A1
... Filename:= chemin & A1 & ".pdf", ...
eric
chemin="D:\tmp\"
' nom du fichier en A1
... Filename:= chemin & A1 & ".pdf", ...
eric
Busimax09
Messages postés
33
Date d'inscription
mercredi 22 février 2012
Statut
Membre
Dernière intervention
25 janvier 2013
21 mai 2012 à 13:39
21 mai 2012 à 13:39
Bonjour,
Lorsque j'ajoute votre formule dans mon module VBA, l'enregistrement se fait toujours au dessus du précédent...
Lorsque j'ajoute votre formule dans mon module VBA, l'enregistrement se fait toujours au dessus du précédent...
eriiic
Messages postés
24569
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
28 décembre 2023
7 207
21 mai 2012 à 13:45
21 mai 2012 à 13:45
Bonjour,
en clair ça veut dire ?
en clair ça veut dire ?
Busimax09
Messages postés
33
Date d'inscription
mercredi 22 février 2012
Statut
Membre
Dernière intervention
25 janvier 2013
21 mai 2012 à 14:02
21 mai 2012 à 14:02
Et bien j'ai créer un bouton "enregistrer" auquel j'ai affecté la macro.
Après Filename, j'ai écrit le nom de la cellule dont je souhaite que le contenu serve de nom pour le fichier.
Mais l'enregistrement se fait toujours sous le nom du classeur et pas sous le nom de la cellule
Après Filename, j'ai écrit le nom de la cellule dont je souhaite que le contenu serve de nom pour le fichier.
Mais l'enregistrement se fait toujours sous le nom du classeur et pas sous le nom de la cellule
eriiic
Messages postés
24569
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
28 décembre 2023
7 207
21 mai 2012 à 15:13
21 mai 2012 à 15:13
oui, excuse moi j'avais été un peu vite sur la syntaxe :
..., Filename:="D:\tmp\" & [A1] & ".xls", ....
ex:
ActiveWorkbook.SaveAs Filename:="D:\tmp\" & [A1] & ".xls"
eric
..., Filename:="D:\tmp\" & [A1] & ".xls", ....
ex:
ActiveWorkbook.SaveAs Filename:="D:\tmp\" & [A1] & ".xls"
eric
Busimax09
Messages postés
33
Date d'inscription
mercredi 22 février 2012
Statut
Membre
Dernière intervention
25 janvier 2013
21 mai 2012 à 15:29
21 mai 2012 à 15:29
Sub Macro1()
'
' Macro1 Macro
'
'
ChDir "C:\Users\christophe\Desktop"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\tmp\"&[B13] _
"C:\Users\christophe\Desktop\CONTRAT_LOCATION.pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End Sub
Voilà la macro...
La sauvegarde ne fonctionne pas
'
' Macro1 Macro
'
'
ChDir "C:\Users\christophe\Desktop"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\tmp\"&[B13] _
"C:\Users\christophe\Desktop\CONTRAT_LOCATION.pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End Sub
Voilà la macro...
La sauvegarde ne fonctionne pas
eriiic
Messages postés
24569
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
28 décembre 2023
7 207
21 mai 2012 à 17:50
21 mai 2012 à 17:50
C'est sûr que si tu mélanges mon répertoire et le tien ça ne va pas marcher...
Filename:="C:\Users\christophe\Desktop\ & [B13] & ".pdf"
avec en B13 de la feuille active le nom du fichier : CONTRAT_LOCATION
Si la feuille risque de ne pas être active alors :
Filename:="C:\Users\christophe\Desktop\ & [Feuil1!B13] & ".pdf"
eric
Filename:="C:\Users\christophe\Desktop\ & [B13] & ".pdf"
avec en B13 de la feuille active le nom du fichier : CONTRAT_LOCATION
Si la feuille risque de ne pas être active alors :
Filename:="C:\Users\christophe\Desktop\ & [Feuil1!B13] & ".pdf"
eric
Busimax09
Messages postés
33
Date d'inscription
mercredi 22 février 2012
Statut
Membre
Dernière intervention
25 janvier 2013
21 mai 2012 à 18:51
21 mai 2012 à 18:51
En effet c'est pas malin.
Et bien je vous remercie mon problème est désormais résolu!
Maxime
Et bien je vous remercie mon problème est désormais résolu!
Maxime
