copier coller avec office Fermé

Question

Bonjour, 

Je travail beaucoup avec Word et Excel, en faisant des taches de copier/coller répétitives. 
je voudrais savoir si il existe un moyen d'affecter des éléments du presse papier a des touches du clavier, pour eviter d'avoir à faire ctrl c / ctrl v à chaque fois. 
Merci

m@rina · Answer

Bonjour,

Je ne comprends pas ta question... Qu'entends tu par "des éléments du presse papier" ??? Utilises-tu le presse papier d'Office ?

m@rina

lenormand49 · Answer

Non
en fait je me sert d'une page word comme presse papier (toute les phrases que j'utilise y son ecrites ,je les copies et je les colle quand j'en ai besoin)

m@rina · Answer

Je pense que ta solution passe par le presse-papier Office. J'ai tout expliqué ici :
http://faqword.fr/...

Sinon, s'il s'agit uniquement de Word, il faut utiliser les insertions automatiques, c'est bien plus pratique.

m@rina

lenormand49 · Answer

Non ça ne marche pas car j'utilise Word 2000 et en plus je copie sur Word et je colle dans une base de donnée sur internet explorer 6
En réfléchissant un peu je me suis dit que ça devait etre réalisable avec des macros (une macro pour chaque phrase à copier), mais les macros pour moi c'est du chinois ...

m@rina · Answer

Bonjour,

Ah oui, tu n'avais pas tout dit !!! :D

Non, les macros, c'est du VBA, et ça ne fonctionne qu'avec Office, pas avec IE.

m@rina

lenormand49 · Answer

Pourtant il doit y avoir une solution car sur EXCEL j'ai déja une macro ("un bouton") qui me permet de copier automatiquement des info depuis EXcel vers ma base de donnée sur IE
mais c'est pas moi qui l'ai fabriqué alors je sais pas comment ça marche ....

m@rina · Answer

Tu peux donner le code ?
Alt+F11

et tu nous le copies colles...

m@rina

lenormand49 · Answer

