ENTITE
civilite
NOM
Prenom
Adresse
cp
Ville
Courriel
Code
Est-ce possible de faire une macro qui va generer un fichier
dans lequel je retrouve ces rubriques simplement si la valeur
de la rubrique code a la valeur 1 ??
Ce fichier me permettrait par la suite d'effectuer du publipostage
avec word
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
Cage à lapins
Bonjour Pratt,
Petite précision sur ta structure : Est ce que chaque rubrique est sur une colonne d'une même feuille (Colonne 1 => Entité, Colonne 2 Civilité, etc.) et chaque ligne (à partir de la 2eme) contient une personne?
Si oui et si j'ai bien compris ton besoin, il faut donc écrire une macro qui pour toutes tes lignes, teste la valeur du Code et si code = 1 écrive un enregistrement contenant toutes tes rubriques pour cette ligne.
Confirmes moi que c'est bien ça.
"pratt" wrote:
Bonjour
J'ai un fichier excel qui a la structure suivante
ENTITE civilite NOM Prenom Adresse cp Ville Courriel Code
Est-ce possible de faire une macro qui va generer un fichier dans lequel je retrouve ces rubriques simplement si la valeur de la rubrique code a la valeur 1 ??
Ce fichier me permettrait par la suite d'effectuer du publipostage avec word
merci
Bonjour Pratt,
Petite précision sur ta structure :
Est ce que chaque rubrique est sur une colonne d'une même feuille (Colonne 1
=> Entité, Colonne 2 Civilité, etc.) et chaque ligne (à partir de la 2eme)
contient une personne?
Si oui et si j'ai bien compris ton besoin, il faut donc écrire une macro qui
pour toutes tes lignes, teste la valeur du Code et si code = 1 écrive un
enregistrement contenant toutes tes rubriques pour cette ligne.
Confirmes moi que c'est bien ça.
"pratt" wrote:
Bonjour
J'ai un fichier excel qui a la structure suivante
ENTITE
civilite
NOM
Prenom
Adresse
cp
Ville
Courriel
Code
Est-ce possible de faire une macro qui va generer un fichier
dans lequel je retrouve ces rubriques simplement si la valeur
de la rubrique code a la valeur 1 ??
Ce fichier me permettrait par la suite d'effectuer du publipostage
avec word
Petite précision sur ta structure : Est ce que chaque rubrique est sur une colonne d'une même feuille (Colonne 1 => Entité, Colonne 2 Civilité, etc.) et chaque ligne (à partir de la 2eme) contient une personne?
Si oui et si j'ai bien compris ton besoin, il faut donc écrire une macro qui pour toutes tes lignes, teste la valeur du Code et si code = 1 écrive un enregistrement contenant toutes tes rubriques pour cette ligne.
Confirmes moi que c'est bien ça.
"pratt" wrote:
Bonjour
J'ai un fichier excel qui a la structure suivante
ENTITE civilite NOM Prenom Adresse cp Ville Courriel Code
Est-ce possible de faire une macro qui va generer un fichier dans lequel je retrouve ces rubriques simplement si la valeur de la rubrique code a la valeur 1 ??
Ce fichier me permettrait par la suite d'effectuer du publipostage avec word
merci
pratt
Bonjour Pratt,
Petite précision sur ta structure : Est ce que chaque rubrique est sur une colonne d'une même feuille (Colonne 1 => Entité, Colonne 2 Civilité, etc.) et chaque ligne (à partir de la 2eme) contient une personne?
Si oui et si j'ai bien compris ton besoin, il faut donc écrire une macro qui pour toutes tes lignes, teste la valeur du Code et si code = 1 écrive un enregistrement contenant toutes tes rubriques pour cette ligne.
Confirmes moi que c'est bien ça.
"pratt" wrote:
Oui , pour chaque ligne ou le code est à 1 on ecrit un enregistrement contenant toutes les rubriques ( sauf celle du code )
Bonjour
J'ai un fichier excel qui a la structure suivante
ENTITE civilite NOM Prenom Adresse cp Ville Courriel Code
Est-ce possible de faire une macro qui va generer un fichier dans lequel je retrouve ces rubriques simplement si la valeur de la rubrique code a la valeur 1 ??
Ce fichier me permettrait par la suite d'effectuer du publipostage avec word
merci
Bonjour Pratt,
Petite précision sur ta structure :
Est ce que chaque rubrique est sur une colonne d'une même feuille (Colonne 1
=> Entité, Colonne 2 Civilité, etc.) et chaque ligne (à partir de la 2eme)
contient une personne?
Si oui et si j'ai bien compris ton besoin, il faut donc écrire une macro qui
pour toutes tes lignes, teste la valeur du Code et si code = 1 écrive un
enregistrement contenant toutes tes rubriques pour cette ligne.
Confirmes moi que c'est bien ça.
"pratt" wrote:
Oui , pour chaque ligne ou le code est à 1 on ecrit
un enregistrement contenant toutes les rubriques ( sauf celle du code )
Bonjour
J'ai un fichier excel qui a la structure suivante
ENTITE
civilite
NOM
Prenom
Adresse
cp
Ville
Courriel
Code
Est-ce possible de faire une macro qui va generer un fichier
dans lequel je retrouve ces rubriques simplement si la valeur
de la rubrique code a la valeur 1 ??
Ce fichier me permettrait par la suite d'effectuer du publipostage
avec word
Petite précision sur ta structure : Est ce que chaque rubrique est sur une colonne d'une même feuille (Colonne 1 => Entité, Colonne 2 Civilité, etc.) et chaque ligne (à partir de la 2eme) contient une personne?
Si oui et si j'ai bien compris ton besoin, il faut donc écrire une macro qui pour toutes tes lignes, teste la valeur du Code et si code = 1 écrive un enregistrement contenant toutes tes rubriques pour cette ligne.
Confirmes moi que c'est bien ça.
"pratt" wrote:
Oui , pour chaque ligne ou le code est à 1 on ecrit un enregistrement contenant toutes les rubriques ( sauf celle du code )
Bonjour
J'ai un fichier excel qui a la structure suivante
ENTITE civilite NOM Prenom Adresse cp Ville Courriel Code
Est-ce possible de faire une macro qui va generer un fichier dans lequel je retrouve ces rubriques simplement si la valeur de la rubrique code a la valeur 1 ??
Ce fichier me permettrait par la suite d'effectuer du publipostage avec word
merci
Cage à lapins
Voilà peut-être une solution (à essayer)
Public Sub Ecrit_fic() Const COLDEB = 1 'Contient le N° de la premiere colonne Const COLFIN = 8 'Contient le N° de la derniere colonne Const COLCODE = COLFIN + 1 ' Colonne CODE
Dim Fichier As String Dim Derniere_ligne As Integer Dim Ligne As Integer Dim Enreg As String
'Nom du fichier à écrire Fichier = InputBox("Nom du fichier à créer") Open Fichier For Output As #1
'Recherche de la dernière ligne de données ActiveCell.SpecialCells(xlLastCell).Activate Derniere_ligne = ActiveCell.Row
'Ecriture du fichier For Ligne = 1 To Derniere_ligne If Cells(Ligne, COLCODE).Value = 1 Then Enreg = Chr$(34) & _ Cells(Ligne, COLDEB).Value & _ Chr$(34) For Colonne = COLDEB + 1 To COLFIN Enreg = Enreg & Chr$(59) & Chr$(34) & _ Cells(Ligne, Colonne).Value & Chr$(34) Next Colonne Print #1, Enreg End If Next Ligne
Close #1 End Sub
"pratt" wrote:
Bonjour Pratt,
Petite précision sur ta structure : Est ce que chaque rubrique est sur une colonne d'une même feuille (Colonne 1 => Entité, Colonne 2 Civilité, etc.) et chaque ligne (à partir de la 2eme) contient une personne?
Si oui et si j'ai bien compris ton besoin, il faut donc écrire une macro qui pour toutes tes lignes, teste la valeur du Code et si code = 1 écrive un enregistrement contenant toutes tes rubriques pour cette ligne.
Confirmes moi que c'est bien ça.
"pratt" wrote:
Oui , pour chaque ligne ou le code est à 1 on ecrit un enregistrement contenant toutes les rubriques ( sauf celle du code )
Bonjour
J'ai un fichier excel qui a la structure suivante
ENTITE civilite NOM Prenom Adresse cp Ville Courriel Code
Est-ce possible de faire une macro qui va generer un fichier dans lequel je retrouve ces rubriques simplement si la valeur de la rubrique code a la valeur 1 ??
Ce fichier me permettrait par la suite d'effectuer du publipostage avec word
merci
Voilà peut-être une solution (à essayer)
Public Sub Ecrit_fic()
Const COLDEB = 1 'Contient le N° de la premiere colonne
Const COLFIN = 8 'Contient le N° de la derniere colonne
Const COLCODE = COLFIN + 1 ' Colonne CODE
Dim Fichier As String
Dim Derniere_ligne As Integer
Dim Ligne As Integer
Dim Enreg As String
'Nom du fichier à écrire
Fichier = InputBox("Nom du fichier à créer")
Open Fichier For Output As #1
'Recherche de la dernière ligne de données
ActiveCell.SpecialCells(xlLastCell).Activate
Derniere_ligne = ActiveCell.Row
'Ecriture du fichier
For Ligne = 1 To Derniere_ligne
If Cells(Ligne, COLCODE).Value = 1 Then
Enreg = Chr$(34) & _
Cells(Ligne, COLDEB).Value & _
Chr$(34)
For Colonne = COLDEB + 1 To COLFIN
Enreg = Enreg & Chr$(59) & Chr$(34) & _
Cells(Ligne, Colonne).Value & Chr$(34)
Next Colonne
Print #1, Enreg
End If
Next Ligne
Close #1
End Sub
"pratt" wrote:
Bonjour Pratt,
Petite précision sur ta structure :
Est ce que chaque rubrique est sur une colonne d'une même feuille (Colonne 1
=> Entité, Colonne 2 Civilité, etc.) et chaque ligne (à partir de la 2eme)
contient une personne?
Si oui et si j'ai bien compris ton besoin, il faut donc écrire une macro qui
pour toutes tes lignes, teste la valeur du Code et si code = 1 écrive un
enregistrement contenant toutes tes rubriques pour cette ligne.
Confirmes moi que c'est bien ça.
"pratt" wrote:
Oui , pour chaque ligne ou le code est à 1 on ecrit
un enregistrement contenant toutes les rubriques ( sauf celle du code )
Bonjour
J'ai un fichier excel qui a la structure suivante
ENTITE
civilite
NOM
Prenom
Adresse
cp
Ville
Courriel
Code
Est-ce possible de faire une macro qui va generer un fichier
dans lequel je retrouve ces rubriques simplement si la valeur
de la rubrique code a la valeur 1 ??
Ce fichier me permettrait par la suite d'effectuer du publipostage
avec word
Public Sub Ecrit_fic() Const COLDEB = 1 'Contient le N° de la premiere colonne Const COLFIN = 8 'Contient le N° de la derniere colonne Const COLCODE = COLFIN + 1 ' Colonne CODE
Dim Fichier As String Dim Derniere_ligne As Integer Dim Ligne As Integer Dim Enreg As String
'Nom du fichier à écrire Fichier = InputBox("Nom du fichier à créer") Open Fichier For Output As #1
'Recherche de la dernière ligne de données ActiveCell.SpecialCells(xlLastCell).Activate Derniere_ligne = ActiveCell.Row
'Ecriture du fichier For Ligne = 1 To Derniere_ligne If Cells(Ligne, COLCODE).Value = 1 Then Enreg = Chr$(34) & _ Cells(Ligne, COLDEB).Value & _ Chr$(34) For Colonne = COLDEB + 1 To COLFIN Enreg = Enreg & Chr$(59) & Chr$(34) & _ Cells(Ligne, Colonne).Value & Chr$(34) Next Colonne Print #1, Enreg End If Next Ligne
Close #1 End Sub
"pratt" wrote:
Bonjour Pratt,
Petite précision sur ta structure : Est ce que chaque rubrique est sur une colonne d'une même feuille (Colonne 1 => Entité, Colonne 2 Civilité, etc.) et chaque ligne (à partir de la 2eme) contient une personne?
Si oui et si j'ai bien compris ton besoin, il faut donc écrire une macro qui pour toutes tes lignes, teste la valeur du Code et si code = 1 écrive un enregistrement contenant toutes tes rubriques pour cette ligne.
Confirmes moi que c'est bien ça.
"pratt" wrote:
Oui , pour chaque ligne ou le code est à 1 on ecrit un enregistrement contenant toutes les rubriques ( sauf celle du code )
Bonjour
J'ai un fichier excel qui a la structure suivante
ENTITE civilite NOM Prenom Adresse cp Ville Courriel Code
Est-ce possible de faire une macro qui va generer un fichier dans lequel je retrouve ces rubriques simplement si la valeur de la rubrique code a la valeur 1 ??
Ce fichier me permettrait par la suite d'effectuer du publipostage avec word
merci
pratt
Voilà peut-être une solution (à essayer)
Public Sub Ecrit_fic() Const COLDEB = 1 'Contient le N° de la premiere colonne Const COLFIN = 8 'Contient le N° de la derniere colonne Const COLCODE = COLFIN + 1 ' Colonne CODE
Dim Fichier As String Dim Derniere_ligne As Integer Dim Ligne As Integer Dim Enreg As String
'Nom du fichier à écrire Fichier = InputBox("Nom du fichier à créer") Open Fichier For Output As #1
'Recherche de la dernière ligne de données ActiveCell.SpecialCells(xlLastCell).Activate Derniere_ligne = ActiveCell.Row
'Ecriture du fichier For Ligne = 1 To Derniere_ligne If Cells(Ligne, COLCODE).Value = 1 Then Enreg = Chr$(34) & _ Cells(Ligne, COLDEB).Value & _ Chr$(34) For Colonne = COLDEB + 1 To COLFIN Enreg = Enreg & Chr$(59) & Chr$(34) & _ Cells(Ligne, Colonne).Value & Chr$(34) Next Colonne Print #1, Enreg End If Next Ligne
Close #1 End Sub
"pratt" wrote:
Bonjour Pratt,
Petite précision sur ta structure : Est ce que chaque rubrique est sur une colonne d'une même feuille (Colonne 1 => Entité, Colonne 2 Civilité, etc.) et chaque ligne (à partir de la 2eme) contient une personne?
Si oui et si j'ai bien compris ton besoin, il faut donc écrire une macro qui pour toutes tes lignes, teste la valeur du Code et si code = 1 écrive un enregistrement contenant toutes tes rubriques pour cette ligne.
Confirmes moi que c'est bien ça.
"pratt" wrote:
Oui , pour chaque ligne ou le code est à 1 on ecrit un enregistrement contenant toutes les rubriques ( sauf celle du code )
Bonjour
J'ai un fichier excel qui a la structure suivante
ENTITE civilite NOM Prenom Adresse cp Ville Courriel Code
Est-ce possible de faire une macro qui va generer un fichier dans lequel je retrouve ces rubriques simplement si la valeur de la rubrique code a la valeur 1 ??
Ce fichier me permettrait par la suite d'effectuer du publipostage avec word
merci
merci je me lance !
Voilà peut-être une solution (à essayer)
Public Sub Ecrit_fic()
Const COLDEB = 1 'Contient le N° de la premiere colonne
Const COLFIN = 8 'Contient le N° de la derniere colonne
Const COLCODE = COLFIN + 1 ' Colonne CODE
Dim Fichier As String
Dim Derniere_ligne As Integer
Dim Ligne As Integer
Dim Enreg As String
'Nom du fichier à écrire
Fichier = InputBox("Nom du fichier à créer")
Open Fichier For Output As #1
'Recherche de la dernière ligne de données
ActiveCell.SpecialCells(xlLastCell).Activate
Derniere_ligne = ActiveCell.Row
'Ecriture du fichier
For Ligne = 1 To Derniere_ligne
If Cells(Ligne, COLCODE).Value = 1 Then
Enreg = Chr$(34) & _
Cells(Ligne, COLDEB).Value & _
Chr$(34)
For Colonne = COLDEB + 1 To COLFIN
Enreg = Enreg & Chr$(59) & Chr$(34) & _
Cells(Ligne, Colonne).Value & Chr$(34)
Next Colonne
Print #1, Enreg
End If
Next Ligne
Close #1
End Sub
"pratt" wrote:
Bonjour Pratt,
Petite précision sur ta structure :
Est ce que chaque rubrique est sur une colonne d'une même feuille (Colonne 1
=> Entité, Colonne 2 Civilité, etc.) et chaque ligne (à partir de la 2eme)
contient une personne?
Si oui et si j'ai bien compris ton besoin, il faut donc écrire une macro qui
pour toutes tes lignes, teste la valeur du Code et si code = 1 écrive un
enregistrement contenant toutes tes rubriques pour cette ligne.
Confirmes moi que c'est bien ça.
"pratt" wrote:
Oui , pour chaque ligne ou le code est à 1 on ecrit
un enregistrement contenant toutes les rubriques ( sauf celle du code )
Bonjour
J'ai un fichier excel qui a la structure suivante
ENTITE
civilite
NOM
Prenom
Adresse
cp
Ville
Courriel
Code
Est-ce possible de faire une macro qui va generer un fichier
dans lequel je retrouve ces rubriques simplement si la valeur
de la rubrique code a la valeur 1 ??
Ce fichier me permettrait par la suite d'effectuer du publipostage
avec word
Public Sub Ecrit_fic() Const COLDEB = 1 'Contient le N° de la premiere colonne Const COLFIN = 8 'Contient le N° de la derniere colonne Const COLCODE = COLFIN + 1 ' Colonne CODE
Dim Fichier As String Dim Derniere_ligne As Integer Dim Ligne As Integer Dim Enreg As String
'Nom du fichier à écrire Fichier = InputBox("Nom du fichier à créer") Open Fichier For Output As #1
'Recherche de la dernière ligne de données ActiveCell.SpecialCells(xlLastCell).Activate Derniere_ligne = ActiveCell.Row
'Ecriture du fichier For Ligne = 1 To Derniere_ligne If Cells(Ligne, COLCODE).Value = 1 Then Enreg = Chr$(34) & _ Cells(Ligne, COLDEB).Value & _ Chr$(34) For Colonne = COLDEB + 1 To COLFIN Enreg = Enreg & Chr$(59) & Chr$(34) & _ Cells(Ligne, Colonne).Value & Chr$(34) Next Colonne Print #1, Enreg End If Next Ligne
Close #1 End Sub
"pratt" wrote:
Bonjour Pratt,
Petite précision sur ta structure : Est ce que chaque rubrique est sur une colonne d'une même feuille (Colonne 1 => Entité, Colonne 2 Civilité, etc.) et chaque ligne (à partir de la 2eme) contient une personne?
Si oui et si j'ai bien compris ton besoin, il faut donc écrire une macro qui pour toutes tes lignes, teste la valeur du Code et si code = 1 écrive un enregistrement contenant toutes tes rubriques pour cette ligne.
Confirmes moi que c'est bien ça.
"pratt" wrote:
Oui , pour chaque ligne ou le code est à 1 on ecrit un enregistrement contenant toutes les rubriques ( sauf celle du code )
Bonjour
J'ai un fichier excel qui a la structure suivante
ENTITE civilite NOM Prenom Adresse cp Ville Courriel Code
Est-ce possible de faire une macro qui va generer un fichier dans lequel je retrouve ces rubriques simplement si la valeur de la rubrique code a la valeur 1 ??
Ce fichier me permettrait par la suite d'effectuer du publipostage avec word
