Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Macro Enregistrer sous

Macro Enregistrer sous

16 réponses
Avatar
Phil221178
Bonjour à tous,

Je réalise une feuille sous Excel 2000.
Je souhaiterai créer une macro me permettant d'enregistrer le fichier
suivant ces points :

- Nom de fichier en fonction d'une valeur du tableau
- dans un dossier qui porte le même nom que l'une des valeurs du tableau.

Par exemple : si dans mon tableau, j'ai A1='Barcelone ; A2='360, je souhaite
que mom fichier soit enregistrer ainsi :

C:\mes documents\Barcelone\360.xls
En sachant que le dossier Barcelone est déjà créé...

Merci d'avance!

Un saludo

Philippe
Signaler un problème avec ce contenu

10 réponses

Supprimer
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
1 2
Avatar
papou
Bonjour
Modifier éventuellement avec le nom de la feuille :
Sub EnregistrerAvecParam()
Const Rp As String = "C:Mes documents"
Dim SousRp As String
Dim NomFic As String
SousRp = Worksheets("Feuil1").Range("A1").Value
NomFic = Worksheets("Feuil1").Range("A1").Value
If Rp = "" Or NomFic = "" Then MsgBox "Un paramètre est manquant" _
, vbInformation, "Impossible": Exit Sub
ThisWorkbook.SaveAs Rp & SousRp & Application.PathSeparator _
& NomFic & ".xls"
End Sub

Cordialement
Pascal

"Phil221178" a écrit dans le message
de news:
Bonjour à tous,

Je réalise une feuille sous Excel 2000.
Je souhaiterai créer une macro me permettant d'enregistrer le fichier
suivant ces points :

- Nom de fichier en fonction d'une valeur du tableau
- dans un dossier qui porte le même nom que l'une des valeurs du tableau.

Par exemple : si dans mon tableau, j'ai A1='Barcelone ; A2='360, je
souhaite
que mom fichier soit enregistrer ainsi :

C:mes documentsBarcelone360.xls
En sachant que le dossier Barcelone est déjà créé...

Merci d'avance!

Un saludo

Philippe



Avatar
Phil221178
Re-bonjour,

Merci pour cette réponse.
Quand je lance la macro, Excel me dit :

"Subindice fuera del intervalo" (Packoffice en espagnol)

Que veut dire ce message, et que dois-e modifier

"papou" escribió:

Bonjour
Modifier éventuellement avec le nom de la feuille :
Sub EnregistrerAvecParam()
Const Rp As String = "C:Mes documents"
Dim SousRp As String
Dim NomFic As String
SousRp = Worksheets("Feuil1").Range("A1").Value
NomFic = Worksheets("Feuil1").Range("A1").Value
If Rp = "" Or NomFic = "" Then MsgBox "Un paramètre est manquant" _
, vbInformation, "Impossible": Exit Sub
ThisWorkbook.SaveAs Rp & SousRp & Application.PathSeparator _
& NomFic & ".xls"
End Sub

Cordialement
Pascal

"Phil221178" a écrit dans le message
de news:
Bonjour à tous,

Je réalise une feuille sous Excel 2000.
Je souhaiterai créer une macro me permettant d'enregistrer le fichier
suivant ces points :

- Nom de fichier en fonction d'une valeur du tableau
- dans un dossier qui porte le même nom que l'une des valeurs du tableau.

Par exemple : si dans mon tableau, j'ai A1='Barcelone ; A2='360, je
souhaite
que mom fichier soit enregistrer ainsi :

C:mes documentsBarcelone360.xls
En sachant que le dossier Barcelone est déjà créé...

Merci d'avance!

Un saludo

Philippe








Avatar
sabatier
Application.PathSeparator???
mais dis-moi, papou, pourquoi alors qu'on s'est pourri la vie des lustres,
au risque de se luxer le poignet, à écrire & "" &....
ça serait-y différent ou bien?
jps

