Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel sauvegarder un fichier au nom de deux cellules

sauvegarder un fichier au nom de deux cellules

6 réponses
Avatar
sleg
BOnsoir,

pourriez vous me dire pourquoi cela ne fonctionne pas :

.SaveAs ("\\chemin" & "\" & "1-Formulaire_ACA_toto_" & range("C7") &
range("g7") & ".xls")

pour info C7 est une cellule fusionn=E9e de c7 a E7 et G7 est une
cellule fusionn=E9e de G7 a I7

j'obtien un fichier excel =3D=3D> 1-Formulaire_ACA_toto_" .xls

merci de votre aide.
Signaler un problème avec ce contenu

6 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
Avatar
Daniel.C
Bonjour.
Assure-toi que la feuille contenant C7 et G7 est bien la feuille active
ou la feuille contenant le bouton si tu en utilises un.
Pour t'en assurer, ajoute :
msgbox range("C7") & " " & range("G7")
avant la sauvegarde.
Cordialement.
Daniel

BOnsoir,

pourriez vous me dire pourquoi cela ne fonctionne pas :

.SaveAs ("chemin" & "" & "1-Formulaire_ACA_toto_" & range("C7") &
range("g7") & ".xls")

pour info C7 est une cellule fusionnée de c7 a E7 et G7 est une
cellule fusionnée de G7 a I7

j'obtien un fichier excel ==> 1-Formulaire_ACA_toto_" .xls

merci de votre aide.


Avatar
sleg
BOnjour merci de ton retour,

alors avec la msbox pas de probleme je recupere bien le nom mais
impossible de le faire pour l'enregistrement de mon fichier ??

une idée.


On 8 fév, 17:37, Daniel.C wrote:
Bonjour.
Assure-toi que la feuille contenant C7 et G7 est bien la feuille active
ou la feuille contenant le bouton si tu en utilises un.
Pour t'en assurer, ajoute :
msgbox range("C7") & " " & range("G7")
avant la sauvegarde.
Cordialement.
Daniel



> BOnsoir,

> pourriez vous me dire pourquoi cela ne fonctionne pas :

> .SaveAs ("chemin" & "" & "1-Formulaire_ACA_toto_" & range("C7") &
> range("g7") & ".xls")

> pour info C7 est une cellule fusionnée de c7 a E7 et G7 est une
> cellule fusionnée de G7 a I7

> j'obtien un fichier excel ==> 1-Formulaire_ACA_toto_" .xls

> merci de votre aide.- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -


Avatar
sleg
Re bonjour,

voici la macro que j'utilise :

Sub EXPORTLOTHELIOS()
Dim Cl As Workbook
Dim Fe1 As Worksheet
Set Fe1 = Worksheets("FORMULAIRE")
Application.ScreenUpdating = False
Set Cl = Workbooks.Add
With Cl
Application.DisplayAlerts = False
.SaveAs ("chemin" & "" & "1-Formulaire_ACA_toto_" & Range("C7") &
"_" & Range("G7") & ".xls")
Fe1.Copy .Worksheets("Feuil1")
ActiveSheet.Name = "FORMULAIRE"
.Worksheets("Feuil1").Delete
.Worksheets("Feuil2").Delete
.Worksheets("Feuil3").Delete
.Worksheets("Feuil4").Delete
Application.DisplayAlerts = True
.Save
.Close
End With
Application.ScreenUpdating = True
Set Fe1 = Nothing
Set Fe2 = Nothing
Set fe3 = Nothing
Set Cl = Nothing
End Sub


On 8 fév, 17:37, Daniel.C wrote:
Bonjour.
Assure-toi que la feuille contenant C7 et G7 est bien la feuille active
ou la feuille contenant le bouton si tu en utilises un.
Pour t'en assurer, ajoute :
msgbox range("C7") & " " & range("G7")
avant la sauvegarde.
Cordialement.
Daniel



> BOnsoir,

> pourriez vous me dire pourquoi cela ne fonctionne pas :

