sauvegarder un fichier au nom de deux cellules

Le
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é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.
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Daniel.C
Le #21154911
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.


sleg
Le #21158051
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
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 -


sleg
Le #21158041
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
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 -


jero
Le #21158331
Salut,
avec :
.SaveAs (\chemin & "" & "1-Formulaire_ACA_toto_" & Fe1.Range("C7") & "_" &
Fe1.Range("G7") & ".xls")
ça fonctionne mieux ?
A+
"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
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 -


sleg
Le #21158941
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"
Salut,
avec :
.SaveAs (\chemin & "" & "1-Formulaire_ACA_toto_" & Fe1.Range("C7") & "_ " &
Fe1.Range("G7") & ".xls")
a fonctionne mieux ?
A+
"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


> 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 -


sleg
Le #21159031
merci de votre aide ça amrche

merci a toutes & tous

bonne journée.

On 9 fév, 11:26, 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"


> Salut,
> avec :
> .SaveAs (\chemin & "" & "1-Formulaire_ACA_toto_" & Fe1.Range("C7") & "_" &
> Fe1.Range("G7") & ".xls")
> a fonctionne mieux ?
> A+
> "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
> > 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 -


Publicité
Poster une réponse
Anonyme