"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de
news:uWCu$
Bonjour
Modifier éventuellement avec le nom de la feuille :
Sub EnregistrerAvecParam()
Const Rp As String = "C:Mes documents"
Dim SousRp As String
Dim NomFic As String
SousRp = Worksheets("Feuil1").Range("A1").Value
NomFic = Worksheets("Feuil1").Range("A1").Value
If Rp = "" Or NomFic = "" Then MsgBox "Un paramètre est manquant" _
, vbInformation, "Impossible": Exit Sub
ThisWorkbook.SaveAs Rp & SousRp & Application.PathSeparator _
& NomFic & ".xls"
End Sub

Cordialement
Pascal

"Phil221178" a écrit dans le
message

de news:
Bonjour à tous,

Je réalise une feuille sous Excel 2000.
Je souhaiterai créer une macro me permettant d'enregistrer le fichier
suivant ces points :

- Nom de fichier en fonction d'une valeur du tableau
- dans un dossier qui porte le même nom que l'une des valeurs du
tableau.



Par exemple : si dans mon tableau, j'ai A1='Barcelone ; A2='360, je
souhaite
que mom fichier soit enregistrer ainsi :

C:mes documentsBarcelone360.xls
En sachant que le dossier Barcelone est déjà créé...

Merci d'avance!

Un saludo

Philippe







Avatar
sabatier
es posible quizas que tu hoja no se llame Feuil1, phil
jps


"Phil221178" a écrit dans le message
de news:
Re-bonjour,

Merci pour cette réponse.
Quand je lance la macro, Excel me dit :

"Subindice fuera del intervalo" (Packoffice en espagnol)

Que veut dire ce message, et que dois-e modifier

"papou" escribió:

Bonjour
Modifier éventuellement avec le nom de la feuille :
Sub EnregistrerAvecParam()
Const Rp As String = "C:Mes documents"
Dim SousRp As String
Dim NomFic As String
SousRp = Worksheets("Feuil1").Range("A1").Value
NomFic = Worksheets("Feuil1").Range("A1").Value
If Rp = "" Or NomFic = "" Then MsgBox "Un paramètre est manquant" _
, vbInformation, "Impossible": Exit Sub
ThisWorkbook.SaveAs Rp & SousRp & Application.PathSeparator _
& NomFic & ".xls"
End Sub

Cordialement
Pascal

"Phil221178" a écrit dans le
message


de news:
Bonjour à tous,

Je réalise une feuille sous Excel 2000.
Je souhaiterai créer une macro me permettant d'enregistrer le fichier
suivant ces points :

- Nom de fichier en fonction d'une valeur du tableau
- dans un dossier qui porte le même nom que l'une des valeurs du
tableau.




Par exemple : si dans mon tableau, j'ai A1='Barcelone ; A2='360, je
souhaite
que mom fichier soit enregistrer ainsi :

C:mes documentsBarcelone360.xls
En sachant que le dossier Barcelone est déjà créé...

Merci d'avance!

Un saludo

Philippe










Avatar
papou
Re
Comme l'indique notre ami Jean-Paul, il est possible que le nom de ta
feuille ne soit pas Feuil1 (regarde ma remarque en début de mon message).
Sinon, ma (petite) connaissance de l'espagnol, me ferait penser à un message
du type "Indice en dehors de la plage" mais Jean-Paul serait probablement
confirmer cela ;-)
Donc pour avancer, il faut modifier les lignes comportant la mention
"Feuil1" par le nom de l'onglet qui contient les éléments servant à
enregistrer ton classeur.
A voir...
Saludos
Cordialement
Pascal

"Phil221178" a écrit dans le message
de news:
Re-bonjour,

Merci pour cette réponse.
Quand je lance la macro, Excel me dit :

"Subindice fuera del intervalo" (Packoffice en espagnol)

Que veut dire ce message, et que dois-e modifier

"papou" escribió:

