Bonjour à tous,
Voila mon problème :
J'utilise deux fichiers excel :
1) Premier fichier : un fichier qui sert de formulaire (numero client, nom, prenom, adresse, etc..)
2) Un deuxième fichier qui sert a regroupé les informations.
Notre premier fichier s'appellera "Formulaire.xls" et le deuxieme "Control.xls" avec pour ce dernier une feuille nommée "tableau" pour recevoir les info.
Dans le fichiers Control, on prendra la colonne A (donc A1 pour le titre) pour recevoir les numero client. Le numero de client est pris dans la cellule B1 du fichier formulaire. Vu que j'imprime chaque fiche client (formulaire.xls) mes deux fichiers sont ouverts en meme temps (j'importe et j'imprime).
Voici ma macro :
Sub Export()
'Declaration des variables
Dim num_ligne As Long
'Position de la derniere ligne
num_ligne=Workbooks("Control.xls").Sheets("tableau").Range("a5536").End(xlUp).Row
num_ligne = num_ligne + 1
'Copy du numéro client
Worksheets("Feuil1").Range("b1").Copy _
Destination:=Workbooks("control.xls").Worksheets("Tableau").Range("a" & num_ligne)
End Sub
Message d'erreur :
Pas e message d'erreur car rien ne se passe ! Tout fonctionne bien si je copie une cellule fixe vers une cellule fixe (ex : B1 vers A2)
Quelqu'un à une idée ?
Merci d'avance
Voila mon problème :
J'utilise deux fichiers excel :
1) Premier fichier : un fichier qui sert de formulaire (numero client, nom, prenom, adresse, etc..)
2) Un deuxième fichier qui sert a regroupé les informations.
Notre premier fichier s'appellera "Formulaire.xls" et le deuxieme "Control.xls" avec pour ce dernier une feuille nommée "tableau" pour recevoir les info.
Dans le fichiers Control, on prendra la colonne A (donc A1 pour le titre) pour recevoir les numero client. Le numero de client est pris dans la cellule B1 du fichier formulaire. Vu que j'imprime chaque fiche client (formulaire.xls) mes deux fichiers sont ouverts en meme temps (j'importe et j'imprime).
Voici ma macro :
Sub Export()
'Declaration des variables
Dim num_ligne As Long
'Position de la derniere ligne
num_ligne=Workbooks("Control.xls").Sheets("tableau").Range("a5536").End(xlUp).Row
num_ligne = num_ligne + 1
'Copy du numéro client
Worksheets("Feuil1").Range("b1").Copy _
Destination:=Workbooks("control.xls").Worksheets("Tableau").Range("a" & num_ligne)
End Sub
Message d'erreur :
Pas e message d'erreur car rien ne se passe ! Tout fonctionne bien si je copie une cellule fixe vers une cellule fixe (ex : B1 vers A2)
Quelqu'un à une idée ?
Merci d'avance
Dernière édition: