probleme de transfert

  • Initiateur de la discussion Initiateur de la discussion nico74
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

nico74

XLDnaute Nouveau
bonjour a tous ,
je vous expose mon probleme
j ai des fichier exel qui me liste les equipements de climatisation ou de chauffage dans un batiment ,
je souhaite integrer c est equipement dans une gmao mais je dois les mettre sous une autre forme
j aimerai aller chercher les colonnes qui m interesse dans le fichier equipement et les envoyé automatiquement sous le fichier d integration dans la gmao

si quelqu un a une idee je suis pas un pro d exel et j avoue etre dans la purée la
 
Re : probleme de transfert

Bonjour à tous,

Bienvenue sur XLD

Une lecture assidue de la Charte préconise la dépose d'un fichier sans données confidentielles et le plus proche possible du fichier à traiter.

A+ à tous
 
Re : probleme de transfert

voila les deux fichier
fichier de base PF0033
fichier ou je dois envoyer les info template
 

Pièces jointes

Re : probleme de transfert

Bonjour à tous,

Que doit-on faire avec les cellules fusionnées (très mal supportée par un code) :

Capture 1.png

A+ à tous
 

Pièces jointes

  • Capture 1.png
    Capture 1.png
    2.9 KB · Affichages: 63
  • Capture 1.png
    Capture 1.png
    2.9 KB · Affichages: 66
Re : probleme de transfert

Bonjour à tous,

Si j'ai bien compris la demande...

Peux-tu essayer avec les deux fichier joints (placés dans le même répertoire et renommer le fichier Template xxxxxxxx.xls en Template.xls) ?

Utilisation de :

VB:
Option Explicit
Sub Transfert()
    Dim DerL%
    DerL = Range("B65000").End(xlUp).Row
    Workbooks.Open Filename:=ThisWorkbook.Path & "\Template.xls"
    Windows("PF0033-1.xls").Activate
    Range("B13:AK" & DerL).Select
    Selection.Copy
    Windows("Template.xls").Activate
    Range("B13").Select
    Selection.PasteSpecial Paste:=xlPasteValues
    Range("B9").Select
    Application.DisplayAlerts = 0
    ActiveWorkbook.Save
    ActiveWindow.Close
    Application.DisplayAlerts = 1
    Range("B9").Select
End Sub

A+ à tous
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
19
Affichages
1 K
Réponses
33
Affichages
3 K
Retour