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

Copie plage(variable) sur un classeur fermer

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

laurent950

XLDnaute Barbatruc
Bonsoir le Forum,

Pour version 2007
(si cela peux aussi être compaible 2003 ou 2010)

Voila j’ai une macro qui fonctionne pour la copie d’une plage d’un classeur fermer et qui colle les valeurs sur la feuille du classeur ouvert.

J’aimerais donner une plage variable pour la copie dans la feuille (Villes) du classeur fermé avec l’option = .end(xlup).row

Comme ceci :
Cellule = Range(Cells(2, 1), Cells(65535, 10).End(xlUp)).Select

Car actuellement c’est comme cela :
Cellule = "A2:C10"

= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =

Pour la copie dans la feuille de destination des valeur copier du fichier ouvert sur la feuille de destination, j’aurais aimer mettre à la suite de valeur déjà remplis pour compléter

Comme ceci :
Range(Cells(65536, 1).end(xlup)+1, Cells(65535, 1).End(xlUp)+1).Select

Car actuellement c’est comme cela :
Range("C26").CopyFromRecordset Rst



Pour Info la macro est dans le classeur : ClasseurDestination.xls (Ou seront coller les valeurs)

Pour le test le classeur fermer s’appelle : ClasseurFermer.xlsm (les valeurs à copier « A2 :C10 »

Je vous remercie par avance pour votre aide

Laurent
 

Pièces jointes

Dernière édition:
Re : Copie plage(variable) sur un classeur fermer

Bonjour,

Code:
Sub RecupTableurSQL()
  'Microsoft ActiveX DataObject doit être coché
  répertoire = ThisWorkbook.Path & "\"
  Dim rs As ADODB.Recordset
  Set cnn = New ADODB.Connection
  cnn.Open "DRIVER={Microsoft Excel Driver (*.xls)};DBQ=" & répertoire & "classeurferme.xls"
  Set rs = cnn.Execute("SELECT ref,villes,clientlivré FROM MaBD where ref<>''")
  [A2].CopyFromRecordset rs
End Sub

un nom de champ MaBD =$A$2:$C$10000 a été défini.

ADO

JB
 
Dernière édition:
- 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
3
Affichages
213
Réponses
3
Affichages
307
Réponses
5
Affichages
836
Réponses
7
Affichages
409
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…