Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Copier Coller fichiers excel vers un autre avec noms des variables

  • Initiateur de la discussion Initiateur de la discussion Oliver77
  • 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 !

Oliver77

XLDnaute Occasionnel
Salut à tous,
Je me permets de remettre à l’ordre du jour une macro proposée par ROBERT dans un fil daté du 12/07/2012. Bricoleur à mes heures perdues, j’ai tenté en vain de l’adapter à un fichier perso.
En effet, je souhaite remplacer les combobox « Classeur Cible » et « Onglet Cible » par un bouton mais je peine à trouver le bon code.
Merci par avance pour vos propositions.
Oliver77

Mon fichier => Version_v02
Le fichier récupéré sur le forum => Holeshotman_v01

https://www.excel-downloads.com/thr...utre-avec-noms-des-fichiers-variables.188528/
 

Pièces jointes

Re : Copier Coller fichiers excel vers un autre avec noms des variables

Bonjour Oliver, bonjour le forum,

En pièce jointe ton fichier modifié avec un module de classe (j'ai enfin compris comment ça marchait) pour les trois boutons :
 

Pièces jointes

Re : Copier Coller fichiers excel vers un autre avec noms des variables

Bonjour le forum !

Bonjour Robert, Merci beaucoup pour ton intervention.

Après le message « voulez vous conserver les anciennes données… » si je répondais « OUI » alors j’avais « erreur d’exécution 1004 ». J’ai donc ajouté « Exit Sub » après « Else ».

Merci encore,
Oliver77😎
 
Re : Copier Coller fichiers excel vers un autre avec noms des variables

Bonjour Oliver, bonjour le forum,

Dans ce cas, autant supprimer le message et sa condition, si tu remplaces systématiquement les anciennes données. Un fichier source en pièce jointe et plus d'explications auraient permis de mieux affiner le code :
Code:
Public WithEvents Bt As MSForms.CommandButton

Private Sub Bt_Click()
Dim x As Byte 'déclare la variable x (incrément)
Dim dest As Range 'déclare la variable dest (cellule de DESTination)

For x = 1 To 2 'boucle sur les 2 comboboxes
    If UserForm1.Controls("ComboBox" & x).Value = "" Then 'condition : si la combobox est vide
        UserForm1.Controls("ComboBox" & x).SetFocus 'place le curseur dans la combobox
        MsgBox "Vous devez renseigner ce champ !" 'message
        Exit Sub 'sort de la procédure
    End If 'fin de la condition
Next x 'prochaine combobox de la boucle
Set cs = Workbooks(UserForm1.ComboBox1.Value) 'définit le classeur source
Set os = cs.Sheets(UserForm1.ComboBox2.Value) 'définit l'onglet source
Set oc = Sheets(Bt.Caption) 'définit l'onglet cible
oc.Range("A1").CurrentRegion.Clear 'supprime les anciennes données
Set dest = oc.Range("A1") 'définit la cellule de destination dest
os.UsedRange.Copy dest 'copie et colle les donnés dans dest
Unload UserForm1 'vide et ferme l'UserForm
End Sub
 
Re : Copier Coller fichiers excel vers un autre avec noms des variables

Bonjour le forum,

Salut Robert, merci pour cette seconde proposition. Je t’avoue ne pas l’avoir testée pour le moment.

Je n’ai pas mis le fichier source pour ne pas semer le trouble car je suis censé récupérer des données provenant de divers logiciels. De plus, ils sont soit au format CSV, TXT ou ASCII.

Je sais ce que je veux mais le traduire par écrit n’est pas toujours facile, vraiment désolé.
Les deux solutions que tu m’apportes me conviennent et je suis très content.

Grâce à ta contribution, je considère que mes vacances commencent très bien.
Comme quoi, pour moi passer de bonnes vacances c’est aussi consulter régulièrement Excel Download.

Oliver77
 
- 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
1
Affichages
287
Réponses
6
Affichages
842
Réponses
11
Affichages
934
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…