Salut de retour de W.E. Quand je tape ALT+F11 une fenetre Microsoft visual basic -perso.XLS s'ouvre. il y à 4 sous fenetres dont voici les contenus (ça va etre long ...) perso.XLS - Module1 (Code) Sub Bouton_N1() 'Macro permettant l'ouverture d'un client dans N1 a partir d'une REFERENCE, d'un PDL ou d'un TELEPHONE existant dans une cellule Excel Version$ = "Bouton N1 V61130-1 Denis ARNAUD - Assistance au 0825 890 304 - EGD-VENDEE-PEC-GO" Dim centre(200), cc$(200) '¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤ ' PARAMETRAGE DE LA LISTE DES CODES CENTRES UTILISABLES POUR CE BOUTON : ' (classement par ordre de priorité mais insignifiant en temps de réponse du serveur) '¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤ centre(1) = 143 ' (Vendée) centre(2) = 142 ' (Loire Atlantique) centre(3) = 93 ' (Anjou) centre(4) = 148 ' (Morbihen) centre(5) = 146 ' (Iroise) centre(6) = 91 ' (Sarthe) centre(7) = 147 ' (Cornouaille) centre(8) = 92 ' (Mayenne) centre(9) = 144 ' (Ille & Vilaine) centre(10) = 145 ' (Cote d'Armor) centre(11) = 152 ' (Charente Maritime) centre(12) = 151 ' (Val de Charente) centre(13) = 154 ' (Vienne & Sevre) 'etc... '¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤ ' CONTROLE SI REFERENCE ou PDL ou TELEPHONE VALIDE '¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤ 'SendKeys "%{tab}", 1 ' agrandi la fenêtre précédente 'Application.Wait Now + TimeValue("00:00:02") On Error Resume Next ref$ = ActiveCell.Value On Error GoTo 0 If Len(ref$) = 14 And (Not IsNumeric(Mid$(ref$, 3, 1)) Or Mid$(ref$, 3, 1) = " ") Then ref$ = Left$(ref$, 2) + Mid$(ref$, 4, 2) + Mid$(ref$, 7, 2) + Mid$(ref$, 10, 2) + Right$(ref$, 2) 'téléphone avec des espaces si nécessaire If Len(ref$) = 15 Then ref$ = Left$(ref$, 3) + Mid$(ref$, 5, 3) + Mid$(ref$, 9, 3) + Right$(ref$, 3) 'ref avec cle suppression des espaces si nécessaire If Len(ref$) = 11 Then ref$ = Left$(ref$, 3) + Mid$(ref$, 5, 3) + Mid$(ref$, 9, 3) 'ref sans cle suppression des espaces si nécessaire If Len(ref$) = 9 Then ref$ = ref$ + "*" erreur$ = "La valeur " + ref$ + " n'est pas une référence ni un PDL !" If ref$ = "" Then MsgBox "Sélectionnez auparavant la cellule contenant la référence.", vbInformation, Version$: Exit Sub 'If Len(ref$) = 10 And Right$(ref$, 1) <> "*" Then MsgBox erreur$, vbInformation: Exit Sub If Len(ref$) = 12 And Not IsNumeric(ref$) Then MsgBox erreur$, vbInformation, Version$: Exit Sub If Len(ref$) = 14 And Not IsNumeric(ref$) Then MsgBox "La valeur " + ref$ + " n'est pas une REFERENCE, ni un PDL, ni un TELEPHONE !", vbInformation, Version$: Exit Sub If Len(ref$) <> 10 And Len(ref$) <> 12 And Len(ref$) <> 14 Then MsgBox "La valeur " + ref$ + " n'est pas une REFERENCE ni un PDL, ni un TELEPHONE !", vbInformation, Version$: Exit Sub '¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤ ' DETECTION DE LA FENETRE ACTIVE N1 '¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤ 'nb centre nbc = 1 While centre(nbc) <> 0 cc$(nbc) = Chr$(Int(centre(nbc) / 10) + 64) + Chr$(centre(nbc) - ((Int(centre(nbc) / 10)) * 10) + 64) 'Attribution des codes Centres (NIVEAU1 - xx) nbc = nbc + 1 Wend nbc = nbc - 1 '-------------------------------------------- début: On Error GoTo erreur_fenetre ok = 0 If ok = 0 Then f = 6: ok = 1 fenetre$ = "NIVEAU1 (n° 683) -- Dialogue de page Web" AppActivate fenetre$ End If If ok = 1 Then GoTo trouvé If ok = 0 Then f = 3: ok = 1 fenetre$ = "Détail d'un contact -- Dialogue de page Web" AppActivate fenetre$ End If If ok = 1 Then GoTo trouvé If ok = 0 Then f = 4: ok = 1 fenetre$ = "Recherche Client -- Dialogue de page Web" AppActivate fenetre$ End If If ok = 1 Then GoTo trouvé If ok = 0 Then f = 5: ok = 1 fenetre$ = "NIVEAU1 (n° 1049) -- Dialogue de page Web" AppActivate fenetre$ End If If ok = 1 Then GoTo trouvé If ok = 0 Then For n = 1 To nbc 'parcours les codes Centres f = 1: ok = 1 fenetre$ = "NIVEAU1 - " + cc$(n) + " - Environnement client - Microsoft Internet Explorer fourni par EDF Gaz de France" AppActivate fenetre$ If ok = 1 Then Exit For Next n End If If ok = 1 Then GoTo trouvé If ok = 0 Then For n = 1 To nbc 'parcours les codes Centres f = 2: ok = 1 fenetre$ = "NIVEAU1 - " + cc$(n) + " - Environnement tgc - Microsoft Internet Explorer fourni par EDF Gaz de France" AppActivate fenetre$ If ok = 1 Then Exit For Next n End If If ok = 1 Then GoTo trouvé On Error Resume Next AppActivate "Microsoft Excel" AppActivate "Microsoft Excel - " + ActiveWorkbook.Name Beep r = MsgBox("Impossible d'accéder à N1 : Vérifiez si N1 est ouvert sur une fenêtre agrandie et adéquate..." + Chr$(10) + Chr$(10) + "Voulez plus d'information sur la résolution de ce problème ? (Info sur la configuration recommandée)", vbYesNo + vbQuestion, Version$) If r = 6 Then m$ = "Recommandation :" + Chr$(10) + Chr$(10) m$ = m$ + " La fenêtre N1 ne doit pas être réduite. Aussi, vous devez impérativement utilisez la barre des tâches" + Chr$(10) m$ = m$ + " (ou Alt+Tab) pour basculer de N1 à Excel." + Chr$(10) + Chr$(10) + Chr$(10) + Chr$(10) m$ = m$ + "La configuration du menu de N1 :" + Chr$(10) + Chr$(10) m$ = m$ + " Choisissez le menu : Fichier / Préférences de N1" + Chr$(10) + Chr$(10) m$ = m$ + " - La sélection Automatique doit être cochée." + Chr$(10) m$ = m$ + " - L'option Position du curseur à l'ouverture doit être reglé sur Référence." MsgBox m$, vbInformation, Version$ m$ = "Liste des fenêtres N1 reconnues et gérées par le Bouton N1 :" + Chr$(10) + Chr$(10) m$ = m$ + "- NIVEAU1 - xx - Environnement client - Microsoft Internet Explorer fourni par EDF Gaz de France" + Chr$(10) m$ = m$ + "- NIVEAU1 - xx - Environnement tgc - Microsoft Internet Explorer fourni par EDF Gaz de France" + Chr$(10) m$ = m$ + "- Détail d'un contact -- Dialogue de page Web" + Chr$(10) m$ = m$ + "- Recherche Client -- Dialogue de page Web" + Chr$(10) m$ = m$ + "- NIVEAU1 (n° 1049) -- Dialogue de page Web" + Chr$(10) m$ = m$ + "- NIVEAU1 (n° 683) -- Dialogue de page Web" MsgBox m$, vbInformation, Version$ m$ = "Liste des codes Centres paramétrés pour ce bouton N1 :" + Chr$(10) + Chr$(10) For n = 1 To nbc m$ = m$ + Str$(centre(n)) + " -> Correspondance fenêtre N1 : ...NIVEAU1 - " + cc$(n) + "..." + Chr$(10) Next n m$ = m$ + Chr$(10) + "Si votre code Centre n'apparait pas ci-dessus : le bouton est mal configuré dans la macro..." MsgBox m$, vbInformation, Version$ End If Exit Sub '-------------------- erreur_fenetre: ok = 0 Beep Resume Next '¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤ ' PILOTAGE DE N1 '¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤ trouvé: '-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- If f = 1 Then ' fenetre$ = "NIVEAU1 - Nx - Environnement client - Microsoft Internet Explorer fourni par EDF Gaz de France" Application.StatusBar = "Recherche Client -- Dialogue de page Web" SendKeys "%fr", 1 SendKeys "~", 1 sec = 2 fenetre$ = "Recherche Client -- Dialogue de page Web" On Error GoTo attente_ouverture tentative1: AppActivate fenetre$ Application.Wait Now + TimeValue("00:00:02") If Len(ref$) = 14 Then SendKeys "{tab}", 1 If Len(ref$) = 10 And Right$(ref$, 1) <> "*" Then For x = 1 To 3: SendKeys "{tab}", 1: Next x ': Application.Wait Now + TimeValue("00:00:01"): SendKeys ref$, 1 SendKeys "~", 1 Application.StatusBar = "Recherche Client -- Dialogue de page Web -> TERMINE" Exit Sub End If '-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- If f = 2 Then ' fenetre$ = "NIVEAU1 - Nx - Environnement tgc - Microsoft Internet Explorer fourni par EDF Gaz de France" Application.StatusBar = "NIVEAU1 - " & cc$(n) & " - Environnement tgc - Microsoft Internet Explorer fourni par EDF Gaz de France" AppActivate "Microsoft Excel - " + ActiveWorkbook.Name If Len(ref$) = 14 Then MsgBox "Environnement TGC détecté..." + Chr$(10) + "La TGC ne permet pas d'ouvrir le PDL " + ref$ + ", utiliser plutôt l'environnement Niveau1.", vbExclamation: Exit Sub If Len(ref$) = 10 And IsNumeric(ref$) Then MsgBox "Environnement TGC détecté..." + Chr$(10) + "La TGC ne permet pas d'ouvrir un PDL ou TELEPHONE (" + ref$ + "), utiliser plutôt l'environnement Niveau1.", vbExclamation, Version$: Exit Sub If Len(ref$) = 12 Then r = MsgBox("Environnement TGC détecté..." + Chr$(10) + "confirmer la commande FS/" + ref$ + " ?", vbQuestion + vbYesNo, Version$) If Len(ref$) = 10 And Right$(ref$, 1) = "*" Then ref$ = Left$(ref$, 9) + "/an": r = MsgBox("Environnement TGC détecté..." + Chr$(10) + "confirmer la commande FS/" + ref$ + " ?", vbQuestion + vbYesNo, Version$) AppActivate fenetre$ If r = 6 Then Application.Wait Now + TimeValue("00:00:02") SendKeys "{tab 6}", 1 SendKeys "{down}", 1 SendKeys "+{left 20}", 1 SendKeys "FS/" + ref$ + "~", 1 Application.Wait Now + TimeValue("00:00:04") ' -----------------> 'Bascule de N1 vers TGC SendKeys "%m", 1 SendKeys "{F9}", 1 End If Application.StatusBar = "NIVEAU1 - " & cc$(n) & " - Environnement tgc - Microsoft Internet Explorer fourni par EDF Gaz de France -> TERMINE" Exit Sub End If '-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- If f = 3 Then ' fenetre$ = "Détail d'un contact -- Dialogue de page Web" Application.StatusBar = "Détail d'un contact -- Dialogue de page Web" SendKeys "{ESC}", 1 Application.Wait Now + TimeValue("00:00:02") Application.StatusBar = "Détail d'un contact -- Dialogue de page Web -> TERMINE" End If If f = 3 Then GoTo début '-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- If f = 4 Then 'fenetre$ = "Recherche Client -- Dialogue de page Web" Application.StatusBar = "Recherche Client -- Dialogue de page Web" If Len(ref$) = 14 Then SendKeys "{tab}", 1 If Len(ref$) = 10 And Right$(ref$, 1) <> "*" Then Application.Wait Now + TimeValue("00:00:01"): For x = 1 To 3: SendKeys "{tab}", 1: Application.Wait Now + TimeValue("00:00:01"): Next x SendKeys ref$, 1 SendKeys "~", 1 Application.StatusBar = "Recherche Client -- Dialogue de page Web -> TERMINE" Exit Sub End If '-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- If f = 5 Then 'fenetre$ = "NIVEAU1 (n° 1049) -- Dialogue de page Web" Application.StatusBar = "NIVEAU1 (n° 1049) -- Dialogue de page Web" SendKeys "~", 1 Application.Wait Now + TimeValue("00:00:03") Application.StatusBar = "NIVEAU1 (n° 1049) -- Dialogue de page Web -> TERMINE" End If If f = 5 Then GoTo début '-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- If f = 6 Then 'fenetre$ = "NIVEAU1 (n° 683) -- Dialogue de page Web" Application.StatusBar = "NIVEAU1 (n° 683) -- Dialogue de page Web" Application.Wait Now + TimeValue("00:00:01") SendKeys "~", 1 Application.Wait Now + TimeValue("00:00:02") Application.StatusBar = "NIVEAU1 (n° 683) -- Dialogue de page Web -> TERMINE" End If If f = 6 Then GoTo début '-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- 'Vous pouvez poursuivre des automatismes complémentaires en saisissant le code supplémentaire ci-dessous : '(ex : Création / Modif / Suppression d'ac, Création de courrier, etc...) Exit Sub '¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤ ' GESTION DU TEMPS DE REPONSE DU SERVEUR '¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤ attente_ouverture: Application.StatusBar = "ATTENTE OUVERTURE" + Str$(sec) + " s : " + fenetre$ Application.Wait Now + TimeValue("00:00:01"): sec = sec - 1 If sec < 0 Then ActiveWindow.WindowState = xlMaximized AppActivate "Microsoft Excel - " + ActiveWorkbook.Name Beep Application.StatusBar = "L'environnement N1 a été détecté mais impossible de le piloter..." MsgBox "L'environnement N1 a été détecté mais impossible de le piloter..." + Chr$(10) + Chr$(10) + "Causes possibles :" + Chr$(10) + Chr$(10) + "- Un client est déja ouvert." + Chr$(10) + "- La fenêtre N1 n'est pas en position agrandie (vous devez utilisez + pour basculer de N1 vers Excel)." + Chr$(10) + "- Serveur trop lent.", vbInformation, Version$ On Error Resume Next 'AppActivate fenetre$ Exit Sub End If If f = 1 Then Resume tentative1 '-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- End Sub Djnda.xls - Module1 (Code) Sub Macro1() ' ' Macro1 Macro ' Macro enregistrée le 09/04/2008 par Jean-Pierre MARTIN ' Sheets("Djnda").Activate Application.DisplayAlerts = False ActiveWindow.SelectedSheets.Delete Application.DisplayAlerts = True Sheets("Menu").Select Sheets.Add Sheets(1).Select Sheets(1).Name = "Djnda" Range("A1").Select ' Workbooks.Open Filename:= _ "Q:\CPCR\OPTIRDV\DJNDANB.XLS" Windows("DJNDANB.XLS").Activate Range("A1").Select Columns("A:BL").Select Selection.Copy Windows("Djnda.xls").Activate Range("A1").Select ActiveSheet.Paste Range("A1").Select Selection.End(xlDown).Select ActiveCell.Offset(rowOffset:=1, columnOffset:=0).Activate Application.CutCopyMode = False Windows("DJNDANB.XLS").Activate ActiveWorkbook.Close Workbooks.Open Filename:= _ "Q:\CPCR\OPTIRDV\DJNDAIB.XLS" Windows("DJNDAIB.XLS").Activate Range("A2").Select 'ActiveCell.SpecialCells(xlLastCell).Select Range("A2:BL20000").Select Selection.Copy Windows("Djnda.xls").Activate Range("A2").Select Selection.End(xlDown).Select ActiveCell.Offset(rowOffset:=1, columnOffset:=0).Activate ActiveSheet.Paste Application.CutCopyMode = False Windows("DJNDAIB.XLS").Activate ActiveWorkbook.Close Workbooks.Open Filename:= _ "Q:\CPCR\OPTIRDV\DJNDAIC.XLS" Windows("DJNDAIC.XLS").Activate Range("A2").Select 'ActiveCell.SpecialCells(xlLastCell).Select Range("A2:BL20000").Select Selection.Copy Windows("Djnda.xls").Activate Range("A2").Select Selection.End(xlDown).Select ActiveCell.Offset(rowOffset:=1, columnOffset:=0).Activate ActiveSheet.Paste Application.CutCopyMode = False Windows("DJNDAIC.XLS").Activate ActiveWorkbook.Close Workbooks.Open Filename:= _ "Q:\CPCR\OPTIRDV\DJNDAIA.XLS" Windows("DJNDAIA.XLS").Activate Range("A2").Select 'ActiveCell.SpecialCells(xlLastCell).Select Range("A2:BL20000").Select Selection.Copy Windows("Djnda.xls").Activate Range("A2").Select Selection.End(xlDown).Select ActiveCell.Offset(rowOffset:=1, columnOffset:=0).Activate ActiveSheet.Paste Application.CutCopyMode = False Windows("DJNDAIA.XLS").Activate ActiveWorkbook.Close Workbooks.Open Filename:= _ "Q:\CPCR\OPTIRDV\DJNDANC.XLS" Windows("DJNDANC.XLS").Activate Range("A2").Select 'ActiveCell.SpecialCells(xlLastCell).Select Range("A2:BL20000").Select Selection.Copy Windows("Djnda.xls").Activate Range("A2").Select Selection.End(xlDown).Select ActiveCell.Offset(rowOffset:=1, columnOffset:=0).Activate ActiveSheet.Paste Application.CutCopyMode = False Windows("DJNDANC.XLS").Activate ActiveWorkbook.Close Range("A1").Select Columns("C:C").Select Selection.Insert Shift:=xlToRight Range("C2").Select ActiveCell.FormulaR1C1 = "=RIGHT(RC[-1],2)" Range("C2").Select Selection.AutoFill Destination:=Range("C2:C21362"), Type:=xlFillDefault Range("C2:C21362").Select ActiveWindow.LargeScroll Down:=-33 ActiveWindow.ScrollRow = 1 Columns("F:F").Select Selection.Insert Shift:=xlToRight Range("F2").Select ActiveCell.FormulaR1C1 = "=RC[-5]&RC[-3]&RC[-2]&RC[-1]" Range("F3").Select Columns("F:F").EntireColumn.AutoFit Range("F2").Select Selection.AutoFill Destination:=Range("F2:F21983"), Type:=xlFillDefault Range("F2:F21983").Select ActiveWindow.ScrollRow = 1 Columns("F:F").Select Selection.Copy Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False Columns("A:E").Select Range("E1").Activate Application.CutCopyMode = False Selection.Delete Shift:=xlToLeft Range("A1").Select ActiveCell.FormulaR1C1 = "REF" Range("A2").Select Sheets("Menu").Select Range("A2").Select End Sub Djnda.xls - Module 13 (Code) Sub Filtre_L9_de_la_veille() ' ' Filtre_L9_de_la_veille Macro ' Macro enregistrée le 13/06/2008 par KIC22S ' ' Sheets("Djnda").Select Rows("2:2").Select Selection.Insert Shift:=xlDown Sheets("Menu").Select Rows("33:33").Select Selection.Copy Sheets("Djnda").Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False ActiveWindow.LargeScroll ToRight:=1 Application.CutCopyMode = False Cells.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("N1:V2") _ , Unique:=False Rows("2:2").Select Range("K2").Activate Selection.Delete Shift:=xlUp ActiveWindow.LargeScroll ToRight:=-1 Range("A1").Select Sheets("Menu").Select Range("A2").Select End Sub Djnda.xls Module14 (Code) Sub Suppression_AC_agents() ' ' Suppression_AC_agents Macro ' Macro enregistrée le 13/06/2008 par KIC22S ' ' Rows("2:41").Select Selection.Copy Sheets("Djnda").Select Rows("2:2").Select Selection.Insert Shift:=xlDown Range("I2").Select Application.CutCopyMode = False Range("A1:BI22013").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _ Range("K1:K41"), Unique:=False Rows("48:23000").Select Selection.Delete Shift:=xlUp ActiveWindow.SmallScroll Down:=-12 ActiveSheet.ShowAllData Range("A1:BN23000").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _ Range("J1:J41"), Unique:=False Rows("2:23001").Select Selection.Delete Shift:=xlUp ActiveSheet.ShowAllData Range("A2").Select Sheets("Menu").Select Range("A2").Select End Sub Voila , si quelqu'un à le courage de lire tout ça et la capacite de le comprendre ... Chapo A+

Copier coller avec office

8 réponses

Discussions similaires