> .SaveAs ("chemin" & "" & "1-Formulaire_ACA_toto_" & range("C7") &
> range("g7") & ".xls")

> pour info C7 est une cellule fusionnée de c7 a E7 et G7 est une
> cellule fusionnée de G7 a I7

> j'obtien un fichier excel ==> 1-Formulaire_ACA_toto_" .xls

> merci de votre aide.- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -


Avatar
jero
Salut,
avec :
.SaveAs (chemin & "" & "1-Formulaire_ACA_toto_" & Fe1.Range("C7") & "_" &
Fe1.Range("G7") & ".xls")
ça fonctionne mieux ?
A+
"sleg" a écrit dans le message de news:

Re bonjour,

voici la macro que j'utilise :

Sub EXPORTLOTHELIOS()
Dim Cl As Workbook
Dim Fe1 As Worksheet
Set Fe1 = Worksheets("FORMULAIRE")
Application.ScreenUpdating = False
Set Cl = Workbooks.Add
With Cl
Application.DisplayAlerts = False
.SaveAs ("chemin" & "" & "1-Formulaire_ACA_toto_" & Range("C7") &
"_" & Range("G7") & ".xls")
Fe1.Copy .Worksheets("Feuil1")
ActiveSheet.Name = "FORMULAIRE"
.Worksheets("Feuil1").Delete
.Worksheets("Feuil2").Delete
.Worksheets("Feuil3").Delete
.Worksheets("Feuil4").Delete
Application.DisplayAlerts = True
.Save
.Close
End With
Application.ScreenUpdating = True
Set Fe1 = Nothing
Set Fe2 = Nothing
Set fe3 = Nothing
Set Cl = Nothing
End Sub


On 8 fév, 17:37, Daniel.C wrote:
Bonjour.
Assure-toi que la feuille contenant C7 et G7 est bien la feuille active
ou la feuille contenant le bouton si tu en utilises un.
Pour t'en assurer, ajoute :
msgbox range("C7") & " " & range("G7")
avant la sauvegarde.
Cordialement.
Daniel



> BOnsoir,

> pourriez vous me dire pourquoi cela ne fonctionne pas :

> .SaveAs ("chemin" & "" & "1-Formulaire_ACA_toto_" & range("C7") &
> range("g7") & ".xls")

> pour info C7 est une cellule fusionnée de c7 a E7 et G7 est une
> cellule fusionnée de G7 a I7

> j'obtien un fichier excel ==> 1-Formulaire_ACA_toto_" .xls

> merci de votre aide.- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -


Avatar
sleg
Non désole ça ne marche pas avec

.SaveAs ("repertoire" & "" & "1-Formulaire_ACA_ITSM_" &
Fe1.Range("C7") & "_" & Fe1.Range("G7") & ".xls")

une autre idée.


On 9 fév, 09:22, "jero" <~ wrote:
Salut,
avec :
.SaveAs (chemin & "" & "1-Formulaire_ACA_toto_" & Fe1.Range("C7") & "_ " &
Fe1.Range("G7") & ".xls")
a fonctionne mieux ?
A+
"sleg" a crit dans le message de news:

Re bonjour,

voici la macro que j'utilise :

Sub EXPORTLOTHELIOS()
Dim Cl As Workbook
Dim Fe1 As Worksheet
Set Fe1 = Worksheets("FORMULAIRE")
Application.ScreenUpdating = False
Set Cl = Workbooks.Add
With Cl
Application.DisplayAlerts = False
.SaveAs ("chemin" & "" & "1-Formulaire_ACA_toto_" & Range("C7") &
"_" & Range("G7") & ".xls")
Fe1.Copy .Worksheets("Feuil1")
ActiveSheet.Name = "FORMULAIRE"
.Worksheets("Feuil1").Delete
.Worksheets("Feuil2").Delete
.Worksheets("Feuil3").Delete
.Worksheets("Feuil4").Delete
Application.DisplayAlerts = True
.Save
.Close
End With
Application.ScreenUpdating = True
Set Fe1 = Nothing
Set Fe2 = Nothing
Set fe3 = Nothing
Set Cl = Nothing
End Sub

