Je crée un document Word d'excel. Lorsque j'insère une image dans le document et que je la taille, j'avance une erreur de time d'exécution. Je ne me passe que lorsque je l'exécute une deuxième fois. Dim PreparedSigPath As Ssortingng Dim sWdth, sHght As Single 'file paths for image PreparedSigPath = Range("Prepared_Sig").Value 'insert and re-size image […]
Je suis assez nouveau pour excel vba et j'aimerais savoir comment puis-je modifier ce code pour modifier les valeurs H3: H7 (1,2,3,4,5) vers (1F, 2F, 3F, 4F, 5F) pour faire fonctionner la macro? Si j'essaie de modifier par exemple la valeur de la cellule H3 à "1F", j'obtiens "Erreur d'exécution" 13 ': Type de désadaptation […]
Utilisation de MS Office 2010 C'est mon premier code de macro. C'est très bien comme un Vlookup, la différence est que dans le Source Array, il n'y a pas une correspondance exacte mais une gamme. Size1 >= CSng(Worksheets("Sheet2").Cells(StartNumber, 2)) And Size1 <= CSng(Worksheets("Sheet2").Cells(StartNumber, 3))) Si la valeur de search vient dans cette gamme et que […]
J'essaie de créer un ppt avec des inputs de text depuis Excel placées en plusieurs colonnes. J'ai googlé beaucoup, mais pas capable d'avancer sur Erreur d'exécution 2147188160 (80048240) Erreur d'automation. J'ai trouvé ce lien sur le site micrsoft http://support.microsoft.com/kb/155073 qui dit que c'est un bogue dans Office 2007. Quelqu'un peut proposer des solutions de contournement. […]
L'erreur est lancée sur la ligne ThisWorkbook.Sheets("data").Range("AJ2:AM2").AutoFill Destination:=Range("AJ2:AM" & localLastRow) Il était auparavant coopérant, mais après avoir corrigé une autre erreur, il semble qu'il ne veut plus être liant. La source est contenue dans la destination. Je ne suis pas sûr d'où vient le problème. Toute aide serait très appréciée. J'ai posté toute la macro […]
C'est le code que j'essaie d'exécuter: Option Explicit Sub Test() '————-Declarations——————- Dim FinalRow, Sum As Long Dim i, j, l, d, k, count As Integer Dim custID(), amtPur() As Long Dim ws As Worksheet Set ws = Sheets("Data") FinalRow = ws.Range("B90000").End(xlUp).Row j = 0 '————-Get All the Data——————- With ws For i = 4 To […]
J'ai ce code pour copyr d'un livre de travail vers un autre et semble fonctionner bien quand j'utilise quelque chose comme A1: A23, mais j'ai besoin de copyr certaines cellules, mais j'ai une erreur d'exécution 450, le débogueur le montre. Workbooks(Dir(Path)).Worksheets("DCR").range("A3", "A9", "A19" "A23" "B38:B44").VALUE = _ Workbooks("book.xlsm").Worksheets("dcr").range("L3", "L9", "L19" "L23" "M38:M44").VALUE Si je prends […]
Je conserve une application qui a été écrite dans Visual Basic 6.0 et utilise les différents controls OLE avec des objects de class Excel.Sheet.8 . Plusieurs users obtiennent l'erreur suivante lorsqu'ils atteignent un point dans le code qui tente de manipuler les objects Excel. Erreur d'exécution '91': variable d'object ou avec variable de bloc non […]
Travailler sur une macro pour copyr des données d'un autre classur et le coller sur une feuille dans le classur avec la macro. J'utilise cette fonction que j'ai adapté d'un autre thread ici pour get le path du file vers le classur externe: Public Function ResortingeveFileName() As Ssortingng 'Show the open dialog and pass the […]
Je ne peux pas find une question sur cette erreur dans le context de Range.AddComment J'utilise le code qui passe par une rangée sélectionnée et ajoute des commentaires à chaque cellule. Parfois, il écrira un commentaire dans une cellule qui contient déjà un commentaire. Je ne suis pas sûr d'avoir cette erreur parce que j'utilise […]