Bonjour
Modifier éventuellement avec le nom de la feuille :
Sub EnregistrerAvecParam()
Const Rp As String = "C:Mes documents"
Dim SousRp As String
Dim NomFic As String
SousRp = Worksheets("Feuil1").Range("A1").Value
NomFic = Worksheets("Feuil1").Range("A1").Value
If Rp = "" Or NomFic = "" Then MsgBox "Un paramètre est manquant" _
, vbInformation, "Impossible": Exit Sub
ThisWorkbook.SaveAs Rp & SousRp & Application.PathSeparator _
& NomFic & ".xls"
End Sub

Cordialement
Pascal

"Phil221178" a écrit dans le
message
de news:
Bonjour à tous,

Je réalise une feuille sous Excel 2000.
Je souhaiterai créer une macro me permettant d'enregistrer le fichier
suivant ces points :

- Nom de fichier en fonction d'une valeur du tableau
- dans un dossier qui porte le même nom que l'une des valeurs du
tableau.

Par exemple : si dans mon tableau, j'ai A1='Barcelone ; A2='360, je
souhaite
que mom fichier soit enregistrer ainsi :

C:mes documentsBarcelone360.xls
En sachant que le dossier Barcelone est déjà créé...

Merci d'avance!

Un saludo

Philippe










Avatar
papou
Heu...
A force de passer d'une langue à l'autre, ma langue a fourché !
mais Jean-Paul serait probablement confirmer cela ;-)
mais Jean-Paul saurait confirmer cela ;-)


Cordialement
Pascal

"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news:
eyt5%
Re
Comme l'indique notre ami Jean-Paul, il est possible que le nom de ta
feuille ne soit pas Feuil1 (regarde ma remarque en début de mon message).
Sinon, ma (petite) connaissance de l'espagnol, me ferait penser à un
message du type "Indice en dehors de la plage" mais Jean-Paul serait
probablement confirmer cela ;-)
Donc pour avancer, il faut modifier les lignes comportant la mention
"Feuil1" par le nom de l'onglet qui contient les éléments servant à
enregistrer ton classeur.
A voir...
Saludos
Cordialement
Pascal

"Phil221178" a écrit dans le
message de news:
Re-bonjour,

Merci pour cette réponse.
Quand je lance la macro, Excel me dit :

"Subindice fuera del intervalo" (Packoffice en espagnol)

Que veut dire ce message, et que dois-e modifier

"papou" escribió:

Bonjour
Modifier éventuellement avec le nom de la feuille :
Sub EnregistrerAvecParam()
Const Rp As String = "C:Mes documents"
Dim SousRp As String
Dim NomFic As String
SousRp = Worksheets("Feuil1").Range("A1").Value
NomFic = Worksheets("Feuil1").Range("A1").Value
If Rp = "" Or NomFic = "" Then MsgBox "Un paramètre est manquant" _
, vbInformation, "Impossible": Exit Sub
ThisWorkbook.SaveAs Rp & SousRp & Application.PathSeparator _
& NomFic & ".xls"
End Sub

Cordialement
Pascal

"Phil221178" a écrit dans le
message
de news:
Bonjour à tous,

Je réalise une feuille sous Excel 2000.
Je souhaiterai créer une macro me permettant d'enregistrer le fichier
suivant ces points :

- Nom de fichier en fonction d'une valeur du tableau
- dans un dossier qui porte le même nom que l'une des valeurs du
tableau.

Par exemple : si dans mon tableau, j'ai A1='Barcelone ; A2='360, je
souhaite
que mom fichier soit enregistrer ainsi :

C:mes documentsBarcelone360.xls
En sachant que le dossier Barcelone est déjà créé...

Merci d'avance!

Un saludo

Philippe














Avatar
Phil221178
Merci Papoou.....

C'etait ce qu'il fallait faire!!

T'es un chef

"papou" escribió:

Re
Comme l'indique notre ami Jean-Paul, il est possible que le nom de ta
feuille ne soit pas Feuil1 (regarde ma remarque en début de mon message).
Sinon, ma (petite) connaissance de l'espagnol, me ferait penser à un message
du type "Indice en dehors de la plage" mais Jean-Paul serait probablement
confirmer cela ;-)
Donc pour avancer, il faut modifier les lignes comportant la mention
"Feuil1" par le nom de l'onglet qui contient les éléments servant à
enregistrer ton classeur.
A voir...
Saludos
Cordialement
Pascal

"Phil221178" a écrit dans le message
de news:
Re-bonjour,

Merci pour cette réponse.
Quand je lance la macro, Excel me dit :

"Subindice fuera del intervalo" (Packoffice en espagnol)

Que veut dire ce message, et que dois-e modifier

"papou" escribió:

Bonjour
Modifier éventuellement avec le nom de la feuille :
Sub EnregistrerAvecParam()
Const Rp As String = "C:Mes documents"
Dim SousRp As String
Dim NomFic As String
SousRp = Worksheets("Feuil1").Range("A1").Value
NomFic = Worksheets("Feuil1").Range("A1").Value
If Rp = "" Or NomFic = "" Then MsgBox "Un paramètre est manquant" _
, vbInformation, "Impossible": Exit Sub
ThisWorkbook.SaveAs Rp & SousRp & Application.PathSeparator _
& NomFic & ".xls"
End Sub

Cordialement
Pascal

"Phil221178" a écrit dans le
message
de news:
Bonjour à tous,

Je réalise une feuille sous Excel 2000.
Je souhaiterai créer une macro me permettant d'enregistrer le fichier
suivant ces points :

- Nom de fichier en fonction d'une valeur du tableau
- dans un dossier qui porte le même nom que l'une des valeurs du
tableau.

Par exemple : si dans mon tableau, j'ai A1='Barcelone ; A2='360, je
souhaite
que mom fichier soit enregistrer ainsi :

C:mes documentsBarcelone360.xls
En sachant que le dossier Barcelone est déjà créé...

Merci d'avance!

Un saludo

Philippe















Avatar
papou
Re
De rien, ça fait toujours plaisir !
T'es un chef
Bof !


Cordialement
Pascal

"Phil221178" a écrit dans le message
de news:
Merci Papoou.....

C'etait ce qu'il fallait faire!!

T'es un chef

"papou" escribió:

Re
Comme l'indique notre ami Jean-Paul, il est possible que le nom de ta
feuille ne soit pas Feuil1 (regarde ma remarque en début de mon message).
Sinon, ma (petite) connaissance de l'espagnol, me ferait penser à un
message
du type "Indice en dehors de la plage" mais Jean-Paul serait probablement
confirmer cela ;-)
Donc pour avancer, il faut modifier les lignes comportant la mention
"Feuil1" par le nom de l'onglet qui contient les éléments servant à
enregistrer ton classeur.
A voir...
Saludos
Cordialement
Pascal

"Phil221178" a écrit dans le
message
de news:
Re-bonjour,

Merci pour cette réponse.
Quand je lance la macro, Excel me dit :

"Subindice fuera del intervalo" (Packoffice en espagnol)

Que veut dire ce message, et que dois-e modifier

"papou" escribió:

Bonjour
Modifier éventuellement avec le nom de la feuille :
Sub EnregistrerAvecParam()
Const Rp As String = "C:Mes documents"
Dim SousRp As String
Dim NomFic As String
SousRp = Worksheets("Feuil1").Range("A1").Value
NomFic = Worksheets("Feuil1").Range("A1").Value
If Rp = "" Or NomFic = "" Then MsgBox "Un paramètre est manquant" _
, vbInformation, "Impossible": Exit Sub
ThisWorkbook.SaveAs Rp & SousRp & Application.PathSeparator _
& NomFic & ".xls"
End Sub

Cordialement
Pascal

"Phil221178" a écrit dans le
message
de news:
Bonjour à tous,