On 8 f v, 17:37, Daniel.C wrote:



> Bonjour.
> Assure-toi que la feuille contenant C7 et G7 est bien la feuille active
> ou la feuille contenant le bouton si tu en utilises un.
> Pour t'en assurer, ajoute :
> msgbox range("C7") & " " & range("G7")
> avant la sauvegarde.
> Cordialement.
> Daniel

> > BOnsoir,

> > pourriez vous me dire pourquoi cela ne fonctionne pas :

> > .SaveAs ("chemin" & "" & "1-Formulaire_ACA_toto_" & range("C7") &
> > range("g7") & ".xls")

> > pour info C7 est une cellule fusionn e de c7 a E7 et G7 est une
> > cellule fusionn e de G7 a I7

> > j'obtien un fichier excel ==> 1-Formulaire_ACA_toto_" .xls

> > merci de votre aide.- Masquer le texte des messages pr c dents -

> - Afficher le texte des messages pr c dents -- Masquer le texte des mes sages précédents -

- Afficher le texte des messages précédents -


Avatar
sleg
merci de votre aide ça amrche

merci a toutes & tous

bonne journée.

On 9 fév, 11:26, sleg wrote:
Non désole ça ne marche pas  avec

.SaveAs ("repertoire" & "" & "1-Formulaire_ACA_ITSM_" &
Fe1.Range("C7") & "_" & Fe1.Range("G7") & ".xls")

une autre idée.

On 9 fév, 09:22, "jero" <~ wrote:



> Salut,
> avec :
> .SaveAs (chemin & "" & "1-Formulaire_ACA_toto_" & Fe1.Range("C7") & "_" &
> Fe1.Range("G7") & ".xls")
> a fonctionne mieux ?
> A+
> "sleg" a crit dans le message de news:
>
> Re bonjour,

> voici la macro que j'utilise :

> Sub EXPORTLOTHELIOS()
> Dim Cl As Workbook
> Dim Fe1 As Worksheet
> Set Fe1 = Worksheets("FORMULAIRE")
> Application.ScreenUpdating = False
> Set Cl = Workbooks.Add
> With Cl
> Application.DisplayAlerts = False
> .SaveAs ("chemin" & "" & "1-Formulaire_ACA_toto_" & Range("C7") &
> "_" & Range("G7") & ".xls")
> Fe1.Copy .Worksheets("Feuil1")
> ActiveSheet.Name = "FORMULAIRE"
> .Worksheets("Feuil1").Delete
> .Worksheets("Feuil2").Delete
> .Worksheets("Feuil3").Delete
> .Worksheets("Feuil4").Delete
> Application.DisplayAlerts = True
> .Save
> .Close
> End With
> Application.ScreenUpdating = True
> Set Fe1 = Nothing
> Set Fe2 = Nothing
> Set fe3 = Nothing
> Set Cl = Nothing
> End Sub

> On 8 f v, 17:37, Daniel.C wrote:

> > Bonjour.
> > Assure-toi que la feuille contenant C7 et G7 est bien la feuille acti ve
> > ou la feuille contenant le bouton si tu en utilises un.
> > Pour t'en assurer, ajoute :
> > msgbox range("C7") & " " & range("G7")
> > avant la sauvegarde.
> > Cordialement.
> > Daniel

> > > BOnsoir,

> > > pourriez vous me dire pourquoi cela ne fonctionne pas :

> > > .SaveAs ("chemin" & "" & "1-Formulaire_ACA_toto_" & range("C7") &
> > > range("g7") & ".xls")

> > > pour info C7 est une cellule fusionn e de c7 a E7 et G7 est une
> > > cellule fusionn e de G7 a I7

> > > j'obtien un fichier excel ==> 1-Formulaire_ACA_toto_" .xls

> > > merci de votre aide.- Masquer le texte des messages pr c dents -

> > - Afficher le texte des messages pr c dents -- Masquer le texte des m essages précédents -

> - Afficher le texte des messages précédents -- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -