J'ai crée un document sous excel pour saisir des rapports commerciaux. Le
but est que chaque rapport soit formaté à l'identique. Je fais sur Excel car
j'utilise une base de données entreprises.
Mon problème est là : Dans une cellule B1 j'ai un numéro correspondant à une
fiche entreprise et dans la cellule B4 j'ai la raison sociale de l'ets.
Je veux fusionner mes 2 cellules en I4 style Jambon fleuri - 450 450c
A partir de là je pense créer une macro et un bouton, pour enregistrer
automatiquement le rapport sous g:\Rapport\jambon fleuri - 450 450c.xls
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
Jacky
Bonsoir
Pour la fusion en I4 [I4]=[b1]&[b4]
Dans ta macro: Sub bouton chemin = "g:Rapport"& [i4] & ".xls" ActiveWorkbook.SaveAs FileName:=chemin end sub ATTENTION le dossier "Rapport" doit être crée avant le lancement de la macro
Salutations JJ
"BlackStorm" a écrit dans le message news: bvgig9$681$
Bonjour à tous,
J'ai crée un document sous excel pour saisir des rapports commerciaux. Le but est que chaque rapport soit formaté à l'identique. Je fais sur Excel car
j'utilise une base de données entreprises. Mon problème est là : Dans une cellule B1 j'ai un numéro correspondant à une
fiche entreprise et dans la cellule B4 j'ai la raison sociale de l'ets. Je veux fusionner mes 2 cellules en I4 style Jambon fleuri - 450 450c A partir de là je pense créer une macro et un bouton, pour enregistrer automatiquement le rapport sous g:Rapportjambon fleuri - 450 450c.xls
Comment faire ? Merci d'avance pour votre aide
Bonsoir
Pour la fusion en I4
[I4]=[b1]&[b4]
Dans ta macro:
Sub bouton
chemin = "g:Rapport"& [i4] & ".xls"
ActiveWorkbook.SaveAs FileName:=chemin
end sub
ATTENTION le dossier "Rapport" doit être crée avant le lancement de la
macro
Salutations
JJ
"BlackStorm" <BlackStorm@Hotmail.com> a écrit dans le message news:
bvgig9$681$1@news-reader1.wanadoo.fr...
Bonjour à tous,
J'ai crée un document sous excel pour saisir des rapports commerciaux. Le
but est que chaque rapport soit formaté à l'identique. Je fais sur Excel
car
j'utilise une base de données entreprises.
Mon problème est là : Dans une cellule B1 j'ai un numéro correspondant à
une
fiche entreprise et dans la cellule B4 j'ai la raison sociale de l'ets.
Je veux fusionner mes 2 cellules en I4 style Jambon fleuri - 450 450c
A partir de là je pense créer une macro et un bouton, pour enregistrer
automatiquement le rapport sous g:Rapportjambon fleuri - 450 450c.xls
Dans ta macro: Sub bouton chemin = "g:Rapport"& [i4] & ".xls" ActiveWorkbook.SaveAs FileName:=chemin end sub ATTENTION le dossier "Rapport" doit être crée avant le lancement de la macro
Salutations JJ
"BlackStorm" a écrit dans le message news: bvgig9$681$
Bonjour à tous,
J'ai crée un document sous excel pour saisir des rapports commerciaux. Le but est que chaque rapport soit formaté à l'identique. Je fais sur Excel car
j'utilise une base de données entreprises. Mon problème est là : Dans une cellule B1 j'ai un numéro correspondant à une
fiche entreprise et dans la cellule B4 j'ai la raison sociale de l'ets. Je veux fusionner mes 2 cellules en I4 style Jambon fleuri - 450 450c A partir de là je pense créer une macro et un bouton, pour enregistrer automatiquement le rapport sous g:Rapportjambon fleuri - 450 450c.xls
Comment faire ? Merci d'avance pour votre aide
michdenis
Bonjour BlackStorm,
En I4, tu écris la formule de concaténation suivante :
¡ & B1
et si tu désires avoir un espace entre les 2 valeurs :
¡ & " " & B1
'----------------------------- Sub Enregistrer()
Dim File As String, A as String
With Worksheets("Feuil1") File = "G:Rapport" & .Range("I4") & ".xls" End With a = Dir(File) If Dir(File) = "" Then ThisWorkbook.SaveAs File Else If MsgBox("Ce classeur existe déjà." & _ "Désirez-vous l'écraser ?", vbYesNo + vbCritical) = vbYes Then Application.DisplayAlerts = False ThisWorkbook.SaveAs File Application.DisplayAlerts = True Else MsgBox "Sauvegarde n'a pas été effectué." End If End If
End Sub '-----------------------------
Salutations!
"BlackStorm" a écrit dans le message de news:bvgig9$681$ Bonjour à tous,
J'ai crée un document sous excel pour saisir des rapports commerciaux. Le but est que chaque rapport soit formaté à l'identique. Je fais sur Excel car j'utilise une base de données entreprises. Mon problème est là : Dans une cellule B1 j'ai un numéro correspondant à une fiche entreprise et dans la cellule B4 j'ai la raison sociale de l'ets. Je veux fusionner mes 2 cellules en I4 style Jambon fleuri - 450 450c A partir de là je pense créer une macro et un bouton, pour enregistrer automatiquement le rapport sous g:Rapportjambon fleuri - 450 450c.xls
Comment faire ? Merci d'avance pour votre aide
Bonjour BlackStorm,
En I4, tu écris la formule de concaténation suivante :
¡ & B1
et si tu désires avoir un espace entre les 2 valeurs :
¡ & " " & B1
'-----------------------------
Sub Enregistrer()
Dim File As String, A as String
With Worksheets("Feuil1")
File = "G:Rapport" & .Range("I4") & ".xls"
End With
a = Dir(File)
If Dir(File) = "" Then
ThisWorkbook.SaveAs File
Else
If MsgBox("Ce classeur existe déjà." & _
"Désirez-vous l'écraser ?", vbYesNo + vbCritical) = vbYes Then
Application.DisplayAlerts = False
ThisWorkbook.SaveAs File
Application.DisplayAlerts = True
Else
MsgBox "Sauvegarde n'a pas été effectué."
End If
End If
End Sub
'-----------------------------
Salutations!
"BlackStorm" <BlackStorm@Hotmail.com> a écrit dans le message de news:bvgig9$681$1@news-reader1.wanadoo.fr...
Bonjour à tous,
J'ai crée un document sous excel pour saisir des rapports commerciaux. Le
but est que chaque rapport soit formaté à l'identique. Je fais sur Excel car
j'utilise une base de données entreprises.
Mon problème est là : Dans une cellule B1 j'ai un numéro correspondant à une
fiche entreprise et dans la cellule B4 j'ai la raison sociale de l'ets.
Je veux fusionner mes 2 cellules en I4 style Jambon fleuri - 450 450c
A partir de là je pense créer une macro et un bouton, pour enregistrer
automatiquement le rapport sous g:Rapportjambon fleuri - 450 450c.xls
En I4, tu écris la formule de concaténation suivante :
¡ & B1
et si tu désires avoir un espace entre les 2 valeurs :
¡ & " " & B1
'----------------------------- Sub Enregistrer()
Dim File As String, A as String
With Worksheets("Feuil1") File = "G:Rapport" & .Range("I4") & ".xls" End With a = Dir(File) If Dir(File) = "" Then ThisWorkbook.SaveAs File Else If MsgBox("Ce classeur existe déjà." & _ "Désirez-vous l'écraser ?", vbYesNo + vbCritical) = vbYes Then Application.DisplayAlerts = False ThisWorkbook.SaveAs File Application.DisplayAlerts = True Else MsgBox "Sauvegarde n'a pas été effectué." End If End If
End Sub '-----------------------------
Salutations!
"BlackStorm" a écrit dans le message de news:bvgig9$681$ Bonjour à tous,
J'ai crée un document sous excel pour saisir des rapports commerciaux. Le but est que chaque rapport soit formaté à l'identique. Je fais sur Excel car j'utilise une base de données entreprises. Mon problème est là : Dans une cellule B1 j'ai un numéro correspondant à une fiche entreprise et dans la cellule B4 j'ai la raison sociale de l'ets. Je veux fusionner mes 2 cellules en I4 style Jambon fleuri - 450 450c A partir de là je pense créer une macro et un bouton, pour enregistrer automatiquement le rapport sous g:Rapportjambon fleuri - 450 450c.xls
Comment faire ? Merci d'avance pour votre aide
BlackStorm
Merci pour votre aide et pour la rapidité !!!
"BlackStorm" a écrit dans le message de news: bvgig9$681$
Bonjour à tous,
J'ai crée un document sous excel pour saisir des rapports commerciaux. Le but est que chaque rapport soit formaté à l'identique. Je fais sur Excel car
j'utilise une base de données entreprises. Mon problème est là : Dans une cellule B1 j'ai un numéro correspondant à une
fiche entreprise et dans la cellule B4 j'ai la raison sociale de l'ets. Je veux fusionner mes 2 cellules en I4 style Jambon fleuri - 450 450c A partir de là je pense créer une macro et un bouton, pour enregistrer automatiquement le rapport sous g:Rapportjambon fleuri - 450 450c.xls
Comment faire ? Merci d'avance pour votre aide
Merci pour votre aide et pour la rapidité !!!
"BlackStorm" <BlackStorm@Hotmail.com> a écrit dans le message de news:
bvgig9$681$1@news-reader1.wanadoo.fr...
Bonjour à tous,
J'ai crée un document sous excel pour saisir des rapports commerciaux. Le
but est que chaque rapport soit formaté à l'identique. Je fais sur Excel
car
j'utilise une base de données entreprises.
Mon problème est là : Dans une cellule B1 j'ai un numéro correspondant à
une
fiche entreprise et dans la cellule B4 j'ai la raison sociale de l'ets.
Je veux fusionner mes 2 cellules en I4 style Jambon fleuri - 450 450c
A partir de là je pense créer une macro et un bouton, pour enregistrer
automatiquement le rapport sous g:Rapportjambon fleuri - 450 450c.xls
"BlackStorm" a écrit dans le message de news: bvgig9$681$
Bonjour à tous,
J'ai crée un document sous excel pour saisir des rapports commerciaux. Le but est que chaque rapport soit formaté à l'identique. Je fais sur Excel car
j'utilise une base de données entreprises. Mon problème est là : Dans une cellule B1 j'ai un numéro correspondant à une
fiche entreprise et dans la cellule B4 j'ai la raison sociale de l'ets. Je veux fusionner mes 2 cellules en I4 style Jambon fleuri - 450 450c A partir de là je pense créer une macro et un bouton, pour enregistrer automatiquement le rapport sous g:Rapportjambon fleuri - 450 450c.xls