Je réalise une feuille sous Excel 2000.
Je souhaiterai créer une macro me permettant d'enregistrer le
fichier
suivant ces points :

- Nom de fichier en fonction d'une valeur du tableau
- dans un dossier qui porte le même nom que l'une des valeurs du
tableau.

Par exemple : si dans mon tableau, j'ai A1='Barcelone ; A2='360, je
souhaite
que mom fichier soit enregistrer ainsi :

C:mes documentsBarcelone360.xls
En sachant que le dossier Barcelone est déjà créé...

Merci d'avance!

Un saludo

Philippe

















Avatar
jps
pobrecito papou...
j'ai en effet supposé que cela devait être ce que tu as dit, pascal, car^,
même si la langue de cervantès ne m'est pas trop étrangère, je ne suis
jamais offert pour autant un Windows en espagnol....si FS lit cette ficelle,
cela devrait lui rappeler certains souvenirs que ma noblesse de coeur et ma
grandeur d'ame m'interdisent de remuer ici...
jps

"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de
news:
Heu...
A force de passer d'une langue à l'autre, ma langue a fourché !
mais Jean-Paul serait probablement confirmer cela ;-)
mais Jean-Paul saurait confirmer cela ;-)


Cordialement
Pascal

"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news:
eyt5%
Re
Comme l'indique notre ami Jean-Paul, il est possible que le nom de ta
feuille ne soit pas Feuil1 (regarde ma remarque en début de mon
message).


Sinon, ma (petite) connaissance de l'espagnol, me ferait penser à un
message du type "Indice en dehors de la plage" mais Jean-Paul serait
probablement confirmer cela ;-)
Donc pour avancer, il faut modifier les lignes comportant la mention
"Feuil1" par le nom de l'onglet qui contient les éléments servant à
enregistrer ton classeur.
A voir...
Saludos
Cordialement
Pascal

"Phil221178" a écrit dans le
message de news:
Re-bonjour,

Merci pour cette réponse.
Quand je lance la macro, Excel me dit :

"Subindice fuera del intervalo" (Packoffice en espagnol)

Que veut dire ce message, et que dois-e modifier

"papou" escribió:

Bonjour
Modifier éventuellement avec le nom de la feuille :
Sub EnregistrerAvecParam()
Const Rp As String = "C:Mes documents"
Dim SousRp As String
Dim NomFic As String
SousRp = Worksheets("Feuil1").Range("A1").Value
NomFic = Worksheets("Feuil1").Range("A1").Value
If Rp = "" Or NomFic = "" Then MsgBox "Un paramètre est manquant" _
, vbInformation, "Impossible": Exit Sub
ThisWorkbook.SaveAs Rp & SousRp & Application.PathSeparator _
& NomFic & ".xls"
End Sub

Cordialement
Pascal

"Phil221178" a écrit dans le
message
de news:
Bonjour à tous,

Je réalise une feuille sous Excel 2000.
Je souhaiterai créer une macro me permettant d'enregistrer le
fichier





suivant ces points :

- Nom de fichier en fonction d'une valeur du tableau
- dans un dossier qui porte le même nom que l'une des valeurs du
tableau.

Par exemple : si dans mon tableau, j'ai A1='Barcelone ; A2='360, je
souhaite
que mom fichier soit enregistrer ainsi :

C:mes documentsBarcelone360.xls
En sachant que le dossier Barcelone est déjà créé...

Merci d'avance!

Un saludo

Philippe


















Avatar
-----Mensaje de origen ;o)))-----
pobrecito papou...
Supuse en efecto que esto debía ser lo que dijiste,

pascual, porque, Aunque la lengua de cervantès no es
demasiado extraña para mí, soy Jamás ofrecido por eso
Windows en español si FS lee esta cuerda fina, Esto
debería recordarle ciertas memorias que mi nobleza de
corazón y mi Grandor de ame me prohiben moverme aquí...
jps


Recordatorio NON ????
je ne signe pas c'est entre-nous
;-))))

1 2