Importation & Remplacement des Données

an@s · 28 Novembre 2017

Bonjour à tous,

Je me permets de solliciter votre aide après une petite absence.
en fait, je cherche à mettre un code dans la feuille RECAP du fichier Compte client qui fait ceci :

importer les données du fichier 210 et les remplacer par ceux qui se trouvent dans l'onglet 210 du fichier compte client en tant que valeur.

importer les données du fichier 211 et les rajouter dans un nouveau onglet qui sera nommé 211 aussi après 210 dans le fichier compte client. (on peut avoir d'autres fichiers 212, 500 ect. donc on doit importer tout les fichiers qui se trouvent dans le même dossier c'est à dire le code doit être variable)

après importation il faut mettre le tableau de l'onglet RECAP à jour de cette manière:

je donne un exemple il faut mettre dans la colonne A6 le nom qui se trouve dans C3 de 210
puis mettre dans B12 le chiffre qui se trouve M7 de l'onglet 210.
ensuite copier les données des colonnes J, L, O, P de l'onglet 210 dans les colonnes C, D, E, F de la feuille RECAP à condition si les données des colonnes O, P de l'onglet 210 sont <> 0
puis les colonnes G, H, I, J, K garderont les mêmes formules.
puis il faut rajouter une ligne sous total colorée en jaune comme la ligne 17 ou il y aura les sommes automatiquement.
nous devons faire la même chose pour toutes les feuilles qui sont après l'onglet RECAP.

en attendant je vous remercie pour votre aide.

amicalement
AN@S

an@s · 29 Novembre 2017

Bonjour,
est ce que quelqu'un peut m'aider s'il vous plait

vgendron · 29 Novembre 2017

Hello
voici déjà un bout de code pour te permettre d'importer un fichier, de copier sa feuille et refermer le fichier

VB:

Sub ImporterFichier()

nb = ActiveWorkbook.Sheets.Count 'compte le nombre de feuilles dans le classeur actif (Compte Client)
FichierToImport = Application.GetOpenFilename("Excel Files (*.xlsx),*.xlsx") 'ouvre la boite de dialogue pour sélectionner le fichier à importer

If FichierToImport <> False Then
    Workbooks.Open Filename:=FichierToImport 'ouvre le fichier
    Set ws = ActiveWorkbook
    ActiveSheet.Copy after:=Workbooks("Compte client.xlsx").Sheets(nb) 'copie la feuille en fin de classeur
    ws.Close  'ferme le fichier
End If

End Sub

an@s · 30 Novembre 2017

Bonsoir vgendron,
merci pour votre réponse mais je crois que vous n'avez pas compris ma problématique et ma demande.

vgendron · 30 Novembre 2017

bonjour...
ca me semble un peu court comme réponse...

importer les données du fichier 211 et les rajouter dans un nouveau onglet qui sera nommé 211 aussi après 210 dans le fichier compte client.

c'est exactement ce que fait ce BOUT de code....sauf que c'est toi qui choisis le fichier à importer lorsque la fenetre s'ouvre

an@s · 30 Novembre 2017

Bonjour,
je ne dois pas choisir le fichier à importer.
ça doit se faire automatiquement comme j'ai expliqué dans mon premier message

Importation & Remplacement des Données

an@s

XLDnaute Occasionnel

Pièces jointes

an@s

XLDnaute Occasionnel

vgendron

XLDnaute Barbatruc

an@s

XLDnaute Occasionnel

vgendron

XLDnaute Barbatruc

an@s

XLDnaute Occasionnel

Discussions similaires